社区 › C# › 请问vb中如何加载cad

whitecloat 发表于 2004-12-30 16:02:00

请问vb中如何加载cad

请问vb中如何加载cad

yulijin608 发表于 2005-1-8 08:31:00

Sub ConnectCAD()
                       '连接到AutoCAD
                       Dim AcadApp As Object '定义一个对象
                       On Error Resume Next
                       Set AcadApp = GetObject(, "AutoCAD.Application")
                       If Err Then '如果没有一个AutoCAD副本在运行
                       Err.Clear
                       Set AcadApp = CreateObject("AutoCAD.Application")
                       AcadApp.Visable = True '启动一个AutoCAD副本并设为可见
                       If Err Then
                       MsgBox Err.Description '如果失败，给出错误提示
                       Exit Sub
                       End If
                       End If
End Sub

查看完整版本: 请问vb中如何加载cad