社区 › Auto Lisp › 删除中的实体图案填充

K Baden 发表于 2022-7-5 15:41:11

删除中的实体图案填充

大家早上好。我发现这个程序几乎完成了我需要它做的事情。基本上，我需要这个例程只在块名称末尾后缀为“-NI”（例如XXX-#-XX-#-NI）的块上运行。有人知道怎么做吗？我和vla一起工作不太好。任何事情都有帮助！谢谢
 
编辑：仅供参考，如果有什么不同的话，这些将是动态块。
 
(defun c:Test (/ doc)
(vlax-for bks (vla-get-blocks (setq
                     doc (vla-get-ActiveDocument (vlax-get-acad-object))
                   )
               )
   (if (and (eq :vlax-false (vla-get-islayout bks))
            (eq :vlax-false (vla-get-isXref bks))
       )
   (vlax-for obj bks
       (if (and (wcmatch (vla-get-objectname obj)
                         "AcDbHatch"
                )
                (vlax-write-enabled-p obj)
         )
         (vla-delete obj)
       )
   )
   )
)
(vla-regen doc AcAllViewports)
(princ)
)(vl-load-com)

Tharwat 发表于 2022-7-5 16:12:36

你好
 
只要你不是编写代码的人，就可以将代码引用到从中获取代码的链接。正当
 
(if (and
(eq :vlax-false (vla-get-islayout bks))
            (eq :vlax-false (vla-get-isXref bks))
(wcmatch (vla-get-name bks) "*-NI")
       )
( .......

K Baden 发表于 2022-7-5 16:31:52

这太棒了，谢谢！
老实说，我已经有一个坐了一段时间后，使用它的另一个应用程序一段时间了！我不太确定它是从哪里来的！非常感谢写这篇文章的人！非常好，非常感谢您提供的额外线路！

Tharwat 发表于 2022-7-5 16:57:30

别担心，随时欢迎你。

查看完整版本: 删除中的实体图案填充