Topic: acadver info

[ronjonp]

Do any of you have a list of the Acadver numbers for acad 12-2006?

Not the ac1*** numbers but the 16.0 = acad2004, 16.1 = acad2005.....

Thanks,

Ron

[Bob Wahr]

r14 = 14
r14 = 14.01
r2000 = 15.0
r2000i = 15.05
r2002 = 15.06
r2004 = 16.0
r2005 = 16.1
r2006 = 16.2

[MP]

I only have back to r14:

2006   = 16.2
2005   = 16.1
2004   = 16.0
2002   = 15.06
2000i  = 15.05
2000   = 15.0
r14.01 = 14.01 (from Bob's list)
r14    = 14.0

Kinda related:

Code: [Select]

(defun GetDwgVersion ( DwgName / Path Handle Header )
    (if (setq Path (FindFile DwgName))
        (cond
            (   (setq Handle (open Path "r"))
                (setq Header (substr (read-line Handle) 1 6))
                (close Handle)
                (cond
                    ((eq Header "AC1018") 16)
                    ((eq Header "AC1015") 15)
                    ((eq Header "AC1014") 14)
                    ((eq Header "AC1012") 13)
                    ((eq Header "AC1009") 12)
                    ((eq Header "AC1006") 10)
                    ((eq Header "AC1004") 9)
                    ((eq Header "AC1002") 2.6)
                    ((eq Header "AC1.50") 2.05)
                    (t 0) ; 0 = undeterminable
                )
            )
        )
    )
)

[ronjonp]

Thanks MP and Bob

[MP]

Update 2009/03/13 <ooh, Friday the 13th, very scary>:

Code: [Select]

(defun GetDwgVersion ( dwgName / path handle header )
    (if (setq path (findfile dwgName))
        (cond
            (   (setq handle (open Path "r"))
                (setq header (substr (read-line Handle) 1 6))
                (close handle)
                (cond
                    ((eq header "AC1027") 19) [color=green];; extrapolated guess, will verify later[/color]
                    ((eq header "AC1024") 18) [color=green];; extrapolated guess, will verify later[/color]
                    ((eq header "AC1021") 17)
                    ((eq header "AC1018") 16)
                    ((eq header "AC1015") 15)
                    ((eq header "AC1014") 14)
                    ((eq header "AC1012") 13)
                    ((eq header "AC1009") 12)
                    ((eq header "AC1006") 10)
                    ((eq header "AC1004") 9)
                    ((eq header "AC1002") 2.6)
                    ((eq header "AC1.50") 2.05)
                    (t 0) [color=green];; 0 = not determinable[/color]
                )
            )
        )
    )
)

[GDF]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; (distof (substr (getvar "acadver") 1 4))
;;; (vl-load-com)
;;; (vlax-product-key)
;;; "Software\\Autodesk\\AutoCAD\\R16.2\\ACAD-4001:409"
;;; "Software\\Autodesk\\AutoCAD\\R17.1\\ACAD-6001:409"
;;;
;;;  AutoCAD Release History
;;;  1 AutoCAD Version 1.0 December 1982
;;;  2 AutoCAD Version 1.2 April 1983 4mo
;;;  3 AutoCAD Version 1.3 August 1983 4mo
;;;  4 AutoCAD Version 1.4 October 1983 2mo
;;;  5 AutoCAD Version 2.0 October 1984 12mo
;;;  6 AutoCAD Version 2.1 May 1985 7mo
;;;  7 AutoCAD Version 2.5 June 1986 13mo
;;;  8 AutoCAD Version 2.6 April 1987 10mo
;;;  9 AutoCAD Release 9 September 1987 5mo [9]
;;; 10 AutoCAD Release 10 October 1988 13mo [9]
;;; 11 AutoCAD Release 11 October 1990 24mo [11]
;;; 12 AutoCAD Release 12 June 1992 20mo 12 [11]
;;; 13 AutoCAD Release 13 November 1994 29mo [13]
;;; 14 AutoCAD Release 14 May 1997 30mo 14.0/14.1 [14]
;;; 15 AutoCAD 2000 March 1999 21mo 15.0 [2000]
;;; 16 AutoCAD 2000i July 2000 16mo 15.01 [2000]
;;; 17 AutoCAD 2002 June 2001 11mo 15.02 [2000]
;;; 18 AutoCAD 2004 March 2003 21mo 16.0 [2004]
;;; 19 AutoCAD 2005 March 2004 12mo 16.1 [2004]
;;; 20 AutoCAD 2006 March 2005 12mo 16.2 [2004]
;;; 21 AutoCAD 2007 March 2006 12mo 17.0
;;; 22 AutoCAD 2008 March 2007 12mo 17.1
;;; 23 AutoCAD 2009 March 2009 12mo 17.2
;;;
;;; http://myfeedback.autodesk.com/history/autocad_release_history.htm
;;;
;;; AC1021 AutoCAD 2007
;;; AC1018 AutoCAD 2004/2005/2006
;;; AC1015 AutoCAD 2000/2000i/2002
;;; AC1014 Release 14
;;; AC1012  Release 13
;;; AC1009 Release 11/12
;;; AC1006  Release 10
;;; AC1004  Release 9
;;; AC1003  Version 2.60
;;; AC1002 Version 2.50
;;; AC1001 Version 2.22
;;; AC2.22  Version 2.22
;;; AC2.21 Version 2.21
;;; AC2.10 Version 2.10
;;; AC1.50 Version 2.05
;;; AC1.40  Version 1.40
;;; AC1.2 Version 1.2
;;; MC0.0 Version 1.0 
;;; Command: (getenv "userprofile")
;;; "C:\\Documents and Settings\\CAD_5"
;;;
;;; Command: (getenv "appdata")
;;; "C:\\Documents and Settings\\CAD_5\\Application Data"
;;;
;;; Command: (getvar "localrootprefix")
;;; "C:\\Documents and Settings\\CAD_5\\Local Settings\\Application Data\\Autodesk\\AutoCAD 2006\\R16.2\\enu\\"
;;;
;;;  Command: (getvar "roamablerootprefix")
;;; "C:\\Documents and Settings\\CAD_5\\Application Data\\Autodesk\\AutoCAD 2006\\R16.2\\enu\\"
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[MP]

Here's a different flavor using assoc instead of cond, I like it better.

Code: [Select]

(defun GetDwgVersion ( dwgName / path handle header )

[color=green]    ;;  If the drawing's version can be determined
    ;;  it's returned as an integer, otherwise nil.[/color]

    (if (setq path (findfile dwgName))
        (cond
            (   (setq handle (open Path "r"))
                (setq header (substr (read-line Handle) 1 6))
                (close handle)
                (cdr
                    (assoc header
                       '(
                            ("AC1027" . 19) [color=green];; logical extrapolated guess[/color]
                            ("AC1024" . 18) [color=green];;    ""        ""        ""[/color]
                            ("AC1021" . 17)
                            ("AC1018" . 16)
                            ("AC1015" . 15)
                            ("AC1014" . 14)
                            ("AC1012" . 13)
                            ("AC1009" . 12)
                            ("AC1006" . 10)
                            ("AC1004" . 9)
                            ("AC1002" . 2.6)
                            ("AC1.50" . 2.05)
                        )
                    )
                )
            )
        )
    )
)

[M-dub]

I'm truly very sorry for interrupting, but every time I see this thread, I see cadaver... 'acadver'

Again, I'm sorry ...

[GDF]

Here's a different flavor using assoc instead of cond, I like it better.

Code: [Select]

(defun GetDwgVersion ( dwgName / path handle header )

[color=green]    ;;  If the drawing's version can be determined
    ;;  it's returned as an integer, otherwise nil.[/color]

    (if (setq path (findfile dwgName))
        (cond
            (   (setq handle (open Path "r"))
                (setq header (substr (read-line Handle) 1 6))
                (close handle)
                (cdr
                    (assoc header
                       '(
                            ("AC1027" . 19) [color=green];; logical extrapolated guess[/color]
                            ("AC1024" . 18) [color=green];;    ""        ""        ""[/color]
                            ("AC1021" . 17)
                            ("AC1018" . 16)
                            ("AC1015" . 15)
                            ("AC1014" . 14)
                            ("AC1012" . 13)
                            ("AC1009" . 12)
                            ("AC1006" . 10)
                            ("AC1004" . 9)
                            ("AC1002" . 2.6)
                            ("AC1.50" . 2.05)
                        )
                    )
                )
            )
        )
    )
)

Does anyone have an updated on this for up to release 2010 version?
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) " --------- ***"))


[Lee Mac]

For AutoCAD 2010:

AC1024
ACADVER = "18.0s (LMS Tech)"

[GDF]

Thanks Lee

Updated code below:

Code: [Select]

(defun GetDwgVersion (dwgName / path handle header)
    ;;  If the drawing's version can be determined
    ;;  it's returned as an integer, otherwise nil.
    (if (setq path (findfile dwgName))
        (cond
            (   (setq handle (open Path "r"))
                (setq header (substr (read-line Handle) 1 6))
                (close handle)
                (cdr
                    (assoc header
                       '(                            
                            ("AC1024" . 2010)
                            ("AC1021" . 2008)
                            ("AC1018" . 2004)
                            ("AC1015" . 2000)
                            ("AC1014" .   14)
                            ("AC1012" .   13)
                            ("AC1009" .   12)                          
                        )
                    )
                )
            )
        )
    )
)
(princ (strcat "\n*** -------- AutoCAD Release " (rtos (GetDwgVersion (getvar "dwgname")) 2 0) " -------- ***"))


I'm looking for the list of AutoCAD versions that have differnt file formats. Like in the saveas "select a version"
pull down dialog box at the bottom "Files of Type". Different consultants request different versions. This just gives me a heads up on what version the current drawing is.

[GDF]

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

Version Internal version AutoCAD versions
DWG R1.0 MC0.0 AutoCAD Release 1.0
DWG R1.2 AC1.2 AutoCAD Release 1.2
DWG R1.40 AC1.40 AutoCAD Release 1.40
DWG R2.05 AC1.50 AutoCAD Release 2.05
DWG R2.10 AC2.10 AutoCAD Release 2.10
DWG R2.21 AC2.21 AutoCAD Release 2.21
DWG R2.22 AC1002, AC2.22 AutoCAD Release 2.22
DWG R2.50 AC1002 AutoCAD Release 2.50
DWG R2.60 AC1003 AutoCAD Release 2.60
DWG R9 AC1004 AutoCAD Release 9
DWG R10 AC1006 AutoCAD Release 10
DWG R11/12 AC1009 AutoCAD Release 11, AutoCAD Release 12
DWG R13 AC1012 AutoCAD Release 13
DWG R14 AC1014 AutoCAD Release 14
DWG 2000 AC1015 AutoCAD 2000, AutoCAD 2000i, AutoCAD 2002
DWG 2004 AC1018 AutoCAD 2004, AutoCAD 2005, AutoCAD 2006
DWG 2007 AC1021 AutoCAD 2007, AutoCAD 2008, AutoCAD 2009
DWG 2010 AC1024 AutoCAD 2010

[CAB]

http://en.wikipedia.org/wiki/AutoCAD_2010
AutoCAD 2010
18.0    <----<<
24
2009, March 24
DWG 2010 file format introduced; introduction of parametrics and two 3D modeling topologies: mesh based and solid modeling

[GDF]

Thanks Alan

[GDF]

Updated version at startup:

Code: [Select]


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