아래 리습편집에서요 파이를 넣게되면 앞자리에 파이가 성생되는데…
이걸 칫수 뒷에 나오게 할려면 어떻해 수정해야될까요?
; 선택한 치수 or 문자에 파이(Ø) 넣기
(defun c:GG(/ os ss sslen ass1 otxt ntxt elist k)
(setvar “cmdecho” 0)
(setq os (getvar “osmode”))
(setvar “osmode” 0)
(prompt “n파이(Ø) 넣기할 치수나 문자선택 “)
(setq ss (ssget))
(setq sslen (sslength ss) k 0)
(while (< k sslen)
(setq elist (entget (ssname ss k)) )
(setq ass1 (assoc 1 elist) otxt (cdr ass1) )
(if (= otxt “”) (setq otxt “<>”))
(if (and (= (wcmatch otxt “%%c*”) nil) (= (wcmatch otxt “%%C*”) nil))
(progn
(setq ntxt (strcat “%%C” otxt ) elist (subst (cons 1 ntxt) ass1 elist))
(entmod elist)
)
)
(setq k (+ K 1))
)
(setvar “osmode” os)
(prin1)
)
공유
잘해결됐네요~~ 감사합니다 ^^
(setq ntxt (strcat otxt “%%C”) elist (subst (cons 1 ntxt) ass1 elist))