iLogic Ereignisauslöser aus Dokument löschen (Toolbox)

Innerhalb von Dokumenten kann ein iLogic-Ereignisauslöser definiert werden, der beim Auftreten des Ereignisses die entsprechende iLogicregel ausführt.

Wer diese Ereignisauslöser wieder loswerden will, kann dazu dieses VBA-Programm nutzen. Nach dem Ausführen sind die Ereignisauslöser entfernt.

Public Sub DelilogicAusloeser()
Dim oiLogicDoc As Document
Set oiLogicDoc = ThisApplication.ActiveDocument
Dim oiLogicPropSet As PropertySet
Dim iPropCount As Integer

Set oiLogicPropSet = oiLogicDoc.PropertySets.Item("{2C540830-0723-455E-A8E2-891722EB4C3E}")

While oiLogicPropSet.Count > 0
  oiLogicPropSet.Item(1).Delete
Wend
     
End Sub

Benutzer, die die Inventor Toolbox einsetzen, finden das Programm im Register Allgemein...

...und können das Programm automatisiert ausführen, indem sie das entsprechende VBA_<Dateiendung>Modul  um diesen Programmcode ergänzen.

Um das Programm bei Bedarf vor dem Speichern auszuführen ist das Programm VBA1001 zu ergänzen.

VBA1001 wird über das Kontextmenü im der Minitoolbox aufgerufen.

Eine weitere Möglichkeit wäre, eine entsprechende iLogicregel (VBA Code leicht modifizieren) auszuführen beim Speichern.