检查分解尺寸
尊敬的各位：，我想用lisp检查是否有任何分解的维度上的维度层。然后我想把所有分解的维度换成其他颜色，有人能让我这么做吗？
谢谢 你可以在那层上搜索任何不是“维度”的东西，然后改变颜色。但是，除了维度和分解维度之外，层上还有其他东西吗？ 好的，让我们继续昨天的帖子，这对你来说怎么样？
; 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)
)
页:
[1]