[===AAA===]

Всем привет!

Опять же в Автокаде всё прекрасно работало, а в наноКАДе не получается.

Назначаю на кнопку панели инструментов КОМАНДУ (т.е. не функцию)

^C^C^P(load"c:/путь/имя.lsp")(princ) ^PD_ABC

где D_ABC оформлена, как команда, т.е. (defun C: D_ABC ... и так далее ...)

***После С: "пробел" стоит специально, иначе в данном сообщении "рожа" рисуется, типа

Подгрузка каждый раз при нажатии на кнопку - для отладки.

Т.е. нажал кнопку, посмотрел, как работает, поправил файл, снова нажал кнопку...
Или чтобы код большой в памяти всё время не держать - неважно.

В Автокаде всё чудесно работает, а вот в наноКАДе эта же самая конструкция
при первом вызове выдаст:



Команда: D_ABC
Неправильный ключ или команда. Введите (') для команды или (?) для математического выражения: D_ABC

Т.е. загрузка отрабатывает (определение команды появляется), а вот её выполнение - нет.

При втором/третьем/четвёртом нажатии на кнопку может сработать ... или не сработать ... или вообще
запустить невесть что ("сохранить рисунок, как растр", "печать" и прочие произвольные команды).
А вот если оформить это дело не командой, а функцией (т.е. без C:xxx ) - то всё стабильно и нормально.

Конечно, дело не в коде. Для теста использовался такой вот примитив:

(defun C: D_ABC ( / p)
(write-line "Начало...")
(setq p (+ 5 5))
(print p)
(write-line "...конец.")
(princ)
)

Где собака порылась, может, что-то в определении *.cfg-файла не то?

Вот реальное определение кнопки для команды:

[\ConfigMan\Commands\ID_SdVerDwg]
cmdtype=i1
weight=i50
Intername=sID_SdVerDwg
LocalName=sID_SdVerDwg
BitmapDll=sD:\DREAMn\sd_vda32.bmp
DispName=sПроверка
StatusText=sКомплексная проверка чертежей
Keyword=s^C^C^P(progn(load"d:\\dreamn\\nd_abc.lsp")(princ)) ^PD_ABC
IsUserCommand=f1

Для функции строка
Keyword=
конечно, будет немного другая, но там вопросов нет.

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

Я бы попробовал для начала убрать ^P. И заменить пробелы на ";".
Может быть, сработает код типа

Код:

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

^C^C(progn (load "c:\\path\\file.lsp") (c:d_abc))

Offtop: Вообще ставку на макросы уже делать ИМХО не стоит - в последних версиях вроде бы выпилили эту возможность, судя по обсуждениям в телеге.

[===AAA===]

Код

^C^C(progn (load "c:\\path\\file.lsp") (c:d_abc))

наверняка сработает (не проверял), но вся прелесть определения
именно команды, а не функции состоит в возможности повторно
вызвать её правой кнопкой мыши, а не повторным тычком в кнопку
или пункт меню. А при данной конструкции, ПКМ наверняка вызовет
не эту, а предыдущую команду. :-(

Проверил.

Работает, но ПКМ - как и предполагалось - вызывает предыдущую команду.
Игры с ^P и ; тоже пока результата не дали.

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

Ну дык определи команду напрямую в коде, если работает:

Код:

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

^C^C(defun c:restart-d_abc() (load "c:\\path\\file.lsp") (c:d_abc));restart-d_abc;

Как-то так примерно. Не проверял.

[===AAA===]

Эксперименты показали, что проблему вызывает именно связка
(load "файл_с_командой.lsp") вызов_команды

Если делать лоад_функция или повесить на кнопку команду,
определённую ранее, то проблем нет.

Подозреваю, что это связано с неудержимым желанием нанокада
после загрузки файла с определением команд обязательно вывести
на экран имена этих новых команд. И как отключить этот безумный
эхо-вывод я пока не знаю. :-(

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

Сообщение от ===AAA=== Эксперименты показали, что проблему вызывает именно связка (load "файл_с_командой.lsp") вызов_команды

Ну ты же сам сказал, что progn срабатывает.

Сообщение от ===AAA=== Подозреваю, что это связано с неудержимым желанием нанокада после загрузки файла с определением команд обязательно вывести на экран имена этих новых команд.

Вряд ли...

Сообщение от ===AAA=== И как отключить этот безумный эхо-вывод я пока не знаю. :-(

Можно попробовать поиграться с nomutt, но какой будет эффект - не представляю.

[===AAA===]

Ну ты же сам сказал, что progn срабатывает.

Наверное, нужно уточнить формулировку.

Вызов (c:d_abc) внутри (progn ...) действительно срабатывает.
Не срабатывает, когда пытаешься вызвать команду, именно,
как команду, т.е. просто D_ABC

nomutt проверял - не помогает

Самое забавное, что поведение такой кнопки (работает / не работает)
нестабильно. Т.е. потыкал - не работает. Делаешь "нарисуй отрезок",
"сотри", ещё какие-нибудь команды, снова тыкаешь в кнопку - работает,
как часики. Потом снова не работает. И это в одном и том же сеансе
с разницей в десятки секунд.

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

Ну лично я под наником а) постарался забыть про лисп и б) при необходимости загружаю приложения руками. Ну и в) иногда все же пробую пользоваться их встроенным скрипторедактором. Ужас, конечно, но за неимением лучшего...
Offtop: Была в октябре мысля разрабам закинуть идею на разработку расширения для VSCode, но я вовремя остановился

[===AAA===]

Похоже, нужно будет браться за C# всё-таки... :-(

Visual Studio 2022 позволяет создавать приложения
для nanoCAD или нужна другая её версия?

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

Позволяет. Мало того, под nc23+ она крайне желательна: там прошел переход на NET6, который в 2019 не поддерживается (по крайней мере "из коробки")

[doctorraz]

Сообщение от ===AAA=== Не срабатывает, когда пытаешься вызвать команду, именно, как команду, т.е. просто D_ABC

если лисп с этой командой загружен, то срабатывать будет и повтор последней команды и на правой кнопке без регистрации будет
просто ты регистрируешь одну команду, а вызывать хочешь другую
и это

Сообщение от ===AAA=== Intername=sID_SdVerDwg LocalName=sID_SdVerDwg

емнип должны отличаться
--------------------
имха проще лисп команды кинуть в автозагрузку

для оперативной перезагрузки (отладка правка) в этом лиспе добавить команду

Код:

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

 

(defun c:зз ()
  ;; reload, nd_abc.lsp
  (load "nd_abc")
  (prompt "\nПерезагрузил ")
  (princ)
) ;_enddefun

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

[===AAA===]

Про "кинуть в автозагрузку" и сделать "команду 33" - понятно.

Часть КОМАНД у меня и так сидит в автозагрузке,
есть и команды "для быстрой перезагрузки" и прочих "отладочных
действий".

Целых четыре: 21, 22, 66, 99 - все на цифровой клавиатуре,
чтобы Enter был рядом. :-)

И выкрутиться конкретно из этой ситуации можно, но "цепануло"
другое - почему повесить на кнопку загрузку не определённой
ранее функции с последующим "тут же её выполнением" можно,
а команды, именно, как команды, чтобы отрабатывалось потом
по ПКМ - нет.

В АвтоКАДе-то работает без вопросов, а здесь где собака порылась? :-)

Вариант с:

Intername=sID_SdVerDwg
LocalName=sID_SdVerDwg

должны отличаться интересный, попробую.

То doctorraz:

Если сочтёте возможным (всё понятно - другие дела, нет времени и желания и т.п.)
написать и показать здесь кусочек *.cfg, позволяющий реализовать задачу:

- повесить на кнопку загрузку файла с командой (а не функцией), тут же
выполнить её, да так, чтобы последующий щелчок ПКМ вызвал её повторно

думаю, что это интересно будет не только мне.

[doctorraz]

Сообщение от ===AAA=== Если сочтёте возможным

Вряд ли, выше уже все написано и про использование макросов и как обойти.
Еще раз повторю, стремлюсь по максимуму отделять команды от cfg

[===AAA===]

Вариант с: Intername=sID_SdVerDwg LocalName=sID_SdVerDwg должны отличаться - интересный, попробую.

Попробовал. Результата не добился.

У кого-нибудь есть контакты с разработчиками nanoCAD'а ?

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

Видимо, конструкцию типа:

Keyword=s^C^C^P(progn(load"d:\\dreamn\\nd_abc.lsp")(princ)) ^PD_ABC

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

А вот с функцией - другое дело. Т.к. загрузка и выполнение находятся
внутри (progn ...), то и выполняются они шаг-за-шагом.

[===AAA===]

Что ж оно так через одно место-то работает... :-(

Keyword=s^C^C(progn(load"d:\\dreamn\\nd_abc.lsp")(c:d_abc)(princ))

отрабатывает стабильно - вопросов нет. Кроме одного - прежде, чем отработать,
она выводит на экран строку:

(progn(load"d:\\dreamn\\nd_abc.lsp")(c:d_abc)(princ))

Пытаемся её спрятать:

Keyword=s^C^C^P(progn(load"d:\\dreamn\\nd_abc.lsp")(c:d_abc)(princ)) ^P

Всё вроде бы замечательно, если только не нажимать эту кнопку во время выполнения
другой команды (например, _line), которая находится в режиме запроса "введите точку"
Тогда после её завершения возобновляется прерванная команда (видимо, срабатывает
"пробел" перед крайним справа ^P).

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

Команда:

?

[doctorraz]

Там еще фича есть..

Код:

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

 
[\ConfigMan\Commands\PUG]
cmdtype=i0
weight=i0
RealCommandName=slsp
Intername=sPUG_r
LocalName=sУдалитьВсеНеименованныегруппы
DispName=sУдаляет ВСЕ неименованные группы
Keyword=s(PurgeAllUnNamedGroups)
IsUserCommand=f1
BitmapDll=snewbtns.dll
Icon=sPURGE_DARK

[===AAA===]

А это как?

Код:

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

 RealCommandName=slsp

[doctorraz]

Сообщение от ===AAA=== А это как?

lisp
а в ключевом слове лисп выражение
-----
мож сгодится))
в аттаче функция лисп которая вызывается для понимания

Offtop: PS в нк22 еще такие штуки можно было добавлять через НПИ, начиная с нк23 сильно упростили, без бутылки с НПИ не разобраться, проще руками в блокноте править

[===AAA===]

Ещё поэкспериментировал:

Всё вроде бы замечательно, если только не нажимать эту кнопку во время выполнения другой команды (например, _line), которая находится в режиме запроса "введите точку" Тогда после её завершения возобновляется прерванная команда (видимо, срабатывает "пробел" перед крайним справа ^P).

Хрен там! :-)

Это не команда возобновляется, а просто в командную строку выводится последнее
"приглашение" прерванной команды. Поэтому, скажем, запрос "введите 2-й точку"
в реальности ничего не запрашивает, а просто заменяет собой слово "Команда:"

Т.е.

Ожидали видеть:

Команда:

А видим:

Укажите следующую точку:

Которая по факту ничего не хочет, а является обычным приглашением
командной строки.

[doctorraz]

с Keyword так работает(((
Вызови из меню: справка, лицензионное соглашение, а потом попробуй повторить по enter space или ПКМ((
----------
короче поразбирался, в истории команд: (ПКМ) остается только команда
Keyword в историю не попадает, выражения и функции тоже