Sub Example_Version()
    ' Этот пример возвращает версию AutoCADа как string
    
    Dim version As String
    version = ThisDrawing.Application.version
    MsgBox "Это AutoCAD версии: " & version, , "Version Пример"
    
End Sub