;;通过对文件特征码预读DWG文件存档版本
; 命令: (dwg_ver "d:/cs.dwg")
; "2004"
(defun dwg_ver( name / name fanhui tzm_z file line)
(setq fanhui 'nil)
(setq tzm_z
(list
(list "AC1015" "2000")
(list "AC1018" "2004")
(list "AC1021" "2007")
(list "AC1024" "2010")
(list "AC1027" "2013")
(list "AC1032" "2018")
)
)
(setq file (open name "r"))
;;读到第一行
(setq line (read-line file))
;;读特征码
(setq tezhenma (substr line 1 6))
(close file)
(setq fanhui (car (cdr (assoc tezhenma tzm_z))))
)
;;版本索引
; MC0.0 - DWG Release 1.1
; AC1.2 - DWG R1.2
; AC1.4 - DWG R1.4
; AC1.50 - DWG Release 2.0
; AC2.10 - dwg版本2.10
; AC1002 - DWG版本2.5
; AC1003 - dwg版本2.6
; AC1004 - dwg版本9
; AC1006 - dwg版本10
; AC109 - DWG R11/12 (LT R1/R2)
; AC1012 - DWG Release 13 (LT95)
; AC1014 - DWG R14、14.01 (LT97/LT98)
; AC1015 - DWG autoCAD 2000/2000i/2002
; AC1018 - DWG autoCAD 2004/2005/2006
; AC102 - DWG autoCAD 2007/2008/2009
; AC1024 - DWG autoCAD 2010/2011/2012
; AC1027 - DWG autoCAD2013/2014/2015/2016/2017
; AC1032 - DWG autoCAD 2018/2019/2020
;;常用版本索引
; AC1015:CAD2000版;
; AC1018:CAD2004版;
; AC1021:CAD2007版;
; AC1024:CAD2010版;
; AC1027:CAD2013版;
; AC1032:CAD2018版。