Color change of all dimension styles

[k005]

Hello friends

How can we automatically change the text color of the dimension styles in a dwg file to be 30, the color of the dimension line, symbols and arrows to be 9?

Thanks in advance for the help friend.

[ВeekeeCZ · Accepted solution]

Possibly like this

(defun c:DimstyleColors ( / d e)
  (while (setq d (tblnext "DIMSTYLE" (null d)))
    (setq e (tblobjname "DIMSTYLE" (cdr (assoc 2 d))))
    (setpropertyvalue e "DIMCLRT" 30)
    (setpropertyvalue e "DIMCLRD" 9)
    (setpropertyvalue e "DIMCLRE" 9))
  (command "_.-DIMSTYLE" "_Restore" (getvar 'dimstyle))
  (princ)
  )

[k005]

@ВeekeeCZ 

In one word, Super. ! , Thank you very much. Ok. 🤗

[k005]

This file did not work. What change should we make?