Mit elementevents können Sie für jedes Microstation-Element VBA-Funktionen oder Keyins definieren, die bei bestimmten Systemereignissen aufgerufen werden. Dabei können Sie auf folgenden Ereignisse reagieren.

  • BEFORENEW - Vor Erstellen des Elementes
  • AFTERNEW - Nach Erstellen des Elementes

 

BEFORENEW - Vor Erstellen des Elementes

Dieses Ereignis wird immer dann aufgerufen, wenn ein neues Element im Designfile erzeugt wird. Das passiert z.B. wenn Sie ein Element kopieren, für das Ereignisse definiert wurden oder wenn Sie eine Zelle mit Ereignisdefinitionen im Designfile ablegen.

In der Ereignisfunktion können Sie das Element analysieren, dass gerade erzeugt werden soll. Set el=ElementEventsTools.GetCurrentElement().

Der Rückgabewert der Ereignisfunktion sagt elementevents, ob die Funktion abgebrochen werden soll. Wenn Sie 1 oder TRUE zurückgeben, wird das Erstellen des Elementes abgebrochen und es wird kein Element im Designfile abgelegt.

In der Ereignisfunktion können Sie ein Element erstellen, dass anstelle des eigentlichen Elementes im Designfile abgelegt werden soll. Nutzen Sie dafür ElementEventTools.SetReplaceElement(el).

Im beispielhaften Code wird die Anzahl von Zellen im DesignFile geprüft. Ist die Anzahl zu gross, wird die Erzeugung abgebrochen. Ansonsten wird die Anzahl als Text in die Zelle geschrieben.

Zum Beispiel...

 

AFTERNEW - Nach Erstellen des Elementes

Dieses Ereignis wird immer dann aufgerufen, nachdem ein neues Element im Designfile erzeugt wird. Das passiert z.B. wenn Sie ein Element kopieren, für das Ereignisse definiert wurden oder wenn Sie eine Zelle mit Ereignisdefinitionen im Designfile ablegen.