|
十字标尺程序% C, h' g& r, f0 c2 R. @, m
bk("Layout" "<Key>r" "CreateCrossRuler()")% d ~ c* H! c, g7 ?
procedure( CreateCrossRuler()
+ F' p& H: s& M$ _ i! |" d " Create Cross Ruler"0 @' o: w: H$ L5 \& @$ s
leClearAllRuler(getEditRep())5 W6 b+ X" R# m2 S f( b, q0 `
location1=enterPoint(?prompts list("Please digitize or type absolute location"))3 H+ { E9 R' J4 g$ D
location=geWindowToEditPoint(hiGetCurrentWindow(),location1)( ^+ F8 g5 q! w8 b
leCreateRuler( getEditRep() list(location xCoord(location)+20:yCoord(location) xCoord(location)+20:yCoord(location)))1 n' P% [) i- n8 }. C
leCreateRuler( getEditRep() list(location xCoord(location)-20:yCoord(location) xCoord(location)-20:yCoord(location)))3 q$ J' u: y; f9 c8 v
leCreateRuler( getEditRep() list(location xCoord(location):yCoord(location)+20 xCoord(location):yCoord(location)+20))2 U1 u- G u7 i8 U$ M
leCreateRuler( getEditRep() list(location xCoord(location):yCoord(location)-20 xCoord(location):yCoord(location)-20))
8 p1 i+ @2 G! f- d( y7 R); procedure
. {1 {4 S" [- A h8 m. T8 |在lebindkey.il里加上以上内容,按下r键,长度为20的十字标尺,比较好用 |
|