如何用VBA删除某个层的内容

香口糖 · 发表于 2010-8-12 20:17:00

我想用函数实现删除某个层的内容，该如何实现？我试过用delete删掉整个层但是好像删不掉的。各位大侠帮帮忙谢谢

maxthon_L · 发表于 2010-8-13 16:03:00

这个你参照下开发手册，应该不难的。你能进入那个层么？然后用选择集 SelectionSets 选择mode 为 acSelectionSetAll，然后遍历 Item ，delete。

删除层应该不会出现问题，除非如开发手册所讲：

注意对于被块定义参照的图层以及特殊的图层 DEFPOINTS，即使其中没有包含可见对象也不能被删除。

香口糖 · 发表于 2010-8-13 16:07:00

thx~搞掂啦

我用过滤器选择要删除层内的所有图形，然后放到选择集里，再删除就可以啦

账号		自动登录	找回密码
密码			注册