[prajdziswet]

Добрый день, не могу понять различие обработки команд:
хочу прикрепить команду (точнее код лиспа) на палитре инструментов -

Код:

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

 (startapp (strcat "explorer " dirpol "ToolPalette\\")

где dirpol ="C:\\Users\\vk\\AppData\\Roaming\\Autodesk\\AutoCAD 2020\\R23.1\\rus\\support\\" (т.е каталог пользователя).
В командной строке все отрабатывает, через задание функции тоже (и палитре), а вот чисто в палитре интсрументов не хочет..
Читает до экранирующих символов "\\": "(startapp "(strcat "explorer " dirpol "ToolPalette",
можно ли как-то по другому задаются экранирующие символы в палитре инструментов?- надо \ или что не так?

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

Код инструмента приведи, потому как ИМХО то, что ты показал, работать должно. Ну или попробуй поменять "//" на "\"

[prajdziswet]

Сообщение от Кулик Алексей aka kpblc Код инструмента приведи, потому как ИМХО то, что ты показал, работать должно.

1) так у меня - это и есть код:

правда там только "/" - это я эскперементировал,

Сообщение от Кулик Алексей aka kpblc Ну или попробуй поменять "//" на "\"

2) да я про это думал пробывал -различные модификации \\, /. Explorer срабатывает, но не воспринимает адрес, открывает тогда "документы", а не то что нужно

простой кнопкой, на любой панели автокада -тож самое.
у меня подозрение, что на любых панелях, не воспринимает обратны слеш \..
_____________________________
п.с а грузить вообще лисп файл, ради одной строчки кода не охота =(

[doctorraz]

Сообщение от prajdziswet (startapp (strcat "explorer " dirpol "ToolPalette\\")

скобку потерял?
ну и так попробуй

Код:

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

 
(startapp  "explorer" (strcat dirpol "ToolPalette\\"))

слэши либо экранирующие \\
либо URI / чет не работает

----- добавлено через ~5 мин. -----

Сообщение от prajdziswet п.с а грузить вообще лисп файл, ради одной строчки кода не охота =(

Offtop: а зря,
проще при отладке править код в блокноте, перезагружать самого себя и проверять не отходя от кассы что получилось
чем каждую итерацию экскремента править в палитре(((

[Ingpro]

Сообщение от prajdziswet хочу прикрепить команду (точнее код лиспа) на палитре инструментов

Посмотрите тему: Открыть проводник через Autocad #7
https://forum.dwg.ru/showthread.php?t=139577

[prajdziswet]

да скобку потерял (при копировании кода, а на скрине есть)

Сообщение от doctorraz слэши либо экранирующие \\ либо URI / чет не работает

-- в том и дело..что экранирующие слэши не пропускает (даж один)

----- добавлено через ~5 мин. -----

Сообщение от Ingpro Посмотрите тему: Открыть проводник через Autocad #7 https://forum.dwg.ru/showthread.php?t=139577

спасибо, посмотрел (там и мой вариант есть) - но выхода пока не придумал (кроме подгрузка лиспа и задавание функции =(( )

п.с возможно помогло бы замена всех \\ на / - так и эту строку не пропустит.

поэтому наверное остается лисп-файл и командой на палитру=((

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

По ссылке-то сходил?

[doctorraz]

Сообщение от prajdziswet но выхода пока не придумал

чо тут думать

Код:

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

 
(setq dirpol "d:\\@Doc\\ГОСТ\\")
^C^C(startapp "explorer.exe" (strcat dirpol  "ГОСТ"))
;или хочется слэшей в конце
^C^C(startapp "explorer.exe" (strcat dirpol  "ГОСТ" (chr 92)))
;или
(setq dirpol "d:\\@Doc\\ГОСТ\\")
^C^C(startapp "explorer.exe" (strcat dirpol (chr 92) "ГОСТ" (chr 92)))

проверил из палитры АК2023 win10
копируешь любой инструмент команды
и вбиваешь туда макрос

[prajdziswet]

Сообщение от Кулик Алексей aka kpblc По ссылке-то сходил?

Да, и я же отписался: "посмотрел(там и мой вариант есть)"

п.с и посмотрел твой вариант (через shell, он более изячный), он мне не подходит (тут условно адрес условно % не получится, мне надо все равно последний слеш задавать)
при прямом у меня нетуда попадает (попадает в документы, даж еслі весь путь задать "/")

----- добавлено через ~5 мин. -----

Сообщение от doctorraz чо тут думать Код: [Выделить все] (setq dirpol "d:\\@Doc\\ГОСТ\\") ^C^C(startapp "explorer.exe" (strcat dirpol "ГОСТ")) ;или хочется слэшей в конце ^C^C(startapp "explorer.exe" (strcat dirpol "ГОСТ" (chr 92))) ;или (setq dirpol "d:\\@Doc\\ГОСТ\\") ^C^C(startapp "explorer.exe" (strcat dirpol (chr 92) "ГОСТ" (chr 92))) проверил из палитры АК2023 win10 копируешь любой инструмент команды и вбиваешь туда макрос Вложение 261429

ООО спасибо (за идею), но не за кода - и мой код работает, убралл слеши "\\" (пошло), хорошо что в глубь еще не надо (тогда бы теже грабли)...

----- добавлено через ~10 мин. -----
хотя блин нет, следующий раз незнаю почему, запускает сразу несколько раз

[prajdziswet]

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

На моем древнем 2013 прекрасно сработали оба варианта:

Код:

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

 ((lambda(/ str) (setq str (strcat "explorer.exe " (findfile "c:/library"))) (startapp str)))

Код:

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

 (startapp (strcat "explorer.exe " (findfile "c:/library")))

[===AAA===]

Возможно, спотыкается не на слешах, а на пробелах в пути.
Это всё дело нужно обрамлять кавычками.

Помедитируй на тему

(strcat (chr 34) ... (chr 34))

Я когда-то с чем-то подобным сталкивался, лень сейчас искать...

[doctorraz]

Сообщение от Кулик Алексей aka kpblc На моем древнем 2013 прекрасно сработали оба варианта

Offtop: ты жэж команды в инструмент палитры вставлял? и оттуда тестировал?

[prajdziswet]

Сообщение от Кулик Алексей aka kpblc На моем древнем 2013 прекрасно сработали оба варианта:

тож хорошее предложение, но не пойдет - обрати внимание "findfile" (он при нахождении превращает прямой / в \\ - проверил по другому пути) и в явном виде у тебя обратный слеш не фигурирует.
как у меня в dirpol - фигурируют неявно, а натыкался "ToolPalette\\" => когда убрал слэши конечные, все пошло.

Проблема с обратными слешами - надо, чтобы они фигурировали то неявно

Код:

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

 (startapp (findfile (strcat "explorer " dirpol "ToolPalette/")))

- так не срабатывает (даж просто черех командную строку), так как findfile я в dirpol пропихваю обратные

Код:

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

 (startapp (findfile (strcat "explorer " dirpol "ToolPalette\\")))

-тож не работает (на панелях или кнопках, через командную прекрасно работает), за обратного слеша

Код:

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

 (startapp (findfile (strcat "explorer " dirpol "ToolPalette")))

- вот так работает, но повезло, что не надо дальше идти

___________
на панелях или кнопках, он не воспринимает \. если обратный фигрурирует неявно, через переменную, или еще как (например findfile из / в \\), то работает

[doctorraz]

Сообщение от prajdziswet вот так работает, но повезло, что не надо дальше идти

ну и чо?
^C^C(startapp "explorer.exe" (strcat dirpol "ГОСТ" (chr 92) "иди куда надо"))
я проверил работает

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

Сообщение от doctorraz Offtop: ты жэж команды в инструмент палитры вставлял? и оттуда тестировал?

Угу

----- добавлено через ~1 мин. -----
prajdziswet, че-т ты путаешься, по-моему, достаточно капитально. Конечные слеши, прямые, обратные... Не мешай все в одну кучу, тогда будет проще разбираться.

[===AAA===]

Проблема с обратными слешами - надо, чтобы они фигурировали то неявно

Неявно, так неявно... Попробуй:

(chr 92) => "\\"
(chr 47) => "/"

[prajdziswet]

Сообщение от ===AAA=== Неявно, так неявно... Попробуй: (chr 92) => "\\" (chr 47) => "/"

Прошло и так! Спасибо..

[prajdziswet]

Сообщение от Кулик Алексей aka kpblc достаточно капитально. Конечные слеши, прямые, обратные.

я просто говорю, что если на палитре инструментов или кнопкой в автокаде не работает "\" (в командной строке нормально), а "/" оно читает (воспринимает) но не туда переходит...

п.с если не веришь мне гугл в помощь: