7,763
社区成员
发帖
与我相关
我的任务
分享
Public NewDrawing As Object
Public AcadApp As Object
Public acadDoc As Object
Public Mospace As Object
Set AcadApp = GetObject(, "AutoCAD.application")
If ERR Then
ERR.Clear
Set AcadApp = CreateObject("AutoCAD.application")
If ERR Then
MsgBox "本机未安装 AutoCAD。"
Exit Sub
End If
End If
AcadApp.Visible = True
If FileExist(CurDir + "\acad.dwg") Then
Set NewDrawing = AcadApp.Application.Documents.Open(CurDir + "\acad.dwg")
End If
Set acadDoc = AcadApp.ActiveDocument
Set acadDoc = AcadApp.ActiveDocument
Set Mospace = acadDoc.ModelSpace 'you declared it as a global.
Call Draw_Ele_Cad(Mospace)