社区 › VBA/VB/ActiveX/API 编程技术 › 从窗体击活AUTOCAD并且绘图

bamboo 发表于 2003-5-12 20:34:00

从窗体击活AUTOCAD并且绘图

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 发表于 2003-5-12 20:44:00

将窗体设为隐藏后再试试。

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

查看完整版本: 从窗体击活AUTOCAD并且绘图