Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Программная инженерия > CAD проектирование
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 40000 рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.07.2021, 08:10   #1
ольгаг
Форумчанин
 
Регистрация: 22.02.2010
Сообщений: 321
По умолчанию Удалить пути доступа из настроек профиля Автокада

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

Помогите исправить код ниже (lisp, AutoCAD 2020), чтобы для разделов "Путь поиска конфигураций печати" и "Путь поиска файлов описания принтеров" выполнялось сначала удаление серверных путей (если они существуют), а затем их добавление.
*Удаление с последующим добавлением путей нужно для того, чтобы правильно определить порядок расположения пути, например, путь "\\\\server\\CAD\\Plotters" должен быть первым в своем разделе.

Код:
;;;Путь поиска конфигураций печати:
(setq printerconfig "\\\\server\\CAD\\Plotters")
(if (not (vl-string-search (strcase printerconfig) (strcase (getenv "PrinterConfigDir"))))
(setenv "PrinterConfigDir" (strcat printerconfig ";" (getenv "PrinterConfigDir")))
)
(setq printerconfig nil)

;;;Путь поиска файлов описания принтеров:
(setq printerdesc "\\\\server\\CAD\\Plotters\\PMP Files")
(if (not (vl-string-search (strcase printerdesc) (strcase (getenv "PrinterDescDir"))))
(setenv "PrinterDescDir" (strcat printerdesc ";" (getenv "PrinterDescDir")))
)
(setq printerdesc nil)
Заранее спасибо!
ольгаг вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
отказано в доступе к указанному устройству пути или файлу возможно у вас нет нужных прав доступа объекту icoder-new Windows 2 30.09.2020 11:55
удалить точку доступа alinash Windows 16 20.03.2015 18:18
Изменения в основных функциях АвтоКАДа? Ship_1 Общие вопросы Delphi 10 22.10.2014 13:38
при введения в edit1 имя профиля на facebook отображать фото профиля alman12 Общие вопросы Delphi 10 05.06.2014 07:17
Права доступа и постоянное обновление настроек офиса DENGA-RU Операционные системы общие вопросы 1 13.07.2009 13:17