(defun c:pai ()
(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))
텍스트나 치수문자 앞에 %%c 즉 파이기호는 추가하는 리습입니다.
여기에 dimstyle 에서 설정하는 측정배율을 1:1이 아닌 2:1로 변경.
우측 치수보조선과 화살표 를 안보이게 하는 lsp 추가할수 있을까요?
많은 고수님들 부탁드립니다.