有没有什么方法一键将动态块转为普通块？

kozmosovia

全图处理，包括嵌套，也就几行代码的事

1. (vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   
2.   (vlax-for vlo        blk
   
3.     (and (= (vla-get-ObjectName vlo) "AcDbBlockReference")
   
4.          (= (vla-get-isDynamicBlock vlo) :vlax-true)
   
5.          (vla-ConvertToAnonymousBlock vlo)
   
6.     )
   
7.   )
   
8. )

(vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))<br />   (vlax-for vlo        blk<br />     (and (= (vla-get-ObjectName vlo) "AcDbBlockReference")<br />          (= (vla-get-isDynamicBlock vlo) :vlax-true)<br />          (vla-ConvertToAnonymousBlock vlo)<br />     )<br />   )<br /> )