좌표점찍기 리습 여기저기 참조해서 만들어봤습니다.
명령이 한번만 실행되는데요
이걸 제가 엔터나 스페이스바 혹은 ESC를 누르기전에는 반복해서 계속 사용되게 하고 싶습니다.
고수님들이 지도 좀 부탁드립니다.
(defun c:xy ()
(setvar “cmdecho” 0)
(setvar “blipmode” 0)
(setq po (getpoint “nSpecify a point: “))
(setq x (rtos (nth 0 po)))
(setq y (rtos (nth 1 po)))
(SETQ POO (* 6.0 (GETVAR “LTSCALE”)))
(SETQ TESZ (* 3.0 (GETVAR “LTSCALE”)))
(setq y2 (rtos ( – (nth 1 po) POO)))
(setq qq1 (strcat “X=” x))
(setq qq2 (strcat “Y=” y))
(setq po2 (strcat x “,” y2 “,” “0”))
(setq po3 (strcat x “,” y2 “,” “0”))
(command “-layer” “m” “좌표점블럭” “c” “7” “” “”)
(command “insert” “c:/archidraw/point” po tesZ tesZ “”)
(COMMAND “STYLE” “nt” “romans.shx,ghs.shx” “” “” “” “” “”)(PRIN1)
(command “-layer” “m” “좌표점” “c” “1” “” “”)
(command “text” “j” “BL” po2 tesZ “0” qq1 )
(command “text” “j” “TL” po3 tesZ “0” qq2 )
(PRINT)
)