vba窗体问题

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

想弄一个窗体，窗体上摆一些控件，当我选择"执行"控件时候，提示错误：自动化(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 ....
试下看