社区 › VB › vba窗体问题

liuyang4740 发表于 2009-1-14 12:19:00

vba窗体问题

想弄一个窗体，窗体上摆一些控件，当我选择"执行"控件时候，提示错误：自动化(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 发表于 2009-1-14 12:59:00

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 发表于 2009-1-14 13:11:00

多谢楼上的，还是不行啊

fjfhgdwfn 发表于 2009-1-14 15:15:00

dim SsetName as string
ssetname="TT"
再试了。应是这个变量是空的过

liuyang4740 发表于 2009-1-14 19:17:00

对啊，多谢楼上的！

qihuiqiang 发表于 2009-1-17 09:23:00

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

查看完整版本: vba窗体问题