Something like this
;;; Sub Function to Check for Active Autocad Version
;;; Note this function only checks against the Architecture Vertical for Autocad.
(DEFUN CheckAcadVersion ()
(setq ARCH-08 "17.1s (LMS Tech)") ; for Arch 2008
(setq ADT-07 "17.0s (LMS Tech)") ; for ADT 2007
(setq ARCH_Ver (getvar "acadver")) ; GETS VERSION YEAR OF ACTIVE ACAD APPLICATON.
(cond
((= ARCH-08 ARCH_Ver)
(setq acadversion (strcat "ACD-A 2008"))
)
((= ADT-07 ARCH_Ver)
(setq acadversion (strcat "ADT 2007"))
)
)
(princ)
)