;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; start create cross ruler
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; bindkeys
list(
list("Ctrl<Key>K" "create_cross_ruler_cb()")
)
)
procedure( create_cross_ruler_cb( )
let(
(
ruler_length
point_loc
x_loc y_loc
)
ruler_length = 1 ;change ruler length
point_loc = enterPoint(?prompts '("Point at the point") ?cursor hicCross );get point
x_loc = xCoord( point_loc ) ;get x coordinate
y_loc = yCoord( point_loc ) ;get y coordinate
; print(x_loc)
; print(y_loc)
leCreateMeasurement( geGetEditCellView( ) list( point_loc (x_loc+ruler_length:y_loc) ) ) ;create ruler
leCreateMeasurement( geGetEditCellView( ) list( point_loc (x_loc-ruler_length:y_loc) ) ) ;create ruler
leCreateMeasurement( geGetEditCellView( ) list( point_loc (x_loc:y_loc+ruler_length) ) ) ;create ruler
leCreateMeasurement( geGetEditCellView( ) list( point_loc (x_loc:y_loc-ruler_length) ) ) ;create ruler
) ;let
) ; procedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; end create cross ruler
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;