(defun get-acad-ver ( / var-acad-ver)
  (setq var-acad-ver (getvar "ACADVER"))
  (cond
    ((eq var-acad-ver "17.1s (LMS Tech)")"2008")
    ((eq var-acad-ver "17.2s (LMS Tech)")"2009")
    ((eq var-acad-ver "18.0s (LMS Tech)")"2010")
    ((eq var-acad-ver "18.1s (LMS Tech)")"2011")
    ((eq var-acad-ver "18.2s (LMS Tech)")"2012")
    ((eq var-acad-ver "19.0s (LMS Tech)")"2013")
    ((eq var-acad-ver "19.1s (LMS Tech)")"2014")
    ((eq var-acad-ver "20.0s (LMS Tech)")"2015")
    ((eq var-acad-ver "20.1s (LMS Tech)")"2016")
	((eq var-acad-ver "21.0s (LMS Tech)")"2017")
	((eq var-acad-ver "22.0s (LMS Tech)")"2018")
    )
  )