判断当前AutoCAD的版本

Question

请教：
电脑上安装了多个版本的AutoCAD，怎么判断当前运行的是哪个版本呢？
通过vba 或 vb+activeX 或 vc+activeX来判断。
还请各位高手指点迷津！
多谢！

Answer 1

CADversion = Split(Application.Caption, "-")(0)

Answer 2

AutoCAD 内嵌VB编辑器的例子，给力，改一下VB应该能用！Sub Example_Version()
    ' This example returns AutoCAD version as a string
    
    Dim version As String
    version = ThisDrawing.Application.version
    MsgBox "This is AutoCAD Version " & version, , "Version Example"
    
End Sub