CAD二次开发vba示例下载

[weixin_39821228]

Dim acadApp As Object
Dim acadDoc As Object
Sub ConnectToAcad()
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
acadApp.Visible = True
If Err Then MsgBox Err.Description
End If
Set acadDoc = acadApp.Object　
相关下载链接：//download.csdn.net/download/gulong1227/5301241?utm_source=bbsseo