Опрос значения каждые 5 минут

Автор Тема: Опрос значения каждые 5 минут  (Прочитано 7131 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн o5andreyАвтор темы

  • ADN OPEN
  • Сообщений: 3
  • Карма: 0
  • Skype: andrbrs
Здравствуйте. Как проверять значение атрибута каждые 5 минут без загрузки ЦП?
Код - Visual Basic [Выбрать]
  1. Public Sub ModBl()
  2. Dim objENT As AcadEntity
  3. Dim attribs As Variant
  4. ThisDrawing.Utility.GetEntity objENT, basepnt, "pick block : "
  5. attribs = objENT.GetAttributes
  6. textstr = attribs(1).TextString
  7. While attribs(1).TextString = textstr
  8.     DoEvents
  9. Wend
  10. MsgBox "Значение изменилось"
  11. For i = 1 To 3
  12.     Beep
  13. Next i
  14. End Sub
  15.  
("Кастомизированный" Bricscad 9, чертёж - программа (прямоугольники, линии, точки с цифрами))
(Библиотечная программа в режиме отладки программы-чертежа с периодичностью в пару секунд обновляет значение атрибута в тек. время, например, расход скипидара)

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13886
  • Карма: 1788
  • Рыцарь ObjectARX
  • Skype: rivilis
Re: Опрос значения каждые 5 минут
« Ответ #1 : 09-03-2023, 18:48:39 »
Как проверять значение атрибута каждые 5 минут без загрузки ЦП?
Как ты себе это представляешь? Если код будет выполнятся не асинхронно (например, в событии EndCommand), то пользователь не сможет пользоваться AutoCAD пока эта функция работает. Можешь конечно попробовать использовать таймер (SetTimer/KillTimer). Как использовать эти функции в VBA ищи сам.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение