[olga87]

Здравствуйте Уважаемые программисты!

Код ниже устанавливает путь к палитрам на сервере (путь1 - "только чтение"), стирая все остальные, но этот код работает не совсем так, как хотелось бы. Т.е. если, например, пользователь добавит вручную новую палитру (щелкнув правой клавишей в окне инструментальных палитр и выбрав "Создать палитру"), то после этого если снова выполнить код, то новая палитра пользователя остается!
Подскажите пожалуйста, как исправить код ниже, чтобы путь назначался один (сетевой) каждый раз при выполнении кода?
Заранее спасибо!

Код:

[Выделить все]

(setq toolpal "\\\\server\\путь1")
  (vlax-put-property (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'Preferences) 'Files) 'ToolPalettePath
    (strcat (vl-string-right-trim ";" toolpal))
  )
  (setq toolpal nil)