“arial.ttf” 폰트를 사용하는 My TEXT라는 폰트 스타일을 생성합니다.

선택한 문자를 My TEXT라는 폰트로 변경합니다.

;폰트 생성
(defun CreateStyle()
(entmakex
‘(
(0 . “STYLE”)
(100 . “AcDbSymbolTableRecord”)
(100 . “AcDbTextStyleTableRecord”)
(2 . “My TEXT”)
(70 . 0)
(40 . 0.0);<- text height not defined
(41 . 1.0)
(50 . 0.0)
(71 . 0)
(42 . 2.0)
(3 . “arial.ttf”)
(4 . “”)
)
)
)

(defun C:CHANGESTYLE (/ entities len count ent ent_data ent_name new_style_name)
;(command “STYLE” “Standard” “Romantic” “” “” “” “” “”)
(CreateStyle);<== 바꿀 폰트 스타일을 생성
(setq entities (ssget ‘((0 . “*TEXT”)))
len (sslength entities)
count 0
);setq
(while (< count len)
(setq ent (ssname entities count)
ent_data (entget ent)
ent_name (cdr (assoc 7 ent_data))
);setq
(setq new_style_name (cons 7 “My TEXT”));
(setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
(entmod ent_data)
(setq count (+ count 1))
);while
(princ)
);defun