캐드 분류
선택한 텍스트만 폰트교체 리습 문의드립니다..
컨텐츠 정보
- 48 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
(defun c:FFE113(/ ss)
(prompt "\n텍스트만 선택..")
(setq ss (ssget (list (cons 0 "text,mtext,dtext"))))
(sssetfirst nil ss)
(COMMAND "TEXTSTYLE" "1111″)
(princ)
);defun
제가 어찌어찌 만들어봤는데..
변수설정이 거부된다네요..
치수스타일로 만들면 잘 먹히는데 문자스타일은 안되네요…
이거 방법 좀 부탁드립니다..
캐드는 2019 쓰고있습니다..
관련자료
댓글 3
/ 1 페이지
dhL님의 댓글
(defun C:CHANGESTYLE (/ entities len count ent ent_data ent_name new_style_name)
; 문자 스타일을 만들어 놓았다면 "Standard" 문자 정의 필요없고
; 아래의 new_style_name에 적어주면 됩니다.
(command "STYLE" "Standard" "Romantic" "" "" "" "" "")
(setq entities (ssget "X" '((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
;여기의 "Standard" 대신 원하는 문자 스타일을 넣어주세요.
(setq new_style_name (cons 7 "Standard"))
(setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
(entmod ent_data)
(setq count (+ count 1))
);while
;;;runs same routine again, picking up Mtext this time.
);defun
CATS_Developer님의 댓글
CATS에 CTS 기능(문자스타일 바꾸는 기능)이 있습니다 참고해보세요~
