Try this:
Code:
; Autocad version information
; BY: Tom Beauford - 7/11/2005
; Beaufordt@LeonCountyFL.gov
; LEON COUNTY PUBLIC WORKS SURVEY & R/W SECTION
; (load "ver_name.lsp") ver_name
;=============================================================
(defun c:ver_name ( / pro vlt vno strCaption)
(setq pro (getvar "PRODUCT")
vlt (substr (getvar "_VERNUM") 1 1)
vno (substr (getvar "_VERNUM") 2)
strCaption (vla-get-Caption (vlax-get-acad-object)); Thanks Matt
newlen (vl-string-search " - [" strCaption)
strCaption (substr strCaption 1 newlen)
)
(princ "\n")
(cond
((= vlt "R")
(princ(strcat pro " 13" vno))
)
((= vlt "P")
(princ(strcat pro " 14" vno))
)
((= vlt "T")
(princ(strcat pro " 2000" vno))
)
((= vlt "U")
(princ(strcat pro " 2000i" vno))
)
((= vlt "K")
(princ(strcat pro " 2002" vno))
)
((= vlt "V")
(princ(strcat strCaption " 2004" vno))
)
((= vlt "N")
(princ(strcat strCaption " 2005" vno))
)
((= vlt "Z")
(princ(strcat strCaption " 2006" vno))
)
(T
(princ(strcat strCaption vno))
)
)
(princ)
)