你去查查书吧,书上挺详细的,在这说不好说,你先在项目里引用。然后
Dim acadapp As AcadApplication
Dim acaddoc As AcadDocument
On Error Resume Next
AcadApp = GetObject(, "AutoCAD.Application")
If Err.Number Then
Err.Clear()
AcadApp = CreateObject("AutoCAD.Application")
If Err.Number Then
MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD")
Exit Sub
End If
End If
AcadApp.Visible = True '界面可视