LEADER로 XY표현하는 리습입니다. 한번 봐주세요~~~
컨텐츠 정보
- 252 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
고수님들의 도움필요로 다시한번 글올립니다.
하기는 XY치수룰 LEADER 값으로 표현하는 리습입니다.
원하는건 현재리습은 치수에 사각박스가 씌어지는데 없애고 싶고, 현재 XY없이 표기되는데 X:0.00,Y:0.00으로 표기되게 가능할까요??
(defun c:31 (/ odt odg oecho oerr p1 p2 a1 a2 a)
(setq odt (getvar "dimtad")
odg (getvar "dimgap")
oecho (getvar "cmdecho")
)
(setq oerr *error*)
(defun *error* (msg)
(princ "n ERROR!")
(setvar "cmdecho" oecho)
(setvar "dimtad" odt)
(setvar "dimgap" odg)
(setq *error* oerr)
(command)
(princ)
)
(setq oldecho (getvar "cmdecho" ))
(setvar "cmdecho" 0)
(setq ptb (getpoint "기준점 선택: "))
(command "ucs" "o" ptb)
(setq pt1 T)
(setvar "cmdecho" 0)
(setvar "dimtad" 0)
(setvar "dimgap" -0.09)
(while (setq p1 (getpoint "n 치수기입 포인트 선택: "))
(setq p2 (getpoint p1 "n Place annotation: ")
a1 (rtos (nth 0 p1) 2 2)
a2 (rtos (nth 1 p1) 2 2)
a3 (rtos (nth 2 p1) 2 2)
;;a (strcat a1 ", " a2 ", z=" a3)
a (strcat a1 ", " a2)
;;a (strcat "x=" a1 "\Py=" a2)
;;a (strcat "x=" a1 "\Py=" a2 "\Pz=" a3)
;;a (strcat "x = " a1 ", y = " a2)
)
;(if (/= a3 "0.000″)(setq a (strcat a1 ", " a2 ", z=" a3)))
(command "leader" p1 p2 "" a "" ^c)
)
(setvar "cmdecho" oecho)
(setvar "dimtad" odt)
(setvar "dimgap" odg)
(princ)
) ;_ end of defun
(prompt "n To start ID Leader, type > 31 <: ")