[===AAA===]

Всем привет!

Сделал реактор, срабатывающий на открытие/создание файла.
Цель - автоматическая "подстройка" чертежа перед началом работы.
Всякие (getvar) => (setvar) работают без проблем, но в реакторе
не получается использовать командные методы.

А мне, как минимум, нужно создать предустановленные текстовые
стили и выборочно почистить чертёж от "лишних" элементов.
Потом - может быть - ещё чего-нибудь захочется...

Чем - для начала - можно заменить команды _style и _purge ?

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

purge => vla-purgeall
создание / настройка стиля - либо полностью программно все делать (достаточно геморно), либо подключать dws ИМХО

----- добавлено через ~1 мин. -----
Про создание текстового стиля я вроде на сайтике у себя что-то рисовал достаточно давно

[Сергей812]

Сообщение от ===AAA=== но в реакторе не получается использовать командные методы.

лучше в обработчиках/реакторах этим не баловаться) разве что в простое|idle попробовать...

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

Offtop: Лисп в idle вроде не сильно умеет

[===AAA===]

purge => vla-purgeall

Да в том-то и дело, что мне не "all", а только "кое-что" удалить нужно.
Остальные "предустановленные объекты" (слои там и прочее) должны
жить из сеанса в сеанс, пока они не понадобятся.

Можно, конечно, сделать и purgeall, а потом заново их создать, но опять
же командные методы понадобятся...

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

лучше в обработчиках/реакторах этим не баловаться)

Не от хорошей жизни, увы. :-(

В AutoCAD'е использовал S::STARTUP и горя не знал, но тут появился nanoCAD.

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

Сообщение от ===AAA=== только "кое-что" удалить нужно

Тогда по этому "кое-чему" и проходи )

Сообщение от ===AAA=== Можно, конечно, сделать и purgeall, а потом заново их создать, но опять же командные методы понадобятся...

Кто сказал про обязвтльность командных методов для создания слоя?

Сообщение от ===AAA=== В AutoCAD'е использовал S::STARTUP и горя не знал, но тут появился nanoCAD.

Тогда не парься лиспом и переходи на NET. Сэкономишь тьму времени, сил и нервов.

[===AAA===]

"Слой" - для примера. Там у меня ещё и вставка блока была...

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

Тогда не парься лиспом и переходи на NET.

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

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

Сообщение от ===AAA=== Там у меня ещё и вставка блока была...

Че, прям интерактивная, на курсоре болтается? Или все же программная "вставить и сразу удалить вхождение"?

[===AAA===]

Тогда по этому "кое-чему" и проходи )

А чем ? Я только с помощью _purge выборочно знаю, как.

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

Че, прям интерактивная, на курсоре болтается?

Не, от этого давно отказался.

Вставка ведь не только, чтобы с собой все настройки притащить,
она у меня и как "зрительный элемент" оставалась. Типа, проверил,
если нет - вставил.

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

Сообщение от ===AAA=== Я только с помощью _purge выборочно знаю, как.

Зависит от того, что ты пытаешься вычистить. К примеру, для блоков^

Код:

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

 (vlax-for block_def (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(if ; тут проверки на внешние ссылки / анонимные блоки / блоки таблиц / ...
(vl-catch-all-apply '(lambda() (vla-delete block_def)))
)
)

Аналогично по текстовым стилям, размерным стилям и т.п. Может быть, придется еще и по словарям проходить (типа табличные стили / стили мультилиний и т.п.)

[===AAA===]

А если на одно и то же событие назначено несколько реакторов,
(скажем, один "мой", а другой "какой-то левый"), то определено,
в каком порядке они будут отрабатывать?

Или это непредсказуемо?

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

По-моему, в каком порядке они определены, в таком и будут срабатывать. Это если полного сброса нет (на лиспе, кажется, vlr-remove-all, но не уверен).

[Сергей812]

Сообщение от ===AAA=== Или это непредсказуемо?

не гарантируемо, скажем так)

Что такое обработчик (реактор): это когда в коде основного процесса в блоке генерации события делается список ссылок на внешние функции-обработчики событий с определенной сигнатурой (списком типов аргументов). И когда выполнение кода в основном процессе доходит до этого списка ссылок и он (список) не пустой, то будет вызвана каждая из внешних функций с передачей ей аргументов в обусловленном сигнатурой порядке. И когда список закончится - продолжится выполнение кода основного процесса. Так вот - выполнение внешней функции обработчика (реактора) события гарантировано (если произойдет генерация этого события в основном процессе, конечно), но порядок следования ссылок в этом списке - 100% не гарантирован (чтобы на него жестко завязываться).

[Ingpro]

error

[===AAA===]

Не совсем так - в начальном запросе речь шла о создании стиля,
а не установки текущим уже созданного.

[doctorraz]

Сообщение от ===AAA=== В AutoCAD'е использовал S::STARTUP и горя не знал, но тут появился nanoCAD

И он умеет shell_exec

[nickname2019]

Может сделать отдельную нормальную функцию и запустить ее в реакторе через командную строку? Она же на сразу выполнится, а после завершения работы кода реактора?
Или эту функцию запускать через таймер (полсекунды)?

[===AAA===]

И он умеет shell_exec

Намёк - оно, конечно, хорошо. А можно чуть подробнее?

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

Как-то не понял, каким боком тут shell_exec вообще. Создать текстовый стиль с shx-шрифтом геморно, но не могу сказать, что нереализуемо.

[doctorraz]

Сообщение от Кулик Алексей aka kpblc каким боком тут shell_exec

Интересовались startup..

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

Дык это из другой оперы вроде как. Это как сравнивать теплое и квадратное. Или я ошибаюсь?

[skkkk]

Когда мне бывает надо запустить команду из-под реактора, я использую vla-SendCommand.

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

Сообщение от skkkk Когда мне бывает надо запустить команду из-под реактора, я использую vla-SendCommand.

... что, скорее всего, означает, что ты делаешь что-то не то. Или не так. Или не там

[===AAA===]

Да всё он правильно делает... Скорее всего. :-)

Я, например, (исходная-то тема ещё в феврале создана была)
только такой способ и нашёл, чтобы корректно сформировать
в NC отсутствующую в нём функцию S::STARTUP.

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

[Сергей812]

странно, что нанокадовцы не стали реализовывать одну из часто употребляемых функций autolisp)

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

Там лисп принципиально по-другому реализован. Начиная с того, что грузится не в документ, а в приложение. Да и части ограничений вроде бы нет. Особо не влезал.

[Сергей812]

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

[doctorraz]

Сообщение от Сергей812 ну с лиспом в нано такой же маркетинговый ход, как в свое время к акаду VBA сбоку прикрутили)

большинство востребованных лиспов сообществом адаптированы под нану.
просто здесь по другому работает, лиспы грузятся в приложение, поэтому выполнить лисп при открытии файла получится только через реакторы , ну или психанет кто и напишет на NET launchFromDoc)))

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

Угу, который либо имитирует команды, либо под лиспом будет жить от 24 версии и дальше?

[doctorraz]

Сообщение от Кулик Алексей aka kpblc Угу, который либо имитирует команды, либо под лиспом будет жить от 24 версии и дальше?

это ты про LispFunction)))
отчего жэж..

Загорулько норм идею подогнал

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

Код:

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

[\lspModules]
D:\setup\nCAD\lsp Nano\test.LSP
[\NrxModules]
d:\@Developers\В работе\!Текущее\Programmers\!NET\SmartLine_2.1.1_nanoCAD_23\SmartLine.package
[\NetModules]
 d:\@Developers\В работе\!Текущее\Programmers\!NET\SmartLine_2.1.1_nanoCAD_23\SmartLine.package

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

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

Зачем DocumentActivated, когда достаточно DocumentCreated?
Вроде на убитом форуме было нетовское решение, но повторять как-то пока не тянет.

[doctorraz]

Сообщение от Кулик Алексей aka kpblc Зачем DocumentActivated, когда достаточно DocumentCreated?

Не проверял, но вроде писали, что по created ничо с документом сделать не даст, но это неточно

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

Дык я от задачи пишу, у меня такой тоже нет.
Кому надо напишут

[skkkk]

Сообщение от Кулик Алексей aka kpblc ... что, скорее всего, означает, что ты делаешь что-то не то. Или не так. Или не там

Алексей, ты и прав и нет
Я определённо делаю что-то явно не то, и явно несуразное, но я утверждаю, что из реактора реально вызвать командные методы, по крайней мере, на автокад 2011 и 2022 к примеру, при построении отрезка (командный реактор) вызвать очистку чертежа. Командными методами.

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

Сообщение от Кулик Алексей aka kpblc Там лисп принципиально по-другому реализован. Начиная с того, что грузится не в документ, а в приложение. Да и части ограничений вроде бы нет. Особо не влезал.

Как там было? Я давно отключил подписи на форуме
"Майский жук летать не должен, но он об этом не знает, и летает" (пересказ цитаты).

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

Сообщение от ===AAA=== Да всё он правильно делает... Скорее всего. :-)

Похоже, кто-то ещё в теме?

----- добавлено через ~6 мин. -----
Предлагаю возродить старую добрую традицию Vov'ы - устроить конкурс?

----- добавлено через ~9 мин. -----
===AAA===, хотя, почитал, тему глубже, понял, что тебе для Нанокада надо. Тут не уверен.

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

Offtop:

Сообщение от skkkk Командными методами.

ЕМНИП, команды в каде могут выполняться в синхронном и асинхронном режимах (не просто так в лиспе ввели command-s, КМК). И как работает vla-sendcommand, я не знаю.

[skkkk]

Сообщение от Кулик Алексей aka kpblc И как работает vla-sendcommand, я не знаю.

Ну чтоб не быть голословным, приведу пример.

Код:

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

 (vl-load-com)
(setq Cmnd_Reac (vlr-command-reactor "Реактор команд: "	(list '(:VLR-commandEnded . commandEnded))))
(defun commandEnded (reac data / ) ; конец какой-то комады ACad
	(setq CMD (car data))
	(if 
		(member 
			CMD 
			(list ; если это была команда, ОТРЕЗОК или ПЛИНИЯ
				"_LINE" "LINE"
				"_PLINE" "PLINE" 
			)
		) 
		(progn
			(setq adoc (vla-get-ActiveDocument (vlax-get-acad-object)))
			(vla-SendCommand adoc "_-PURGE _A \n_N ")
		)
	)
)

Надо загрузить этот код в Кад и выполнить команду _LINE. По её завершении произойдёт очистка чертежа командой _-PURGE.

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

ЕМНИП, command выполняется в асинхронном режиме - т.е. код отправляет эту команду на выполнение и не сильно заморачивается с ожиданием ее выполнения. Аналогично сейчас ведет себя и vl-cmdf. command-s же блокирует код до завершения своего выполнения.
Как именно в этом разрезе будет вести себя vla-sendcommand, я не знаю. Вроде бы на adn-cis.org в какое-то время это обсуждалось

[skkkk]

Сообщение от Кулик Алексей aka kpblc в асинхронном режиме

В своё время я не особо заморачивался с такими нюансами, но помню, что у Полещука было сказано, что из-под реакторов командные методы недоступны. "А что с vla-SendCommand?"- подумал я и решил попробовать. И получилось

[===AAA===]

Насчёт асинхронного режима.

Чтобы всё было ОК, (vla-SendCommand) просто
нужно давать в самом конце реактора.

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

... а еще лучше вообще без него попытаться обойтисб ИМХО

[doctorraz]

Сообщение от Кулик Алексей aka kpblc Зачем DocumentActivated, когда достаточно DocumentCreated?

как всегда ты прав)))

Код:

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

  public class MyCommands : IExtensionApplication
  {
      void IExtensionApplication.Initialize()
      {
          Application.DocumentManager.DocumentCreated
            += DocumentManager_DocumentCreated;
      }
        void DocumentManager_DocumentCreated(object sender, DocumentCollectionEventArgs e)
        {
            //Set flag and send PLINE 
            Document doc = App.Application.DocumentManager.MdiActiveDocument;
            string lispPath = "c:/SDK_NC/NC_SDK_RU_24.0.6388.4326.7145/samples/Lisp/DCL/helloworld.lsp";
            string lispCmd = "helloworld";
            string loadStr = string.Format("(progn(load \"{0}\") (command \"{1}\"))\n", lispPath, lispCmd);
            doc.SendStringToExecute(loadStr, false, false, false);
        }
}

при создании-открытии нового документа здоровается)))
--------------
upd положил сборку в автозагрузку...
единственное НО, так как автозагрузка грузится уже после создания/загрузки первого документа, естественно на первом док не срабатывает
c napp.ini аналогичная шляпа(

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

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

[doctorraz]

Сообщение от Кулик Алексей aka kpblc Стесняюсь спросить - а что, сделать самовызывающийся лисп уже не катит? )

дык командные методы из реактора в лиспе жэж вроде не работают)))
а так то таже шляпа только в профиль, доделки переделки за нанодевами((

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

Слегка поигравшись, получилось нечто типа https://autolisp.ru/2024/07/15/nanocad-startup/