;; Get Drawing Version - Lee Mac
;; Returns the version of the supplied filename (dwg/dws/dwt/dxf)
(defun LM:getdwgversion
( fn
/ fd vr
) )
)
)
)
)
)
'(
("AC1027" . "2013-2015")
("AC1024" . "2010-2012")
("AC1021" . "2007-2009")
("AC1018" . "2004-2006")
("AC1015" . "2000-2002")
("AC1014" . "Release 14")
("AC1012" . "Release 13")
("AC1009" . "Release 11/12")
("AC1006" . "Release 10")
("AC1004" . "Release 9")
("AC1003" . "Release 2.60")
("AC1002" . "Release 2.50")
("AC1001" . "Release 2.22")
("AC2.22" . "Release 2.22")
("AC2.21" . "Release 2.21")
("AC2.10" . "Release 2.10")
("AC1.50" . "Release 2.05")
("AC1.40" . "Release 1.40")
("AC1.2" . "Release 1.2")
("MC0.0" . "Release 1.0")
)
)
)
)