안녕하세요
치수 앞에 파이와 치수뒤에 H7 넣는 리습인데요
치수에서는 되는데 일반 문자에서는 앞에 파이만 붙어요.
이것을 문자에서도 뒤에 H7붙게 수정 좀 부탁드립니다.
수고하세요.
(defun c:FD1 ()
(setvar “cmdecho” 0)
(prompt “nSelect text to add pi+tole(Hole) “)
(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<>H7”)
(setq sw1 “%%c”text”H7”)
)
(setq sss (strcat sw1 kk3)
txt2 (subst (cons 1 sss) kk1 txt2)) (entmod txt2)
(setq i1 (+ 1 i1)) )
(setq t2 nil t1 nil)
(prin1))