CAD БИБЛИОТЕКА
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Изменение пути к инструментальным палитрам в настройках Автокада

Изменение пути к инструментальным палитрам в настройках Автокада

Ответ
Поиск в этой теме
Непрочитано 03.11.2020, 09:47 #1
Изменение пути к инструментальным палитрам в настройках Автокада
olga87
 
Регистрация: 28.05.2007
Сообщений: 142

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

Код ниже устанавливает путь к палитрам на сервере (путь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)
Просмотров: 698
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Изменение пути к инструментальным палитрам в настройках Автокада

Система Техэксперт дает уверенность в правильности и эффективности принимаемых инженерных решений!
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Записать (затем прочитать) настройки Автокада во внешний файл olga87 LISP 0 28.09.2020 11:22
Корректное добавление путей в настройки Автокада (проверка существования пути) olga87 LISP 3 22.09.2020 20:51
Не видно полного пути в заголовке окна Автокада casaatik AutoCAD 0 30.09.2019 23:53
Изменение переменных автокада через Lisp BithSachs LISP 12 24.03.2018 19:11