(defun c:xx( / a b c x y)
(setq a(entget (car(entsel “n>>>>>>라인선택:”))))
(setq b(assoc 10 a))
(setq c(assoc 11 a))
(setq x(rtos(abs (- (cadr b)(cadr c)))))
(setq y(rtos(abs (- (caddr b)(caddr c)))))
(alert (strcat “X=” x ” Y=” y “입니다”))
(princ)
)
객체를 선택해서 x값과 y값을 출력하는리습인데요 요걸 entget이 아닌 getpoint 를 사용해서 두점선택하여 x값과 y값을 알려면 어찌바꿔야하나요
(defun c:xx( / )
(setq #1 (getpoint “nStartpoint : “))
(setq #2 (getpoint #1 “nEndpoint : “))
????