현재 아래와 같이 좌표는 X,Y 로 나옵니다.
제가 구현하고 싶은 좌표계는
100m 단위로 끊어서
1A+32.42
0B+94.53
이런식으로 구현하고 싶은데 가능할지요?? A는 Y좌표를 B는 X좌표를 넣고싶어요.
표현하는 방법만 변경하면 될꺼 같은데 잘모르겠습니다.
고수님들 부탁드려요~
(defun c:idd()
(setq lup(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)1000.) 2 4)))
(setq yp (strcat “X:” (rtos (/(car po)1000.) 2 4)))
(command “leader” po po2 “” xp yp “”)
(setq ent (entget (entlast)))
(entmod (subst (cons 71 7) (assoc 71 ent) ent))
(princ)
)