[求助]vba怎么一次性删除所有的没有用的块，包括嵌套的

leizi_y

文件中有若干没有使用的块（包括嵌套）等无用信息，我想将其删除，采用purgeall并不能够一次性全部删除。

有没有办法实现采用vba一次性全部删除，就和命令行中输入purge->选择嵌套->全部

效果一样的功能？？？

leizi_y

通过尝试了种种方法之后不得已采用了如下方法实现：（采用sendcommand）

ThisDrawing.SendCommand ("-purge" & vbCr & "all" & vbCr & "*" & vbCr & "n" & vbCr)

如果还想删除中不能清理的块，就可以先采用递归方法将所有块炸开，然后再用上面的这个语句来实现所有块的删除。

这个比PURGEALL方法速度块而且删除效果比PURGEALL好得多了。