Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

Сохранить путь к каталогу 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)
)



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko