Topic: acadver info

[Matt__W]

I'm placing this in my startup to verify the current open drawing version last saved in.

Code: [Select]

(princ (strcat "\n*** --------- AutoCAD Release " (rtos (GetDwgVersion (getvar "dwgname")) 2 0) " --------- ***"))


Doesn't AutoCAD already do this?  Mine does.

Opening an AutoCAD 2007 format file.
Regenerating model.

[GDF]

It does. I quess I had my head in the sand. Anyway it was a good learning curve.

[enderprime]

Updated with latest releases:

15.0  2000
16.0  2004
16.1  2005
16.2  2006
17.0  2007
17.1  2008
17.2  2009
18.0  2010
18.1  2011
18.2  2012
19.0  2013
19.1  2014
19.2  2015

[alanjt]

I'm placing this in my startup to verify the current open drawing version last saved in.

Code: [Select]

(princ (strcat "\n*** --------- AutoCAD Release " (rtos (GetDwgVersion (getvar "dwgname")) 2 0) " --------- ***"))


Doesn't AutoCAD already do this?  Mine does.

Tried on AutoCAD Civil 3D 2013:
->
; error: no function definition: GETDWGVERSION

The function must be loaded: http://www.theswamp.org/index.php?topic=6774.msg83200#msg83200

[NICK_VNV]

Yep, sorry I opened other window of Autocad with no function loaded  :ugly:

[alanjt]

Yep, sorry I opened other window of Autocad with no function loaded  :ugly:

Happens to all of us. 

[NICK_VNV]

Usually I just used

Code: [Select]

(getvar "acadver")
and take first 4 symbols of string

[MeasureUp]

Usually I just used

Code: [Select]

(getvar "acadver")
and take first 4 symbols of string

It may be off the topic, but here is another one:

Code: [Select]

(strcat "AutoCAD " (substr (ver) 13 4) " Version" " => " (substr (getvar "acadver") 1 4))