vba窗体问题

liuyang4740

想弄一个窗体，窗体上摆一些控件，当我选择"执行"控件时候，提示错误：自动化(automation)错误

远程进程到类型库或对象库的连接丢失。  请教高手如何处理

源码如下：Private Sub cmd1_Click()
 
  Dim ssetobj As AcadSelectionSet
   Form1.Hide
   For i = 0 To ThisDrawing.SelectionSets.Count - 1
        Set ssetobj = ThisDrawing.SelectionSets.Item(i)
        If ssetobj.Name = "au100" Then ssetobj.Delete
    Next i
        Set ssetobj = ThisDrawing.SelectionSets.add(SsetName)
   '让用户在屏幕上选择要加入选择集的图元
   
    ssetobj.SelectOnScreen                    '运行到这步出错！！！！
     '遍历选择集合
     End Sub

dbczhaoy

Dim sset As AcadSelectionSet
        If AutoCADapp.ActiveDocument.SelectionSets.Count = 0 Then
            Set sset = AutoCADapp.ActiveDocument.SelectionSets.add("sset ")
        Else
            Set sset = AutoCADapp.ActiveDocument.SelectionSets(0)
            sset .Clear
        End If

sset_text.Select ....

试下看

liuyang4740

多谢楼上的，还是不行啊

fjfhgdwfn

dim SsetName as string

ssetname="TT"

再试了。应是这个变量是空的过

liuyang4740

对啊，多谢楼上的！

qihuiqiang

应该是类型库问题。 工具 》引用 错误的类型库去掉即可