'''
''' 启动指定版本的CAD
'''
'''
''' 返回CAD Application ,如果失败,则返回 Nothing
'''
Public Function StartCAD(Optional ByVal VerStr As String = "") As Object
Try
Dim CadApp As Object = Nothing
If VerStr.Trim = "" Then
CadApp = Microsoft.VisualBasic.CreateObject("Autocad.Application")
Else
CadApp = Microsoft.VisualBasic.CreateObject("Autocad.Application." & VerStr.Trim)
End If
CadApp.Visible = True
CadApp.WindowState = 3
Return CadApp
Catch ex As Exception
Return Nothing
End Try
End Function
vb版的,改改就能用