this will turn the dimension text to red for all over ride text
change the interger to what color you like.
HTML Code:(defun c:dov (/ ss cnt obj) (setq ss (ssget "X" '((0 . "DIMENSION")(-4 . "<NOT") (1 . "")(-4 . "NOT>"))));_get all over ride dim objects (setq cnt 0) (if ss (repeat (sslength ss) (setq obj (vlax-ename->vla-object (ssname ss cnt)) cnt (1+ cnt) ) (vla-put-TextColor obj 1) ; 1 = red );_repeat );_if (princ) );_defun




Reply With Quote
Bookmarks