除尺寸外的所有块
请再次帮助我，我有一个列表，它将所有内容都更改为coloro 200，但我不希望它也添加尺寸。(defun c:AllToByBlock (/ doc)
(vl-load-com)
(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vlax-for b (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
(if (= :vlax-false (vla-get-IsLayout b) (vla-get-IsXref b))
(vlax-for o b
(vla-put-Color o 200)
)
)
)
(vla-regen doc acAllViewports)
(princ)
)
页:
[1]