폰트교체 리습 수정 부탁드립니다..
컨텐츠 정보
- 52 조회
- 2 댓글
- 0 추천
- 0 비추천
-
목록
본문
제 손으로 해결이 안되서 찾다보니 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
관련자료
pipipi님의 댓글
음.. 제가 쓰는 폰트변경 리습인데 이걸 원하시는건가 싶네요
————————————————–
(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 이렇게만 넣으셔도 되는걸로 알아요