치수 스타일 문자 색상 변경 리습

(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) )

답변 감사드립니다. 혹시 이 리습이 치수를 선택 해야 지만 색상이 변경이 가능하던데 도면내에 있는 모든 치수스타일을 한꺼번에 변경할 순 없을까요 ?

https://drive.google.com/drive/folders/1jCgGUBnZubZUoTYlBAxRZdqvBBI87k3R?usp=drive_link

(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) )

너무 너무 감사합니다. 바로 원하던 기능입니다 .ㅜㅜ 덕분에 일이 수월해졌습니다. 혹시 한가지만 더 부탁드려도 될까요? 치수 스타일에 모든 글자는 색상변경이 가능해졌는데 일반 텍스트도 같은색으로 변경하고싶습니다. 이 리습에 추가 가능할까요 ?