좌표값 찍어내는 lisp을 이것저것 받아서 써보다
multileader 가 scale 등 변화시 그리고 스타일 지정이 가능해서 써보기로 했습니다.
문제는 제가 lisp을 공부한 적이 없다는거..
대충 훑어 보고 이런 거구나 해서 좀 고쳐봤는데
되긴되는데 Y값이 출력이 안되요
이유인 즉슨 아래 mleader 명령이 들어가면 포인트 찍고
이후 Text 입력시에 mtext로 입력이 되는데 X값(C1)이 들어가고 나면
Y값은 다시 명령행 상태가 되서 안 들어가네요.
어떻게 써줘야.. 두줄로
X=~~~
Y=~~~
이렇게 나올까요..
지금은
X=~~~~~
출력되고
그다음은
Command : Y~~~~~ bad command 어쩌구.. ㅋ 이러네요.
아래는 짜집기 해본 lisp 입니다.
——————————————————————————————————————————–
(defun c:xy (/ pt pt1)
(setvar “osmode” 1)
(setvar “orthomode” 0)
(command “layer” “m” “XY_Coord” “c” “m” “” “”)
(setq ang (getvar “angbase”))
(GRAPHSCR)
(setq pt (getpoint “n Pick point: “))
(setvar “osmode” 8)
(setvar “orthomode” 1)
(setq pt1 (getpoint pt “n TEXT Location…. : “))
(setq Cx (CAR pt))
(setq Cy (CADR pt))
(setq Csx (RTOS Cx 2 4))
(setq Csy (RTOS Cy 2 4))
(setq C1 (STRCAT “X= ” Csy))
(setq C2 (STRCAT “Y= ” Csx))
(command “angbase” “0d”)
(Command “mLeader” pt pt1 C1 C2 “”)
(setvar “osmode” 47)
(setvar “angbase” ang)
(princ)
)
——————————————————————————————————————————–
공유