社区 › AutoLISP/Visual LISP 编程技术 › 如何用 lisp 一次性清除带星号的块？

mokson 发表于 2023-4-16 14:29:27

如何用 lisp 一次性清除带星号的块？

本帖最后由 mokson 于 2023-4-16 14:31 编辑

只清除所有带星号的块，
保留不带星号的块。
这个 lisp 如何写？

（其实这些块是已经被删除的标注，但CAD保留着残余垃圾）

llsheng_73 发表于 2023-4-16 16:10:06

找到块名为*开头的，删除它，但可能它被参照无法删除
(vlax-for x(vlax-get-property(vlax-get-property(vlax-get-acad-object)'ActiveDocument)'blocks)
(and(WCMATCH(vlax-get-property x'name)"`**")
      (VL-CATCH-ALL-APPLY'vlax-invoke-method(list x 'delete)))
)

查看完整版本: 如何用 lisp 一次性清除带星号的块？