(defun C:CP ()
(reset)
(setvar “cmdecho” 0)
(setvar “orthomode” 0)
(setvar “blipmode” 0)
(terpri)
(setq a”X”)
(setq b”Y”)
(setq c”Z”)
(command “layer” “m” “dim” “”)
(setq p1 (getpoint “nEnter Coordinates of which point?:”))
(setq i (rtos (car p1 ) 2 2))
(setq j (rtos (cadr p1) 2 2))
(setq coord (strcat a i b j))
(setq p2 (getpoint p1″nPick Text Location:”))
(command “qleader” p1 p2 “” “” “_” “”)
(command “text” p2 “” “” i)
(setq k (- 7 j))
(setq coord (strcat a i b k))
(command “text” coord “” “” j)
(reset1)
(princ))
위에서 i 값까지만 결과가 출력됩니다.
(setq k (- 7 j)) 여기에서 뺄셈이 잘못된것 같은데 이걸 어떻게 수정해야 할까요???
제가 리습에 관해선 전혀 몰라서요…그럼 부탁 드립니다.
아 그리고 x,y 값을 따로 출력을 원하는 겁니다..그럼 ,….