从窗体击活AUTOCAD并且绘图

bamboo

Public Sub ListBox1_Click()
  Set appobj = thisdrawing.Application
     If ListBox1.ListIndex + 1 Then
          Set dwgfile = appobj.Documents.Add
          thisdrawing.Activate
          thisdrawing.ActiveViewport = thisdrawing.ActiveViewport
          thisdrawing.Application.Update
        End If
End Sub
appobj和dwgfile定义为全局变量，点击列表框项时，AutoCAD主应用程序可以被击活，画图文档也可以被击活，但是为何总不能画图呢？

efan2000

用UserForm.Hide将窗体隐藏（注意：UserForm是代表窗体的名称，这里只是比喻，不是它真正的名称，可以在属性窗口中查看一个窗体的名称），然后就可以在ACAD中画图了。