캐드 분류
폰트치환
컨텐츠 정보
- 734 조회
- 0 추천
- 0 비추천
-
목록
본문
(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에서는 안되네요 ㅠ
관련자료
댓글 0
/ 1 페이지
등록된 댓글이 없습니다.
