(vl-load-com)
;(princ "\nНачало загрузки Geo Tools...")
(setq *geo_tools_root_dir* (strcat (substr(getenv "ProgramFiles")1 3) "Program Files\\geo_tools"))
(setq *geo_tools_user_dat_dir* (strcat (getenv "APPDATA") "\\geo_tools"))
;(princ "\nНачало загрузки исходных функций Geo Tools...")
(if
  (vl-catch-all-error-p(vl-catch-all-apply 'load(list(strcat *geo_tools_root_dir* "\\lisp\\system\\geo-tools-load-all.lsp"))))
  (princ "\nОшибка попытки загрузки исходных функций Geo Tools!")
  (geo-tools-load-all)
  )
;(princ "\nНачало обновления переменных и контроль наличия файлов пользователя Geo Tools...")
(if load_global_variable
  (progn
    (load_global_variable)
    (geo-tools-update)
    )
  )