CAD二次开发vba示例

【文件属性】：

文件名称：CAD二次开发vba示例

文件大小：29KB

文件格式：DOC

更新时间：2016-05-15 14:53:19

CAD

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　'（会不会出现问题在这？） End Sub