新人求救，急！～～～，关于VB和CAD出现的错误

Question

我现在在用VB和CAD2000作连接，在CAD里对一张图纸某个区域的范围选择面域，再通过我的程序对此面域进行面积计算，第一次是可以计算的，但是如果在同一张图纸内，选择第二个面域，进行面积计算就不可以了，并且报错，报错信息如下：运行错误-2147467259（80004005）
方法'～'作用于对象'～'失败客户在这里等着呢，希望各位老大帮帮忙！！：）

Answer 1

对了，我查出来，出错的问题处在下面的这句话：Application.ActiveDocument.SelectionSets.Add('SS1')

Answer 2

我现在在用VB和CAD2000作连接，在我用这个程序打开CAD,在CAD里对一张图纸某个区域的范围选择面域，再通过我的程序对此面域按比例进行面积计算，第一次是可以计算的，但是如果在同一张图纸内，选择第二个面域，点击我程序中的面积计算的按钮，面积计算就不可以了，并且报错，报错信息如下：运行错误-2147467259（80004005）
方法'～'作用于对象'～'失败

Answer 3

描述的不清楚
估计有什么东西冲突了
所以第一次能用,第二次就不能用
那个ADD方法会不会有问题?
楼主对照着再查查
手头没CAD, 无法实验

Answer 4

这个是SelectionSets的问题，在14。01的时候，你的代码不会出问题，到2000后就有这样的问题，每次在使用的时候，你要先将SelectionSets中已经使用的选择集删了，然后才可以。