원래 의도는 치수에 문자가 들어가 있는걸 원래치수대로 (<>)로 바꾸는 겁니다.
이래저래 뒤지다가 비슷한 리습을 올려주신분이 있더라구요
문제는 치수의 문자만 바꿔야 하는데 그냥 문자도 같이 선택이 되서 <>로 변경이 된다는건데요..ㅜㅜ
아는게 없어서… 고수님들게 부탁드려 봅니다…ㅜㅜ
## 그리고 혹시 가능하다면 ∅ 기호가 있는 치수일 경우 ∅가 유지되게 부탁드립니다.
## 아래 리습과 별게로 치수에 타이핑 문자가 포함되어있으면 (즉..”<>”가 포함되어있지 않을경우)
치수가 부각되게 하거나, 선택 또는 그 치수들을 하나의 블럭으로 묶어주는 LISP 없을까요?
(defun c:<> ()
(setvar “cmdecho” 0)
(prompt “nSelect Dimension “)
(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 “<>”)
(setq sw1 (strcat “<>”) )
);if
(setq txt2 (subst (cons 1 sw1) kk1 txt2)
)
(entmod txt2)
(setq i1 (+ 1 i1))
);while
(setq t2 nil
t1 nil
)
(prin1)
);defun