캐드 분류
선택한 텍스트만 폰트교체 리습 문의드립니다..
컨텐츠 정보
- 102 조회
- 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
CATS_Developer님의 댓글
CATS에 CTS 기능(문자스타일 바꾸는 기능)이 있습니다 참고해보세요~
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