Dim AeadApp As AcadApplication’在窗体代码声明段定义AeadApp变量类型
Private Sub Form— Load()’加载窗体时,自动启动AutoCAD
On Error Resume Next
Set AeadApp GetObject(,”AutoCAD.Applic.
ation”)’已启动AutoCAD时执行本指令
If El1r Then
Err.Clear
Set AcadApp= CreateObject(”AutoCAD.A—
pplieation”)’未启动运行AutoCAD时执行本指令
End If
AcadApp.Visible=True’显示AutoCAD界面
End Sub
谢谢 找到个张晋西教授的书 慢慢看了 !