Topic: Detect AutoCAD version

[Daniel J. Ellis]

Thanks CAB, et al, it's the ACAD version I need, so RTOS (ACADVER) is the way to go.

I'll probably read the wikilink just to be geeky, though ^_^

Ronjonp, If I read your method right it searches for the acad.exe file and extrapolates the version from the path?  Could this differential between two different versions on the same computer (I have both R2011 and R2010 installed)?


dJE

http://en.wikipedia.org/wiki/.dwg

No info on 2011 yet.

There are many ways to do it.

Drawing version
http://www.theswamp.org/index.php?topic=6774.msg333989#msg333989

ACAD version

Code: [Select]

((= (rtos(atof(getvar "ACADVER"))2 2) "15.00") 2000))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "15.05") 2000i))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "15.06") 2002))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "16.00") 2004))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "16.10") 2005))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "16.20") 2006))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "17.00") 2007)) ; 7 8 9
 ((= (rtos(atof(getvar "ACADVER"))2 2) "18.00") 2010))

[Lee Mac]

my version

Code: [Select]

(atoi (substr (ver) 13))

Bravo 

[alanjt]

Thanks CAB, et al, it's the ACAD version I need, so RTOS (ACADVER) is the way to go.

I'll probably read the wikilink just to be geeky, though ^_^

Ronjonp, If I read your method right it searches for the acad.exe file and extrapolates the version from the path?  Could this differential between two different versions on the same computer (I have both R2011 and R2010 installed)?


dJE

http://en.wikipedia.org/wiki/.dwg

No info on 2011 yet.

There are many ways to do it.

Drawing version
http://www.theswamp.org/index.php?topic=6774.msg333989#msg333989

ACAD version

Code: [Select]

((= (rtos(atof(getvar "ACADVER"))2 2) "15.00") 2000))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "15.05") 2000i))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "15.06") 2002))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "16.00") 2004))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "16.10") 2005))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "16.20") 2006))
 ((= (rtos(atof(getvar "ACADVER"))2 2) "17.00") 2007)) ; 7 8 9
 ((= (rtos(atof(getvar "ACADVER"))2 2) "18.00") 2010))

Beware of your dimzin variable being something other than zero (suppressing zeros will cause problems when comparing strings).

[ronjonp]

personally I prefer this:

Code: [Select]

(atoi (vl-string-right-trim " (en)" (vl-string-left-trim "Visual LISP " (ver))))

Code: [Select]

(defun getacadversion (/)
  (vl-list->string
    (vl-remove-if-not (function (lambda (x) (and (> x 47) (< x 58)))) (vl-string->list (ver)))
  )
)

I like that one    Forgot about (ver) 

[ronjonp]

my version

Code: [Select]

(atoi (substr (ver) 13))

Bravo 

X2

[alanjt]

my version

Code: [Select]

(atoi (substr (ver) 13))

Bravo 

X2

X3
He has a way of making us all look/feel stupid and happy, at the same time.

[ElpanovEvgeniy]

Mood has improved! Thank you

[ronjonp]

Thanks CAB, et al, it's the ACAD version I need, so RTOS (ACADVER) is the way to go.

I'll probably read the wikilink just to be geeky, though ^_^

Ronjonp, If I read your method right it searches for the acad.exe file and extrapolates the version from the path?  Could this differential between two different versions on the same computer (I have both R2011 and R2010 installed)?

...

Whichever AutoCAD version the code is run in should match... unless for some reason the other acad path is in the search paths as well.

[did.ave]

coucou

Evgeniy is always the most concise

i'm french, so I say merci

amicalement

[Chris]

my version

Code: [Select]

(atoi (substr (ver) 13))

Bravo 

X2

X3
He has a way of making us all look/feel stupid and happy, at the same time.

X4 - I'm changing my code.

[MeasureUp]

my version

Code: [Select]

(atoi (substr (ver) 13))

Bravo 

X2

X3
He has a way of making us all look/feel stupid and happy, at the same time.

X4 - I'm changing my code.

x5
Learned. It's very cool.