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定义为全局变量，点击列表框项时，主应用程序可以被击活，画图文档也可以被击活，但是为何总不能画图呢？
置顶卡
