[===AAA===]

Всем привет!

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

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

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

[Кулик Алексей 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 аналогичная шляпа(