设置十字标尺

1. procedure(CreateCrossRuler()
   

2.         point=enterPoint(geGetCurrentWindow())
   

3.         leCreateRuler(geGetEditRep() list(point xCoord(point)+50:yCoord(point)))
   

4.         leCreateRuler(geGetEditRep() list(point xCoord(point)-50:yCoord(point)))
   

5.         leCreateRuler(geGetEditRep() list(point xCoord(point):yCoord(point)+50))
   

6.         leCreateRuler(geGetEditRep() list(point xCoord(point):yCoord(point)-50))
   

7. ); end procedure CreateCrossRuler

hi Set Bind Key（“Layout” “<key>k” "CreateCrossRuler"）

设置shift+滚珠来增加减少Via的数量

procedure（ChangeViaRows(bb)
               let((obj rows)
                  obj=geGetSelSet()  ;获取via的ID
                  row=obj~>cutRows ;获取当前via的行数
                if(bb=1

                   then
                   obj~>cutRows=rows+1
                else
                   obj~>cutRows=rows-1
                  );if
                );let
）；proc

hiSetBindKey("Layout" "Shift<Btn4Down>" "ChangeViaRows(1)")
hiSetBindKey("Layout" "Shift<Btn5Down>" "ChangeViaRows(-1)")