kozmosovia
发表于 2024-10-1 21:30:01
本帖最后由 kozmosovia 于 2024-10-1 21:31 编辑
全图处理,包括嵌套,也就几行代码的事
(vlax-for blk (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for vlo blk
(and (= (vla-get-ObjectName vlo) "AcDbBlockReference")
(= (vla-get-isDynamicBlock vlo) :vlax-true)
(vla-ConvertToAnonymousBlock vlo)
)
)
)