Записывает в реестр версию текущего AutoCAD для использования другими программами

(defun ru-acad-store-app-string	()
;;;;;
  ;|
Записывает в реестр версию текущего AutoCAD
для использования другими программами
(ru-acad-store-app-string)
Не нужно и неправильно!! Пишет стартер
при контакте с найденным Автокадом!!
|;
  (vl-registry-write
    (_ru-dirs-hkcu-reg-key)
    "AcadAppString"
    (strcat "AutoCAD.Application." (substr (getvar "ACADVER") 1 2))
  ) ;_vl-registry-write
) ;_defun