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

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

这样把所有的选择集都删掉了啊，没必要吧？在end sub 前加入 admy.delete 就可以了。（另外请注意程序出错的处理）

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

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