캐드 분류
치수 스타일 문자 색상 변경 리습
컨텐츠 정보
- 23 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요.
Auto cad 작업중인데요 치수 스타일에 문자 색상이 파란색이라 식별하기가 너무 어려워서 하늘색으로 변경하고 싶습니다.
치수 스타일이 몇백개여서 자동으로 변경되는 리습있는지 궁금합니다.
관련자료
댓글 5
/ 1 페이지
주왕님의 댓글
(vl-load-com) (defun c:test (/ dim_text_color_1 ss p n) (if (= dim_text_color nil) (setq dim_text_color_1 0) (setq dim_text_color_1 dim_text_color) ) (setq dim_text_color (getint (strcat “n색깔 번호입력/<>:” ) ) ) (if (= dim_text_color nil) (setq dim_text_color dim_text_color_1) ) (prompt “n치수 선택:”) (setq ss (ssget ‘((0 . “DIMENSION”)))) (if ss (progn (setq p 0) (while (ssname ss p) (setq n (ssname ss p) p (+ 1 p) a (vlax-ename->vla-object n) )
(vla-put-Color a dim_text_color) (vla-put-ExtensionLineColor a dim_text_color) (vla-put-textcolor a dim_text_color) ) ) ) (princ) )
주왕님의 댓글
(defun c:TEST (/ dim_text_color_1 ss p n) (if (= dim_text_color nil) (setq dim_text_color_1 0) (setq dim_text_color_1 dim_text_color) ) (setq dim_text_color (getint (strcat “n색깔 번호입력/<>:” )) ) (if (= dim_text_color nil) (setq dim_text_color dim_text_color_1) )
;; Automatic selection of all dimension objects (linear and diameter) (setq ss (ssget “_X” ‘((0 . “DIMENSION,DIMDIAMETER”))))
(if ss (progn (setq p 0) (while (setq n (ssname ss p)) (setq p (1+ p) a (vlax-ename->vla-object n) )
(if (and a (vl-catch-all-error-p (vl-catch-all-apply ‘(lambda () (vla-put-Color a dim_text_color) (vla-put-ExtensionLineColor a dim_text_color) (vla-put-textcolor a dim_text_color) ) ) ) ) (prompt “nError changing color for dimension.”) ) ) ) ) (princ) )
