Корректное добавление путей в настройки Автокада (проверка существования пути)

olga87 · 22.09.2020, 14:52

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

Код ниже добавляет путь "C:\\Приложения" в зону доверенных местоположений в настройках Автокада.
Но когда этот же путь НО в другом регистре (т.е. "C:\\приложения") уже есть в настройках, то путь добавляется повторно (получается два одинаковых пути).
Подскажите пожалуйста, как исправить код ниже, чтобы исключить повторного добавления пути, если он уже присутствует в настройках?
Спасибо!

Код:

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

(defun AddTrustedPath (newPath / trusted)
  (setq trusted (getvar "trustedpaths")
  (if (not (vl-string-search newPath trusted)) (setvar "trustedpaths" (strcat (vl-string-right-trim ";" trusted) ";" newPath)))
  (princ)
)
(AddTrustedPath "C:\\Приложения")

koMon · 22.09.2020, 15:23

(vl-string-search (strcase newPath) (strcase trusted))

Кулик Алексей aka kpblc · 22.09.2020, 16:02

Ну или wcmatch (тоже с приведением символов в единый регистр).

olga87 · 22.09.2020, 20:51

Спасибо!

22.09.2020, 14:52		#1
Корректное добавление путей в настройки Автокада (проверка существования пути) olga87 Регистрация: 28.05.2007 Сообщений: 229 Здравствуйте Уважаемые программисты! Код ниже добавляет путь "C:\\Приложения" в зону доверенных местоположений в настройках Автокада. Но когда этот же путь НО в другом регистре (т.е. "C:\\приложения") уже есть в настройках, то путь добавляется повторно (получается два одинаковых пути). Подскажите пожалуйста, как исправить код ниже, чтобы исключить повторного добавления пути, если он уже присутствует в настройках? Спасибо! Код: [Выделить все] (defun AddTrustedPath (newPath / trusted) (setq trusted (getvar "trustedpaths") (if (not (vl-string-search newPath trusted)) (setvar "trustedpaths" (strcat (vl-string-right-trim ";" trusted) ";" newPath))) (princ) ) (AddTrustedPath "C:\\Приложения")
Просмотров: 1923

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Долго появляется окно настройки Автокада	rtyu	AutoCAD	29	14.12.2020 12:26
Где хранятся настройки Автокада ?	vladimir19	AutoCAD	7	27.09.2017 09:48
Глюк автокада при построении линий командами сценария	pwn	Программирование	15	05.11.2016 23:37
Настройку Автокада, загрузку ресурсов и пр. настройку файлов сделать программно	АлексЮстасу	Программирование	1	12.05.2014 05:56
3d моделирование зданий. поиск наикротчайшего пути.	sasha_nt	Разное	6	18.06.2008 18:24