yicol 发表于 2003-5-31 14:36:00

第一次可以用，但运行第二次不行[原创]

前面的问题解决了，
有一个新问题出来 了

我在用这个的时候 Set admy = ThisDrawing.SelectionSets.Add("Mycad")
第一次可以用，但运行第二次，该处就出错，是什么原因呢？

myfreemind 发表于 2003-5-31 16:07:00

那是因为选择集已经存在！先删除已经存在的选择集！

myfreemind 发表于 2003-5-31 16:11:00

在你的代码前面加入下面代码！

For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next

yicol 发表于 2003-6-1 13:57:00

谢谢

太谢谢你了，
我再试试

zzlzz 发表于 2003-6-2 09:57:00

123

这样把所有的选择集都删掉了啊，没必要吧？ 在end sub 前加入 admy.delete 就可以了。（另外请注意程序出错的处理）
页: [1]
查看完整版本: 第一次可以用，但运行第二次不行[原创]