[求助]：VBA中控制activeselectionsets的问题。

aming

在VBA将当前的选择集中的物体删除部分后，再执行这个命令，就无法:
set sset=acaddoc.activeselectionsets
报告错误。
上个命令执行完成后，sset.clear
我测试了一下，因为刚才的选择集中的物体有被删除的，所以就出错了。
如果不删除，就没有问题，可以连续点击该按钮执行命令。
我实在没有办法就在最后写了一句：
acadDoc.SendCommand "move (entlast)  0,0 0,0 "
让活动选择集重新定义，就可以了，除了这个笨办法，还有没有其它的解决方法？