홈/ 질문/Q 188198
다음
답변됨
유빗
Lv.0
등록일: 2023-11-09T09:50:55+09:00 카테고리:

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

안녕하세요.

Auto cad 작업중인데요 치수 스타일에 문자 색상이 파란색이라 식별하기가 너무 어려워서 하늘색으로 변경하고 싶습니다.

치수 스타일이 몇백개여서 자동으로 변경되는 리습있는지 궁금합니다.

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    5 답변

    1. aalan
    2. Lv.25

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

      • 0
    3. 베스트 답변
      Lv.25
      (수정됨)

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

      • 0