고캐드 내에서 구한 좌표 구하는 리습인데.
결과 좌표를 제가 원하는 곳에 이동시키고 싶은데..
마지막 값인 y만 이동이 되네요….ㅠㅠ
x값 y값을 동시에 이동시킬려면 어디를 수정해야할지……
고수님 수정좀 부탁드립니다..
(defun c:XY()
(setq ts (getvar “textsize”))
(setq pt1 (getpoint “Pick First Point:”))
(setq pt2 (getpoint pt1 “Pick Second Point:”))
(setq px (car pt1))
(setq py (cadr pt1))
(setq pxt (strcat “X=” (rtos py 2 4)))
(setq pyt (strcat “Y=” (rtos px 2 4)))
(setq txtpnt pt2)
(setq txtpnt1 (list (car txtpnt)
(- (cadr txtpnt) (* 1.5 ts)) 0.0))
(command “.text” “j” “bl” txtpnt ts “0.0” pxt)
(command “.text” “j” “bl” txtpnt1 ts “0.0” pyt)
(prompt “nEnter text point->”)
(command “move” “l” “” pt2 pause)
(princ)
)
각각 움직이려면
(defun c:XY()
(setq ts (getvar “textsize”))
(setq pt1 (getpoint “Pick First Point:”))
(setq pt2 (getpoint pt1 “Pick Second Point:”))
(setq px (car pt1))
(setq py (cadr pt1))
(setq pxt (strcat “X=” (rtos py 2 4)))
(setq pyt (strcat “Y=” (rtos px 2 4)))
(command “.text” “j” “bl” pt2 ts “0.0” pxt)
(prompt “nEnter text point->”)
(command “move” “l” “” pt2 pause)
(command “.text” “j” “bl” pt2 ts “0.0” pyt)
(prompt “nEnter text point->”)
(command “move” “l” “” pt2 pause)
(princ)
)
동시에 움직이려면
(defun c:XY()
(setq ts (getvar “textsize”))
(setq pt1 (getpoint “Pick First Point:”))
(setq pt2 (getpoint pt1 “Pick Second Point:”))
(setq px (car pt1))
(setq py (cadr pt1))
(setq pxt (strcat “X=” (rtos py 2 4)))
(setq pyt (strcat “Y=” (rtos px 2 4)))
(command “.text” “j” “bl” pt2 ts “0.0” pxt )
(setq e_l (entlast))
(command “.text” “” pyt)
(prompt “nEnter text point->”)
(command “move” e_l “l” “” pt2 pause)
(princ)
)