중박님 가져가세요…………….

(defun 다중편집하기_1(#aa / #index #a #b #ts #c #d #e #f #g #h #i #j)
(setq #index 0)
(repeat (sslength #aa)
(if(eq(cdr(assoc 0(entget(setq #a(ssname #aa #index)))))”TEXT”)
(progn
(if(not #ts)(setq #ts(cdr(assoc 40(entget #a)))))
(setq #b(cons #a #b))
);;progn
);;if
(setq #index(1+ #index))
);;repeat
(setq #c(mapcar ‘(lambda (#x)(cons #x(cdr(assoc 10 (entget #x)))))#b))
(setq #d(vl-sort #c ‘(lambda (#x #y)(< (cadr #x)(cadr #y)))))
(setq #e(vl-sort #c ‘(lambda (#x #y)(> (caddr #x)(caddr #y)))))
(foreach #x #d
(setq #f(mapcar ‘(lambda (#y)(if(equal (cadr #x)(cadr #y)(/ #ts 2.0))#y))#e))
(setq #g(vl-remove nil #f))
(if #g
(progn
(setq #h(vl-sort #g ‘(lambda (#y #z)(> (caddr #y)(caddr #z)))))
(setq #i(car #h))
(setq #e(vl-remove #i #e))
(setq #j(cons #i #j))
);;progn
);;if
);;foreach
(mapcar ‘car (reverse #j))
);;defun
;;====================================
(defun 다중편집하기 (/ #a)
(prompt “n편집할 문자들을 선택하세요.↓”)
(setq #a (다중편집하기_1(ssget)))
(prompt “n편집하세요.↗”)
(terpri)
(foreach #x #a
(vl-cmdf “ddedit” #x “”)
);;foreach
(princ)
);;defun
;;======================
(defun c:mtc ()(다중편집하기))