[sergtranes]

Уважаемые профи,

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

как отловить Event MODIFIED

буду вам очень благодарен

[Сергей Богатов]

WithEvents может помочь.
WithEvents Optional. Keyword specifying that varname is an object variable used to respond to events triggered by an ActiveX object. WithEvents is valid only in class modules. You can declare as many individual variables as you like using WithEvents, but you can't create arrays with WithEvents. You can't use New with WithEvents.

Но может лучше двигать(модифицировать) блок не штатной командой, а какой нибудь своей. Надёжней будет

[sergtranes]

двигать или менять геометрию (растягивать) должен чертежник - прога должна корректировать другие примитивы
почитал о WithEvents в хелпе - немного сложно. м.б. кто-нибудь может дать примерчик на "движение" ?

[Сергей Богатов]

где угодно в модуле

Код:

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

Dim X As New EventClassModule
Sub acadstartup()
Call InitializeEvents
End Sub
 
Sub InitializeEvents()
Set X.App = ThisDrawing.Application
End Sub

в классе EventClassModule

Код:

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

Public WithEvents App As AcadApplication
Private Sub App_AppActivate()
MsgBox "Привет друг"
End Sub

может поможет?

[sergtranes]

спасибо,
проверю - расскажу

не работает для моего класса.
хотел использовать для стандартного блока - не понятно как вставить в модуль станд класса это -

Public WithEvents blk As AcadBlockReference
Private Sub blk_Modified()
MsgBox "Привет друг"
End Sub

пример из хелпа даже не транслируется

[Сергей Богатов]

у меня работает... в Autocad 2009
но там нужно обязательно сделать

Код:

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

 
Dim X As New EventClassModule
 
.
.
 
Set X.App = ThisDrawing.Application

вместо App соответственно твой блок за которым ты хочешь "следить"

[sergtranes]

tak ?

EventClassModule - новый? его нужно создать?


в классе EventClassModule

Public WithEvents objBlock As AcadApplication
Private Sub App_AppActivate()
MsgBox "Привет друг"
End Sub

in module:

Dim objBlock As AcadBlockReference
.
.

Set x.objBlock=ThisDrawing.Application

????

[Сергей Богатов]

а причём здесь =ThisDrawing.Application ???

это в классе:
Public WithEvents objBlock As AcadApplication AcadBlockReference

типа этого в модуле:

Dim objBlock As AcadBlockReference уже не нужно

Код:

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

Set x.objBlock= ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "имяблока", 1#, 1#, 1#, 0)

или выбор уже созданного блока

[sergtranes]

esli я ставлю ето

Public WithEvents objBlock As AcadBlockReference

в модуль програрммы то транслятор дает ошибку
"Only valis in object module."
но у меня нет модуля AcadBlockReference
????