No. There is no system vaiable that stores the version.
The lisp below will return the version. This snip was posted in the lisp
group. I don't remember who the author is.
In VBA you can also open the file and read in the first six characters and
make similar comparisons to those below
Gary
; Sample call, next line
;(acadver "C:/8020 Drawing Files/2D DWG/2089-2d.dwg")
(defun acadver (dwgname / version_list version ch fp)
(setq version_list '(
("MC0.0 " . "1.1")
("AC1.2 " . "1.2")
("AC1.4 " . "1.4")
("AC1.50" . "2.0")
("AC2.10" . "2.10")
("AC2.20" . "Internal version 2.20")
("AC2.21" . "Internal version 2.21")
("AC2.22" . "Internal version 2.22")
("AC1001" . "Internal version pre-2.5")
("AC1002" . "2.5")
("AC1003" . "2.6")
("AC1004" . "R9")
("AC1005" . "Internal pre-R10")
("AC1006" . "R10")
("AC1007" . "Internal pre-release R11")
("AC1008" . "Internal pre-release R11")
("AC1009" . "R11/12")
("AC1010" . "Early internal R13")
("AC1011" . "Late internal R13")
("AC1012" . "R13")
("AC1013" . "R14 Pre-Release")
("AC1014" . "R14.0, 14.01")
("AC1500" . "2000 Pre-Release")
("AC1015" . "2000/2000i/2002")
))
(setq version "")
(cond
((null (findfile dwgname)) "Cannot find Drawing")
((null (setq fp (open dwgname "r"))) "Cannot read Drawing")
(T
(repeat 6
(setq ch (read-char fp))
(setq version (strcat version (chr ch)))
)
(close fp)
(cdr (assoc version version_list))
)
)
)