五轴联动数控工具磨床加工模拟系统的开发

’定义autocad 变量
    Public acadApp As Object’应用程序
    Public acadDoc As Object’当前应用程序
    Public moSpace As Object’模型空间
    Public Sub LoadAutocadR14()’调用AutocadR14
           On Error Resume Next
           Set acadApp = GetObjec(t “，AutoCAD.Application”)
           If Err Then ’如果没有一个autocad 副本在运行
           Err. Clear
           Set acadAp = CreateObjec(t“AutoCAD.Application”)
           If Err Then
                  MsgBox Err.Description ’如果失败给个提示
                  Exit Sub
           End If
    End If
           Set acadDoc = acadApp.ActiveDocument
           Set moSpace = acadDoc.ModelSpace
    End Sub