将块层更改为0级

stenna · 发表于 2022-7-6 06:26:00

早上好，

是否有lisp或一段代码可以将块的内容更改为第0层，以便我可以在我的分层标准中设置它，而不是在创建块的标准中（不是由我创建的）。

期待您的来信

斯坦娜

ReMark · 发表于 2022-7-6 07:08:47

看看这个帖子，特别注意李在第6篇文章中的回应（和代码）。

http://www.cadtutor.net/forum/showthread.php?50422-更改块元素的图层

Tharwat · 发表于 2022-7-6 07:36:02

与我在你的第二个帖子中发布的帖子几乎相同，只是根据需要做了一些修改。


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

[编程交流] 将块层更改为0级

发表回复

精选推荐