check explode dimension

[ectech]

Dear all,

 

I would like use the lisp check is there any exploded dimension on dimension layer. and then I want to change all exploded dimension to other color, anyone can me me to do that ?

 

Thanks.

[SteveK]

You could search for anything that isn't a "dimension" on that layer and change the colour. But is there anything else on the layer besides dimensions and exploded dimensions?

[SteveK]

Ok just to go with yesterdays post, how does this go for you?

; Change colour of everything not a dimension on dimension layer
(defun c:CCND (/ EN I SS COUNT)
 (setq count 0)
 (and (setq ss (ssget "_X" '((-4 . "<NOT")
                 (0 . "DIMENSION,MLEADER")
                 (-4 . "NOT>")
                 (8 . "DIMENSION")
                 )))
      (setq i -1)
      (while (setq en (ssname ss (setq i (1+ i))))
    (setq count (1+ count))
    (if (assoc 62 (entget en))
      (entmod (subst (cons 62 1) (assoc 62 (entget en)) (entget en)))
      (entmod (append (entget en) (list (cons 62 1))))
      )
    )
      )
 (princ (strcat "\n" (itoa count) " entities changed to red.\n"))
 (princ)
 )