[编程交流] 检查分解尺寸

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