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

leizi_y · 发表于 2006-10-23 18:53:00

文件中有若干没有使用的块（包括嵌套）等无用信息，我想将其删除，采用purgeall并不能够一次性全部删除。
有没有办法实现采用vba一次性全部删除，就和命令行中输入purge->选择嵌套->全部
效果一样的功能？？？

leizi_y · 发表于 2006-10-24 11:12:00

通过尝试了种种方法之后不得已采用了如下方法实现：（采用sendcommand）
ThisDrawing.SendCommand ("-purge" & vbCr & "all" & vbCr & "*" & vbCr & "n" & vbCr)
如果还想删除中不能清理的块，就可以先采用递归方法将所有块炸开，然后再用上面的这个语句来实现所有块的删除。
这个比PURGEALL方法速度块而且删除效果比PURGEALL好得多了。

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

发表回复

精选推荐