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

mokson

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

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

llsheng_73

找到块名为*开头的，删除它，但可能它被参照无法删除

1. (vlax-for x(vlax-get-property(vlax-get-property(vlax-get-acad-object)'ActiveDocument)'blocks)
   
2.   (and(WCMATCH(vlax-get-property x'name)"`**")
   
3.       (VL-CATCH-ALL-APPLY'vlax-invoke-method(list x 'delete)))
   
4. )

(vlax-for x(vlax-get-property(vlax-get-property(vlax-get-acad-object)'ActiveDocument)'blocks)<br />   (and(WCMATCH(vlax-get-property x'name)"`**")<br />       (VL-CATCH-ALL-APPLY'vlax-invoke-method(list x 'delete)))<br /> )