Здравствуйте. Как проверять значение атрибута каждые 5 минут без загрузки ЦП?
Public Sub ModBl()
Dim objENT As AcadEntity
Dim attribs As Variant
ThisDrawing.Utility.GetEntity objENT, basepnt, "pick block : "
attribs = objENT.GetAttributes
textstr = attribs(1).TextString
While attribs(1).TextString = textstr
DoEvents
Wend
MsgBox "Значение изменилось"
For i = 1 To 3
Beep
Next i
End Sub
("Кастомизированный" Bricscad 9, чертёж - программа (прямоугольники, линии, точки с цифрами))
(Библиотечная программа в режиме отладки программы-чертежа с периодичностью в пару секунд обновляет значение атрибута в тек. время, например, расход скипидара)