|
十字标尺程序
' o( Q# S2 E8 g# Y* j2 R( Z# Hbk("Layout" "<Key>r" "CreateCrossRuler()")
3 }* r( u* |, ~8 _procedure( CreateCrossRuler()1 ~+ I8 I; V+ V H( _9 l
" Create Cross Ruler"
' s5 V4 w, e: r3 {3 ^! F- X0 k. @- v leClearAllRuler(getEditRep())
4 q+ v, N0 G( J' Q$ V location1=enterPoint(?prompts list("Please digitize or type absolute location"))
; L) f( G: \( C! p location=geWindowToEditPoint(hiGetCurrentWindow(),location1)
3 A% U3 ]1 Q; J6 R( o8 s$ z( ?% { leCreateRuler( getEditRep() list(location xCoord(location)+20:yCoord(location) xCoord(location)+20:yCoord(location)))
' [, n6 r) K$ n leCreateRuler( getEditRep() list(location xCoord(location)-20:yCoord(location) xCoord(location)-20:yCoord(location)))
) V. y8 F7 E4 T) j leCreateRuler( getEditRep() list(location xCoord(location):yCoord(location)+20 xCoord(location):yCoord(location)+20))1 p# h* G+ s4 Q" M7 H: z# r2 q+ e
leCreateRuler( getEditRep() list(location xCoord(location):yCoord(location)-20 xCoord(location):yCoord(location)-20))& |: l: [# V8 {
); procedure1 d: ]- \/ g# R1 I0 R1 L2 H
在lebindkey.il里加上以上内容,按下r键,长度为20的十字标尺,比较好用 |
|