[berstrider]

Здравствуйте.
Есть несколько лисп, которые как выгружают данные в файл, так и загружают данные из файла.
Можно ли прямо в кнопке прописать путь по умолчанию к каталогу? Ещё лучше, если это будет условный путь.

Например.
У меня добавлен в доверенные каталог D:\\my_panel
В меню адаптации оттуда подгружается моя панель с автозагрузкой лиспов, например, (load "./Lisp/lisp1/open10.VLX")
Хотелось бы, например, чтобы при нажатии на кнопку с командой "open10" открывался каталог "./Lisp/lisp1/".
Возможно ли на кнопке прописать такой макрос?

В настоящий момент команды и так открывают каталоги (откуда подгрузить файл с данными), но в основном каталог расположения файла чертежа.

[name02]

Можно попробовать так:

Код:

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

 (setq dir (vl-filename-directory (findtrustedfile "QQQ.lsp")))
(startapp "explorer" (strcat "/e,\"" dir))

Файл "QQQ.lsp" ищется по путям поддержки. Соответственно, если в путях поддержки есть файлы с одинаковыми именами, то будет возвращен путь к первому найденному. Т.е. может быть ошибка
Иными словами, он проходит по всем путям поддержки, добавляет к ним имя файла и проверяет его наличие.
Если ты запишешь имя файла в виде "/Lisp/lisp1/open10.VLX", то автокад будет последовательно проходить по следующим адресам:
D:\TrustedFolder_1\\Lisp\lisp1\open10.VLX
G:\TrustedFolder_2\TrustedFolder_A\\Lisp\lisp1\open10.VLX
D:\my_panel\Lisp\lisp1\open10.VLX
F:\\Lisp\lisp1\open10.VLX
D:\TrustedFolder_4\\Lisp\lisp1\open10.VLX

[berstrider]

Сообщение от name02 Можно попробовать так:

Спасибо. Интересное решение, попробую.
Но как можно связать с командой данное решение?

[name02]

Как кнопку сделать писать не буду, а вот дальше есть два пути:
1.1 Создать lisp-файл со следующим кодом:

Код:

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

 (defun c:EXOP ()
   (startapp "explorer" (strcat "/e,\"" (vl-filename-directory (findtrustedfile "QQQ.lsp"))))
   (princ)
)

1.2 Поставить его в автозагрузку
1.3 В кнопку прописать ^C^CEXOP

2 Сразу в кнопку прописать: ^C^C(startapp "explorer" (strcat "/e," (vl-filename-directory (findtrustedfile "QQQ.lsp"))))

Обрати внимание, что во 2-м варианте код немного отличается от первого - выделил красным.

[berstrider]

Сообщение от name02 Как кнопку сделать писать не буду, а вот дальше есть два пути: 1.1 Создать lisp-файл со следующим кодом: Код: [Выделить все] (defun c:EXOP () (startapp "explorer" (strcat "/e,\"" (vl-filename-directory (findtrustedfile "QQQ.lsp")))) (princ) ) 1.2 Поставить его в автозагрузку 1.3 В кнопку прописать ^C^CEXOP 2 Сразу в кнопку прописать: ^C^C(startapp "explorer" (strcat "/e," (vl-filename-directory (findtrustedfile "QQQ.lsp")))) Обрати внимание, что во 2-м варианте код немного отличается от первого - выделил красным.

Спасибо. Создание своей панели и кнопки ан ней делать умею.
Но данная команда у меня не заработала:

Команда: EXOP ; ошибка: неверный тип аргумента: stringp nil

Есть DOBT.VLX, у него три команды, две для чертежа, а третья "DOBT!" открывает проводник для загрузки файла с настройками. Настроенный файл лежит рядом с DOBT.VLX или ещё где то, т.к. их несколько для разных чертежей свой набор параметров. У меня и возник вопрос, можно ли как то дать команде понять, по какому пути открывать проводник. Просто рядом с командой разместить путь в скобочках не помогает (с обратными слешами /).
Попробовал

Код:

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

 (defun c:EXOP ()
   (DOBT!)
   (startapp "explorer" (strcat "/e,\"" (vl-filename-directory (findtrustedfile "/LISP/Слои - Порядок слоёв через файл конфигурации/DOBT.VLX"))))
   (princ)
)

Система выдала

Команда: EXOP ; ошибка: no function definition: DOBT!

Я так понял, что лисп не знает такой функции внутри себя.

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

Попробуй заменить (DOBT!) на (C:DOBT!)

[berstrider]

Сообщение от Кулик Алексей aka kpblc Попробуй заменить (DOBT!) на (C:DOBT!)

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

Команда: EXOP ; ошибка: неверный тип аргумента: stringp nil

Может и нельзя вообще подставить путь в открываемый проводник.
И проводник ли это? Команда "DOBT!" от DOBT.vlx открывает окно открытия файла для выбора файла с параметрами.

[name02]

Все можно подставить - у меня работает же!
Проверь доверенные папки - там есть подходящий адрес до "/LISP/Слои - Порядок слоёв через ..." ?
То есть если DOBT.VLX лежит по адресу:
C:/Users/MEGAUSER/Для Работы/LISP/Слои - Порядок слоёв через файл конфигурации/DOBT.VLX
и ты в лиспе пишешь адрес
/LISP/Слои - Порядок слоёв через файл конфигурации/DOBT.VLX
то в доверенных путях должно быть
C:/Users/MEGAUSER/Для Работы

[berstrider]

Сообщение от name02 Все можно подставить - у меня работает же!

Заработало по короткой схеме

Сообщение от name02 ^C^C(startapp "explorer" (strcat "/e," (vl-filename-directory (findtrustedfile "QQQ.lsp"))))

Работать через лисп не смог заставить.
Ну как заработало, проводник открывает по подставленной строке поиска, но моя проблема осталась в том, что данный путь никак не передаётся функции "DOBT!", которая открывает окно выбора файла

[name02]

Так может DOBT! и не принимает никакие пути? Судя по твоим примерам DOBT! не получает никаких входных параметров. Или у тебя есть пример где принимает?

[berstrider]

Сообщение от name02 Так может DOBT! и не принимает никакие пути? Судя по твоим примерам DOBT! не получает никаких входных параметров. Или у тебя есть пример где принимает?

Да, я пытался просто на прямую указать путь рядом с функцией, ни в какую. Поэтому и спросил тут, вдруг может что то помочь

[name02]

Ну начнем с того, что про передачу в DOBT! ты не говорил
Передача параметров функциям в лиспе выглядит так:
(ИМЯ_ФУНКЦИИ параметр1 ... параметрN)
А то, как ты это записал интерпретируется так:
1 Срабатывает DOBT!
1.1 Открывается окно выбора файла
1.2 Файл выбран - окно закрыто
2 Открытие проводника по адресу файла

Тебе что нужно - подумай и сформулируй прям очень-понятно-для-других!

[berstrider]

Сообщение от name02 Тебе что нужно - подумай и сформулируй прям очень-понятно-для-других!

Значит я не правильно выразился. )))
Да, думал как на шаг 1.1 передать путь к расположению файлов с настройками, чтобы уже там выбрать требуемый для данного чертежа

Сообщение от name02 1 Срабатывает DOBT! 1.1 Открывается окно выбора файла

Что интересно, если создать новый чертёж то практически всегда открывается окно выбора с расположением файла DOBT.VLX, а если открыть имеющийся чертёж, то папка чертежа.

Но и за эту функцию спасибо, можно использовать в полуручном режиме.

[name02]

Сообщение от berstrider Что интересно, если создать новый чертёж то практически всегда открывается окно выбора с расположением файла DOBT.VLX, а если открыть имеющийся чертёж, то папка чертежа.

Видимо это прописано в коде программы - если файл не сохраненный ни разу, то пути сохранения нет и DOBT! открывает свою папку, а если адрес расположения файл есть - то папку чертежа
А что хоть DOBT! делает - может можно его самому написать? Чтобы прям удобно было

[berstrider]

Сообщение от name02 А что хоть DOBT! делает - может можно его самому написать? Чтобы прям удобно было

Данное приложение позволяет управлять порядком отображение элементов (а не просто слоёв) через файл конфигурации по маскам.
Стандартно:
<Тип элемента>

Полная маска:
<Тип элемента> <Имя слоя> <Имя блока (только простого, а так же внешние ссылки)>

Отображение идёт сверху вниз, но можно в файле с определённого момента изменить направление порядка:
^^^^^

варианты:
TEXT
MTEXT
MULTILEADER
ARC
CIRCLE
LYLINE
POLYLINE
LWPOLYLINE
TRACE
HATCH
INSERT
INSERT * *окружен*
INSERT *окружен*
INSERT * *здан*
* * *здан*
* *карта*
OLE2FRAME *

[name02]

Что же ты до конца не прочитал хелп к программе?
Держи:

Код:

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

 (defun c:EXOP ()
  ;; Нужно указать расположение файла с расширением .tab с настройками порядка слоев
  (setq DO:DOBTTAB (findtrustedfile "DOBT.tab"))
  (if (null DO:DOBTTAB) (setq DO:DOBTTAB ""))
  (C:DOBT!)
  (princ)
)

[berstrider]

Сообщение от name02 Что же ты до конца не прочитал хелп к программе?

Действительно, спасибо!
Да как то раньше не задумывался над тем, что там в конце написано. Помнил, что там правила, как записать маски.

[berstrider]

Сообщение от name02 Держи:

Странно, лисп не завёлся, а вот кнопка заработала

Код:

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

 ^C^C(setq DO:DOBTTAB (findtrustedfile "LISP/Слои - Порядок слоёв через файл конфигурации/settings/DOBT.tab"))
(if (null DO:DOBTTAB) (setq DO:DOBTTAB (findtrustedfile "LISP/Слои - Порядок слоёв через файл конфигурации/DOBT.vlx")))
DOBT!

Я тут, когда искал решение проблемы с путями в LISP находил тему, где тоже люди писали, что из командной строки автокада работает, а из LISP нет.