ADN Club > VBA
Опрос значения каждые 5 минут
(1/1)
o5andrey:
Здравствуйте. Как проверять значение атрибута каждые 5 минут без загрузки ЦП?
--- Код - Visual Basic [Выбрать] ---Public Sub ModBl()Dim objENT As AcadEntityDim attribs As VariantThisDrawing.Utility.GetEntity objENT, basepnt, "pick block : "attribs = objENT.GetAttributestextstr = attribs(1).TextStringWhile attribs(1).TextString = textstr DoEventsWendMsgBox "Значение изменилось"For i = 1 To 3 BeepNext iEnd Sub ("Кастомизированный" Bricscad 9, чертёж - программа (прямоугольники, линии, точки с цифрами))
(Библиотечная программа в режиме отладки программы-чертежа с периодичностью в пару секунд обновляет значение атрибута в тек. время, например, расход скипидара)
Александр Ривилис:
--- Цитата: o5andrey от 09-03-2023, 16:55:49 ---Как проверять значение атрибута каждые 5 минут без загрузки ЦП?
--- Конец цитаты ---
Как ты себе это представляешь? Если код будет выполнятся не асинхронно (например, в событии EndCommand), то пользователь не сможет пользоваться AutoCAD пока эта функция работает. Можешь конечно попробовать использовать таймер (SetTimer/KillTimer). Как использовать эти функции в VBA ищи сам.
Навигация
Перейти к полной версии