re:43474 making x-y ordinate dimension

;making ordinate dimension with x,y direction.
;load xyord.lsp, type in ‘xyord’, pick x location and y location.
;for more question : im2810@yahoo.com
;
(defun c:xyord(/ t:IntVar01 t:IntVar02 t:IntVar03 t:IntVar04)
(setq t:IntVar03 (getvar “orthomode”))
(setq t:IntVar01 (getpoint “nFeature location:”))
(setvar “orthomode” 1)
(setq t:IntVar02 (getpoint t:IntVar01 “nX direction:”))
(setq t:IntVar04 (getpoint t:IntVar01 “nY direction:”))
(command “dim” “ordinate” t:IntVar01 t:IntVar02 “” “ordinate” t:IntVar01 t:IntVar04 “” “exit”)
(setvar “orthomode” t:IntVar03)
(princ)
)