캐디안(CADian)/오토캐드(AutoCAD) (X,Y) 좌표 추출하기 리습

[안티캐드]

도면 내 특정 지점을 클릭하면, 그 위치에 대한 (x,y)좌표를 표시해 주는 Lisp

;;

;; (X,Y) 좌표 추출하기

;;

(defun c:idd()

   (setq lip(getvar "luprec"))

   (setvar "luprec" 3)

   (setq zin(getvar "dimzin"))
   (setvar "dimzin" 0)
   (setvar "cmdecho" 0)

   (setq po (getpoint "Pick First Point:"))

   (setq po2 (getpoint po "Pick Second Point:"))

(setq xp (strcat "Y=" (rtos (cadr po) 2 4 )))

(setq yp (strcat "X=" (rtos (car po) 2 4 )))

(command "leader" po po2 "" xp yp "")

[JIN93]

잘 봤습니다! 감사합니다~~