On Error Resume Next
Form3.Label1.Caption = "正在调用cad"
Form3.Visible = True
Set acadapp = GetObject(, "autocad.application") '若AutoCad已启动 , 则直接得到
If Err Then
Err.Clear
Form3.Label1.Caption = "无cad实例,正在启动"
Form3.Refresh
Set acadapp = CreateObject("autocad.application") '若AutoCad未启动,则运行它
' If Err Then
' MsgBox Err.Description
' Exit Sub
' End If
End If
上述代码就可获得控制cad了,acadapp就是cad的一个实例了,调用他的属性和方法就可以了