Сообщество программистов Autodesk в СНГ

ADN Club => VBA => Тема начата: o5andrey от 09-03-2023, 16:55:49

Название: Опрос значения каждые 5 минут
Отправлено: o5andrey от 09-03-2023, 16:55:49

Здравствуйте. Как проверять значение атрибута каждые 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, чертёж - программа (прямоугольники, линии, точки с цифрами))
(Библиотечная программа в режиме отладки программы-чертежа с периодичностью в пару секунд обновляет значение атрибута в тек. время, например, расход скипидара)

Название: Re: Опрос значения каждые 5 минут
Отправлено: Александр Ривилис от 09-03-2023, 18:48:39

Цитата: o5andrey от 09-03-2023, 16:55:49

Как проверять значение атрибута каждые 5 минут без загрузки ЦП?

Как ты себе это представляешь? Если код будет выполнятся не асинхронно (например, в событии EndCommand), то пользователь не сможет пользоваться AutoCAD пока эта функция работает. Можешь конечно попробовать использовать таймер (SetTimer/KillTimer). Как использовать эти функции в VBA ищи сам.