Author Topic: acadver info  (Read 16537 times)

0 Members and 1 Guest are viewing this topic.

ronjonp

  • Needs a day job
  • Posts: 7535
acadver info
« on: September 12, 2005, 07:08:37 PM »
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

Windows 11 x64 - AutoCAD /C3D 2023

Custom Build PC

Bob Wahr

  • Guest
Re: acadver info
« Reply #1 on: September 12, 2005, 07:23:30 PM »
r14 = 14
r14 = 14.01
r2000 = 15.0
r2000i = 15.05
r2002 = 15.06
r2004 = 16.0
r2005 = 16.1
r2006 = 16.2

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: acadver info
« Reply #2 on: September 12, 2005, 07:24:48 PM »
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
  )
  )
  )
  )
)
« Last Edit: September 12, 2005, 07:26:54 PM by MP »
Engineering Technologist CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.com http://cadanalyst.slack.com http://linkedin.com/in/cadanalyst

ronjonp

  • Needs a day job
  • Posts: 7535
Re: acadver info
« Reply #3 on: September 12, 2005, 07:37:16 PM »
Thanks MP and Bob :)
« Last Edit: September 12, 2005, 07:39:15 PM by ronjonp »

Windows 11 x64 - AutoCAD /C3D 2023

Custom Build PC

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: acadver info
« Reply #4 on: March 13, 2009, 10:10:18 AM »
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]
                )
            )
        )
    )
)
Engineering Technologist CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.com http://cadanalyst.slack.com http://linkedin.com/in/cadanalyst

GDF

  • Water Moccasin
  • Posts: 2085
Re: acadver info
« Reply #5 on: March 13, 2009, 10:22:19 AM »
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; (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\\"
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2020x64 Windows 10x64

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: acadver info
« Reply #6 on: March 13, 2009, 10:25:46 AM »
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)
                        )
                    )
                )
            )
        )
    )
)
Engineering Technologist CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.com http://cadanalyst.slack.com http://linkedin.com/in/cadanalyst

M-dub

  • Guest
Re: acadver info
« Reply #7 on: March 13, 2009, 10:08:24 PM »
I'm truly very sorry for interrupting, but every time I see this thread, I see cadaver... 'acadver'

Again, I'm sorry ...

GDF

  • Water Moccasin
  • Posts: 2085
Re: acadver info
« Reply #8 on: June 24, 2009, 03:49:21 PM »
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) " --------- ***"))
Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2020x64 Windows 10x64

Lee Mac

  • Seagull
  • Posts: 12937
  • London, England
Re: acadver info
« Reply #9 on: June 24, 2009, 07:44:25 PM »
For AutoCAD 2010:

AC1024
ACADVER = "18.0s (LMS Tech)"

GDF

  • Water Moccasin
  • Posts: 2085
Re: acadver info
« Reply #10 on: June 25, 2009, 11:07:41 AM »
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.
« Last Edit: June 25, 2009, 11:18:23 AM by GDF »
Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2020x64 Windows 10x64

GDF

  • Water Moccasin
  • Posts: 2085
Re: acadver info
« Reply #11 on: June 25, 2009, 11:30:18 AM »
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
Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2020x64 Windows 10x64

CAB

  • Global Moderator
  • Seagull
  • Posts: 10401
Re: acadver info
« Reply #12 on: June 25, 2009, 12:16:21 PM »
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
I've reached the age where the happy hour is a nap. ()
Windows 10 core i7 4790k 4Ghz 32GB GTX 970
Please support this web site.

GDF

  • Water Moccasin
  • Posts: 2085
Re: acadver info
« Reply #13 on: June 25, 2009, 12:36:14 PM »
Thanks Alan
Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2020x64 Windows 10x64

GDF

  • Water Moccasin
  • Posts: 2085
Re: acadver info
« Reply #14 on: June 25, 2009, 04:17:35 PM »
Updated version at startup:

Code: [Select]

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

Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2020x64 Windows 10x64