전체를 선택하고 깨진글자 수정방법
컨텐츠 정보
- 34 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
폰트 글자가 깨져서 수정 하려고 하는데 문자 와 선이 같이 선택 되어서 글자를 고티은
스타일이 나오지 않아 깨진 글자를 고치지 못해요. 수정할 수 있는 방법은 어떤것인지요?
관련자료
CATS_Developer님의 댓글
문자 스타일, 폰트 바꾸는 기능입니다!!
김보리님의 댓글
;글자 폰트 바꿈 ;; 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
해당 문자스타일을 입력하면 드래그한 문자를 모두 바꾸어 줍니다. 깨진글자를 돌릴땐 고딕이나 돋움으로 바꿔주시면 돌아와요