将块层更改为0级
早上好，是否有lisp或一段代码可以将块的内容更改为第0层，以便我可以在我的分层标准中设置它，而不是在创建块的标准中（不是由我创建的）。
期待您的来信
斯坦娜 看看这个帖子，特别注意李在第6篇文章中的回应（和代码）。
http://www.cadtutor.net/forum/showthread.php?50422-更改块元素的图层 与我在你的第二个帖子中发布的帖子几乎相同，只是根据需要做了一些修改。
(vl-load-com)
(defun c:2lay0 (/ b o)
;;--- Tharwat 26.June.2013 ---;;
(or doc (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for b (vla-get-blocks doc)
(if
(and
(eq :vlax-false (vla-get-isLayout b))
(eq :vlax-false (vla-get-isXref b))
)
(vlax-for o b
(vla-put-layer o "0")
)
)
)
(vla-regen doc acAllViewports)
(princ)
)
页:
[1]