제 손으로 해결이 안되서 찾다보니 VBCAD에 홈피지기님이 올려주신 리습을 찾았습니다.
실행할때마다 문자스타일 이름을 입력하는것이 아닌
고정값으로 입력하고 싶은데 수정이 안되네요..
부탁드리겠습니다.. 선배님..
(defun c:cs11 (/ e cs n i)
(setq e (ssget ‘((-4 . “”)))
cs (getstring “nEnter new text style :”)
n (sslength e) i 0)
(repeat n
(H:entchg e i 7 cs)
(setq i (1+ i))
)
(princ))
;;;————- in EXT_CMD.lsp ————-
(defun h:entchg(ent_lhj i_lhj type_lhj chg_lhj
/ old_lhj new_lhj var_lhj ent_lhj i_lhj type_lhj)
(if (>= i_lhj 0) (progn
(setq var_lhj (entget (ssname ent_lhj i_lhj)))
))
(if (< i_lhj 0) (progn
(setq var_lhj (entget (car ent_lhj)))
))
(setq old_lhj (assoc type_lhj var_lhj)
new_lhj (cons type_lhj chg_lhj))
(entmod (subst new_lhj old_lhj var_lhj))
(princ))
;;출처 VBCAD
음.. 제가 쓰는 폰트변경 리습인데 이걸 원하시는건가 싶네요
————————————————–
(defun C:FC()
(setq !Style (tblnext “STYLE” T))
(while !Style
(setq !Style (strcase (cdr (assoc 2 !Style))))
(command “style” !Style “simplex,whgtxt” “0” “1” “0” “N” “N” “N”)
(setq !Style (tblnext “STYLE”))
)
)
“simplex,whgtxt” << 위에 요기 안에 원하시는 폰트이름 넣으시면 됩니다. 인터넷에서 저도 검색하다가 찾아서 옛날부터 쓰고있슴다 , 콤마 넣고 하시면 한글폰트도 나오게 저렇게 가능하고 그냥 simplex 이렇게만 넣으셔도 되는걸로 알아요
그 리습은 저도 있어요.. 제가 만들려고 하는건 선택한 텍스트만 폰트를 바꿔주려는 건데..
일단 임시로 만들어 쓰고는 있습니다..
저기에 문자스타일에 스타일을 111로 만들어놨다면 스타일 111 입력값으로 선택한 텍스트를 변경해주려는 것인데 변수거절이 자꾸뜨네요.. 치수스타일은 쉽게 만들었었는데 문자스타일은 어렵군요.