帮助，谢谢

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主应用程序可以被击活，画图文档也可以被击活，但是为何总不能画图呢？