[kos]

Есть такая необходимость: раз в минуту вылолнять определенную функцию (типа функции отклика). Очень похоже на обработку реактора. Однако AutoCAD не предоставляет события "Закончилась минута". Попытка организовать бесконечный цикл типа

Код:

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

(while T ...)

с последующим анализом времени в принципе работает, но загружает процессор так, что другие процессы чахнут.
Есть ли решение этой проблемы (задача для AutoCAD'а необычная...)?

[Геннадий aka PG]

Вводится по-минутная оплата?
В эту минуту, полагаю, пользователь что-то делает (работает, чертит, смотрит)?

[kos]

Сообщение от Геннадий aka PG Вводится по-минутная оплата?

Да, что-то вроде этого...

Сообщение от Геннадий aka PG В эту минуту, полагаю, пользователь что-то делает (работает, чертит, смотрит)?

Смотрит, только смотрит. Естественно, он может менять zoom, панорамировать, переходить по именованным видам, выводить на печать. Править - ни-ни!...

Как вариант от зависания можно попробовать в цикл добовлять (command "DELAY" 5000), хотя едва ли это поможет. Я знаю что при програмировании Win приложений можно создавать таймер и по прошествии необходимого времени система сама шлет сообщение. Но как это сделать на лиспе?. Может из VBA имеется возможность?

[kos]

Сообщение от AY Как вариант от зависания можно попробовать в цикл добовлять (command "DELAY" 5000), хотя едва ли это поможет. Я знаю что при програмировании Win приложений можно создавать таймер и по прошествии необходимого времени система сама шлет сообщение. Но как это сделать на лиспе?. Может из VBA имеется возможность?

Delay точно не поможет.
И в DOSе прерывание по таймеру было доступно. Но не в AutoCAD...
VBA - увы - не знаю.

А что если добавить лисп-функцию из ARX, а в ней получив из лиспа требуемый промежуток времени ожидать сообщения таймера, а потом возвращать значение в лисп? Интерестно будет ли такая конструкция подвешивать систему или вообще работать? В принципе, для знающего человека, такая функция раз плюнуть. Дело за малым: найти такого человека.

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

[Эдуард]

Есть такая необходимость: раз в минуту вылолнять определенную функцию (типа функции отклика).

Какую и для чего?

[Эдуард]

Почему-бы не привязать функцию отклика к реактору команд
С последующим отслеживанием переменной cdate?
Допустим так:

Код:

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

(defun rminutka	()
  (setq oldcd (fix (* (rem (getvar "cdate") 0.01) 10000)))
  (setq	svrm (vlr-command-reactor
	       nil
	       (list '(:VLR-commandwillstart . minutka))
	     ) ;_ end of vlr-command-reactor
  ) ;_ end of setq
) ;_ end of defun
(defun minutka (a b)
  (if

    (minusp
      (- oldcd
	 (setq newcd (fix (* (rem (getvar "cdate") 0.01) 10000)))

      ) ;_ end of -

    ) ;_ end of minusp
     (progn
       (alert "Минута уже прошла")
       (setq oldcd newcd)
     ) ;_ end of progn

  ) ;_ end of if
) ;_ end of defun

[kos]

Подниму тему, ибо проблема хотя и потеряла свою срочность, но по-прежнему не решена.

Эдуард, Ваше предложение привязаться к реактору команд не подходит. Функция отклика должна периодически выполняться независимо от того, делает пользователь что-либо или просто тупо смотрит в монитор. А может он курить пошел? Или (учитывая новогоднюю специфику) уже под елкой лежит?

[Torino]

Задать автосохранение рисунка раз в минуту (переменная savetime).
Прицепить к рисунку реактор vlr-beginSave.

Если рисунок большой, то сохранение раз в минуту будет сильно напрягать пользователя.
Тогда создаем временный пустой рисунок temp.dwg и цепляем реактор на него.
А сами переключаемся в рабочий рисунок.
Вот только не проверял, будет ли такая схема работать.

Чтобы пользователь ручками не менял переменную, цепляем реактор vlr-sysVarWillChange. И при изменении переменной savetime меняем ее обратно.

[kos]

Сообщение от Torino Если рисунок большой, то сохранение раз в минуту будет сильно напрягать пользователя. Тогда создаем временный пустой рисунок temp.dwg и цепляем реактор на него. А сами переключаемся в рабочий рисунок. Вот только не проверял, будет ли такая схема работать.

Увы, не будет. Ибо

Тип: целый Запись в: реестр

(с) help к AutoCAD 2004.
Т.е. переменная устанавливается для ВСЕХ рисунков и автоматически сохраняться будут тоже ВСЕ и "если рисунок большой, то сохранение раз в минуту будет сильно напрягать пользователя".

[vk]

На уровне идеи (возможно бредовой): внешний EXE-шник, добавленный в автозагрузку винды, ищет открытые сеансы АКАД, в них ищет чертежи с неким "контрольным" примитивом, модифицирует этот примитив... Ну а реактор, прицепленный к этому же примитиву, запускает какую надо функцию. Нет в чертеже "контрольки" - нет и запуска функции.

[AY]

>kos
Если Вас устраивал вариант (while T ...) за исключением "подвешивания", то я решительно не понимаю почему Вы отказываетесь рассматривать вариант с ARX. Я нашел Ваш адрес и вышлю все таки Вам вариант.

[kos]

Сообщение от AY >kos ...я решительно не понимаю почему Вы отказываетесь рассматривать вариант с ARX. Я нашел Ваш адрес и вышлю все таки Вам вариант.

Я не отказываюсь. Просто я весьма туманно знаю что такое ARX.
Если Вы будете так любезны и вышлете "вариант" - буду благодарен...

[AY]

>kos
Я вроде отправлял на kos***ring.by. Или куда следовало?

[kos]

Ящик kos@ring.by прекратил свое существование.
Внизу моих сообщений есть кнопочка "E-mail". Там все и написано...

[vk]

>kos
А нельзя ли поподробнее о глобальной задаче с "поминутной тарификацией"?

Не будучи специалистом в ObjectARX (да и вобще я не профи в программировании), попробовал сделать вот что. Это только наброски, хотя, работает для одного сеанса АКАД и одного чертежа.... Чтоб не ждать минуту, сделал паузу 10 секунд.

Лисп, который будет отрабатываться в чертеже (файл timeout.lsp в корне диска С: ):

Код:

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

(setq timeglobal 0)
(defun c:timeout ()
  (princ "\nTime ")
  (princ (setq timeglobal (1+ timeglobal)))
  (princ)
)

Скрипт (файл с расширением WBS):

Код:

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

<Job id="MyTestTimeout">
<?job debug="true"?>
<script language="VBScript">

	Dim WshShell, acadObj
	Set WshShell = WScript.CreateObject("WScript.Shell")

	On Error Resume Next

	Do ' цикл поиска процесса АКАДа в памяти
		Err.Clear
		Set acadObj = GetObject(, "AutoCAD.Application.16") ' 16 = 2005 или 2004
		If Err.Number > 0 Then ' если АКАД не найден в памяти
			WScript.Sleep 5000 ' то подождать 5 секунд
		End If
	Loop While Err.Number > 0 ' если АКАД не найден в памяти повторить поиск
	
	WshShell.Popup "Start of the TIMEOUT commands...", 3
	Err.Clear

	acadObj.ActiveDocument.SendCommand "(load ""c:\\timeout.lsp"") " ' загрузить Лисп

	Do ' цикл отработки таймаута
		WScript.Sleep 10000 ' ждать 10 секунд 
		If acadObj.ActiveDocument.GetVariable("cmdactive") = 0 Then ' если нет активной команды
			acadObj.ActiveDocument.SendCommand "timeout " ' то заслать команду в АКАД
		End If
	Loop While Err.Number = 0 ' повторять, пока не возникла ошибка (АКАД или документ отсутствует)
		
	WshShell.Popup "The END", 10
</Script>
</Job>

Работает так: После запуска скрипт периодически ищет в памяти запущенный АКАД, подгружает туда Лиспик и каждые 10 секунд передает в АКАД команду. Если произойдет ошибка на этапе передачи команды - скрипт завершает работу. WshShell.Popup оставил исключительно в информационных целях - их можно убрать. Проверял на Windows2000.

[vk]

[вырезано цензурой] (потирая шишку на лбу)
Почему то acadObj.ActiveDocument.GetVariable("cmdactive") не отрабатывает, если АКАД занят выполнением команды :?
Наверно надо обработку ошибки делать....

[Diman111]

Хотел бы поднять тему.
Есть потребность выполнять функцию с интервалом в n милисекунд.
Описанное выше проблему не решает. Предложение с использованием библиотеки arx и импортом функции в лисп мне кажется решит проблему. Если есть бибилиотека - выложите ее, пожалуйста. Возможно есть иное решение?

Upd.
кому интересна библиотека с Delay.
http://www.caduser.ru/forum/index.ph...#message257395