전체를 선택하고 깨진글자 수정방법

문자 스타일, 폰트 바꾸는 기능입니다!!

https://cafe.naver.com/autocats/1594

기본 옵션에서 대체폰트를 바꿔주면 기존 없는 폰트가 대체되서 나와서 제대로 보여요.

;글자 폰트 바꿈 ;; Style Change —————> st

(DEFUN C:FC() ;(defun stylech ()

(setvar “cmdecho” 0) (command “style” “standard” “asg,shbw” “” “” “” “” “”) (prompt “n This Program is change STYLE –> asg,shbw로 전환 n “) (setq sss(ssget “X” ‘((0 . “TEXT”)))) (setq num (sslength sss)) (setq i 0) (repeat num (setq ent (entget (ssname sss i))) (setq i (1+ i)) (setq ass (assoc 0 ent)) (if (= “TEXT” (cdr ass)) (progn (setq ass1 (assoc 7 ent)) (setq co (cons 7 “standard”)) (setq entl (subst co ass1 ent)) (entmod entl) ) ) ) (prompt “n”) (princ num) (prompt ” TEXT changed “) (setvar “cmdecho” 0) (princ) )

(defun c:aa() (setq n 0) (setq ss (ssget)) (setq id (load_dialog “aaa.dcl”)) (new_dialog “aaa” id) (mode_tile “edit” 2) (action_tile “edit” “(setq ed $value)”) (setq ok (start_dialog)) (if (= ok 1) (draw) ) (unload_dialog id) ) (defun draw() (setq sl (sslength ss)) (repeat sl (setq sn (ssname ss n)) (setq get (entget sn)) (setq as (assoc 1 get)) (setq con (cons 1 ed)) (setq sub (subst con as get)) (entmod sub) (setq n (1+ n)) ) )

상단의 글자 폰트를 쓰고싶은 폰트로 바꾸어주시면 도면의 모든 폰트가 변경하신 폰트로 변경되요. 맘에 드시는거 쓰시고 수고하셔요

(defun c:FC1 (/ 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

해당 문자스타일을 입력하면 드래그한 문자를 모두 바꾸어 줍니다. 깨진글자를 돌릴땐 고딕이나 돋움으로 바꿔주시면 돌아와요

filter 명령어에서 필터 선택을  문자로 선택하여 리스트에 추가하시고

적용을 하여 all 입력하여 전체 선택하면 문자만 선택됩니다.