(defun C:FCRF()
(command “style” “굴림” “굴림” “0” “” “” “” “”)
(setq a (ssget “x” (list (cons 0 “TEXT”))))
(setq b (sslength a) no 0)
(repeat b
(setq ss (ssname a no))
(setq pl (entget ss))
(if (= (cdr (assoc 0 pl)) “TEXT”) (progn
(setq l (assoc 7 pl))
(setq nn (cdr l))
(setq n (cons (car l) “굴림”))
(setq o (subst n l pl))
(entmod o)
))
(setq no (+ no 1))
)
)
굴림으로 치환하는 건데 뭐가문젤까요 캐드 2018에서는 안되네요 ㅠ