Здесь вы можете скачать документацию и программы для САПР AutoCAD, PCAD, 3DS, Inventor, Pro/E, Solidworks и других CAD CAM CAE EDA GIS

Сохранить путь к каталогу SUPPORT в текстовый файл или загрузить из него

;;;
;;; Сохранить путь к каталогу SUPPORT в текстовый файл или загрузить из него
;;;
;;; Значение пути к файлу измените по вашему усмотрению

(defun C:saveSupportPaths (/ files paths f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq paths (vla-get-supportpath files))
  (setq f (open "r:\\paths.txt" "w"))
  (write-line paths f)
  (close f)
  (princ)
)

(defun C:loadSupportPaths (/ files paths f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq f (open "r:\\paths.txt" "r"))
  (setq paths (read-line f))
  (close f)
  (vla-put-supportpath files paths)
  (princ)
)