26 | 02 | 2017

Get AutoCad Version

Code below returns the Installed Autocad version.\

[code]

Sub ShowAcadVersion()
'***********************************
'**DownloadedfromVisibleVisual.com**
'***********************************
    Dim Acadversion As String
    Acadversion = Left(AutoCAD.Application.ActiveDocument.GetVariable("acadver"), 4)
    Select Case Acadversion
    Case Is = "17.2"
    MsgBox "AutoCad 2009 is Installed"
    Case Is = "17.1"
    MsgBox "AutoCad 2008 is Installed"
    Case Is = "17.0"
    MsgBox "AutoCad 2007 is Installed"
    Case Is = "16.2"
    MsgBox "AutoCad 2006 is Installed"
    Case Is = "16.1"
    MsgBox "AutoCad 2005 is Installed"
    Case Is = "16.0"
    MsgBox "AutoCad 2004 is Installed"
    Case Is = "15.6"
    MsgBox "AutoCad 2002 is Installed"
    Case Is = "15.1"
    MsgBox "AutoCad 2000i is Installed"
    Case Is = "15.0"
    MsgBox "AutoCad 2000 is Installed"
    End Select
End Sub
[/code]
Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2179751
Latest Articles