(defun C:GRTEST (/ pt pt1 lt x pick)
(princ “n 마우스를 움직여 보세요. PICK는 종료.”)
(if (not pt)
(progn
(setq pt (getvar “lastpoint”))
)
)
(while (/= pick t)
(setq pt1 (cadr (setq lt (grread t))))
(if (= (car lt) 5)
(progn
(setq x (strcat “X=”
(rtos (- (car pt1) (car pt))) ” Y=”
(rtos (- (cadr pt1) (cadr pt)))
)
)
(princ “n”)
(princ x)
)
)
(setq pick (= 3 (car lt)))
)
(cadr lt)
(princ)
)