[olga87]

Здравствуйте Уважаемые программисты!
Помогите пожалуйста подправить файл scr (приведенный ниже), чтобы в Автокаде 2007 в раздел "Папки с файлами инструментальных палитр" добавлялся свой дополнительный путь (C:\\ToolPalettes) последним из уже существующих там путей (с сохранением имеющихся путей)?

Сейчас скрипт затирая вставляет автокадовский по умолчанию и пользовательский путь:
код:
(setvar "*_TOOLPALETTEPATH" "%RoamableRootFolder%\\support\\ToolPalette;C:\\ToolPalettes")
;

Спасибо!

[Кулик Алексей aka kpblc]

Ну так получи сначала имеющиеся значения, проанализируй их на предмет содержания пользовательского пути, и, если его нет, добавь и установи toolpalettepath.

[olga87]

Подскажите пожалуйста, как исправить код (ниже), чтобы добавлялся пользовательский путь? Сейчас он лишь выдает имеющиеся пути к палитрам.

код:
(vl-load-com)
(defun c:Example_ToolPalettePath()

(setq acadObj (vlax-get-acad-object))
(setq pref (vla-get-Files (vla-get-Preferences acadObj)))

(setq defToolPalettePath (vla-get-ToolPalettePath pref))
(alert (strcat "The current tool palette path is " defToolPalettePath))

)

Заранее спасибо!

[kakt00z]

(vla-put-ToolPalettePath pref
(strcat
(vla-get-ToolPalettePath pref)
";"
пользовательский_путь
)
)

[ciril]

Как исправить - не знаю

Код:

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

 (or
  (vl-string-search ;или находим
    adpath ;добавляемый путь
    (setq curpath (getvar '*_toolpalettepath))) ;в существующих путях
  (setvar ;или устанавливаем
    '*_toolpalettepath ;в существующие пути
    (strcat adpath ";" curpath))) ;присоединенный к существующим пользовательский

Только до выполнения этого надо присвоить значение adpath

[olga87]

Подскажите пожалуйста, как в коде ниже запретить добавление пути "c:\\temp", если он существует?

код:

Код:

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

 (vl-load-com)
(defun c:Example_ToolPalettePath()
    (setq acadObj (vlax-get-acad-object))
    (setq pref (vla-get-Files (vla-get-Preferences acadObj)))
    (setq defToolPalettePath (vla-get-ToolPalettePath pref))
    (alert (strcat defToolPalettePath))

    (or (vl-string-search "c:\\temp" (setq defToolPalettePath (vla-get-ToolPalettePath pref)))
;;то ничего
;;иначе:
    (vla-put-ToolPalettePath pref (strcat (vla-get-ToolPalettePath pref)";""c:\\temp")))

)

Заранее спасибо!

[Кулик Алексей aka kpblc]

Gnashkoon, есть специальный тэг code, lisp - пользуйся ими.

Сообщение от Gnashkoon как в коде ниже запретить добавление

Я же говорил - сравнивай значения. wcmatch в руки

[ciril]

имя диска в поиске и замене пиши заглавной: "C:\\temp"

[Кулик Алексей aka kpblc]

ciril, зачем так-то? Есть strcase, которая полностью переведет либо в верхний, либо в нижний регистр (правда, там есть пара тонкостей, связанных с кириллицей в строке)

[ciril]

Вот именно поэтому

[olga87]

Спасибо Всем большое! Ответ найден ((if (vl-string-search)!

[ciril]

Gnashkoon, а скажите пожалуйста, при единственном выборе чем if отличается от or?

[gomer]

Сообщение от ciril а скажите пожалуйста, при единственном выборе чем if отличается от or?

or: Если Че, То Ниче
if: Если Че, То ЧеТо Или Ниче
if: Если Че, То ЧеТо Или ЧеТоИсчо

[olga87]

ciril спасибо большое!
Вы правы на счет "or" - при единственном выборе это сокращает код.

[kakt00z]

gomer повеселил, и он прав !
Offtop: if- для меня пережиток прошлого и другого (я про зыки программирования) так же как и repeat, {goto}, vlax-for - туда же, счетчики (там где они не нужны)
неужели не нашли ответ ? такой же простой вопрос