치수를 넣고 나서 파이를 추가하는 리습인데요….
QQ치면 자동으로 파이 기호가 치수 앞에 붙는…….
근데 한개만 넣을땐 괜찮은데요..다른치수에 또 파이를 넣으면 그 전에 넣었던 치수가 깨져서
숫자, 리드선, 화살표가 다 분리 됩니다..
뭐에 문제가 있는건지 좀 알려주세요.. 수정까지 해주시면 더 좋구요..^^
부탁드립니다.
(defun c:QQ ()
(setvar “cmdecho” 0)
(command “explode” txt1)
(prompt “nSelect text to add pi “)
(setq txt1 (ssget) tl1 (sslength txt1) i1 0)
(while (< i1 tl1)
(setq txt2 (entget (ssname txt1 i1))
kk1 (assoc 1 txt2) kk3 (cdr kk1)
stl (cdr (assoc 7 txt2)) )
(if (= kk3 “”)
(setq sw1 “%%c<>”)
(setq sw1 “%%c”)
)
(setq sss (strcat sw1 kk3)
txt2 (subst (cons 1 sss) kk1 txt2)) (entmod txt2)
(setq i1 (+ 1 i1)) )
(setq t2 nil t1 nil)
(prin1))
<파이삽입>으로 자료실 검색하면 다른것 있습니다.
이건 (command “explode” txt1)부분이 문제…….