[求助]有关选择集的一个Automation错误

bblfns

各位大侠：

下面是小弟运行的一段程序，在一台机子上调试之标红的语句时跳出了一个错误：

“运行时错误'2147418113(8000ffff)'

自动化（Automation）错误”

在别的机子上都没有这个问题。请问一下这怎么回事，怎么解决？是不是cad安装时少了什么东西？

多谢了

Public SelSet As AcadSelectionSet
Public EntObj As AcadLine
Dim TextObj As AcadText
Dim pnt As AcadPoint
Dim MidPoint(0 To 2) As Double

Private Sub apply_Click()

Dim XDType(0 To 2) As Integer
Dim XData(0 To 2) As Variant
XDType(0) = 1001
XData(0) = "waibu"
XDType(1) = 1000
XData(1) = TextBox1
XDType(2) = 1040
XData(2) = TextBox2

For Each EntObj In SelSet

。。。

wyj7485

有关选择集的使用：

判断是否有同名

是否有对象

使用循环时是否超出其下界

等等，如使用不当均会报错

雪山飞狐_lzh

创建选择集的代码呢？

bblfns

Set ExtDline.SelSet = ThisDrawing.SelectionSets.Add("select34")
ExtDline.SelSet.SelectOnScreen

以上是建选择集的代码，

没有重名选择集。

在别的机子上运行时都没有问题，就在那台机子上，选上对象后再下一步就出了这样的问题。

多谢关注。

wyj7485

改为呢:

Set ExtDline= ThisDrawing.SelectionSets.Add("select34")
ExtDline.SelectOnScreen

xiaoye

从给出的这部分代码是在难看出有什么错误，原因不在于此吧。

建立选择集时还有另一种方法：

    Public ExtDline As AcadSelectionSet

    If Not IsNull(ThisDrawing.SelectionSets.Item("select34")) Then
        Set ExtDline = ThisDrawing.SelectionSets.Item("select34")
        ExtDline.Delete
    End If
    Set ExtDline = ThisDrawing.SelectionSets.Add("select34")

也有可能是你选择集中的元素类型和你将要赋值的变量类型不一致。

bblfns

再次感谢关注，

ExtDline是一个form,所以wyj7485兄说的问题只是在什么位置写这些代码的问题，如果在ExtDline的模块下面，代码可以写成那样。

xiaoye兄，这种方法我去试试。

多谢了，

不过我还是觉得是不是那个CAD安装时少了什么东西，因为在别处都没有这个问题啊？有哪位也碰上过这样的问题呢？

mufeng

If Not IsNull(ThisDrawing.SelectionSets.Item("select34")) Then
        Set ExtDline = ThisDrawing.SelectionSets.Item("select34")
        ExtDline.Delete
 End If

在这基础上加一条过滤错误语句：on error resume next

要不会出错