Anbei jeweils ein kleines Script welches für die folgenden Navigatoren das jeweilige Kontextmenü um den Eintrag (den Funktionsaufruf)”…Korrigieren…” ergänzt. Damit spart man sich den Umweg diese Funktion über die entsprechenden Menüs wie beispielsweise für den Klemmenleisten-Navigator: Projektdaten > Klemmenleisten > Navigator > Korrigieren aufzurufen und kann sie direkt aus dem Kontextmenü starten.

• Klemmenleisten-Navigator
• Stecker-Navigator
• Kabel-Navigator
• Verbindungen-Navigator

Alle Scripte (vier Stück) sind im angehangenen Zip-File downloadbar (alle Scripte getestet mit der Version 2.1.4).

Kontextmenüeintrag korrigieren (1372 Downloads )

Danke noch einmal an Straight-Potter und Bernd für die Hilfe!

Public Class Verbindungenkorrigieren

   _
 Public Sub MenuFunction()

        Dim oConMenuLoc As New Eplan.EplApi.Gui.ContextMenuLocation("XCmPrjDataTreeDialog", "1017")
        Dim oConMenu As New Eplan.EplApi.Gui.ContextMenu()
        OConMenu.Addmenuitem(oConMenuLoc, "Verbindungen korrigieren...", "XCMCorrectionChoiceAction", False, False)

  End Sub
End Class

Public Class Steckerkorrigieren

   _
 Public Sub MenuFunction()

        Dim oConMenuLoc As New Eplan.EplApi.Gui.ContextMenuLocation("XpluGVTree", "1004")
        Dim oConMenu As New Eplan.EplApi.Gui.ContextMenu()
        OConMenu.Addmenuitem(oConMenuLoc, "Stecker korrigieren...", "XplugCallAutoCorrectionDlgAction", False, False)

  End Sub
End Class

Public Class Kabelkorrigieren

   _
 Public Sub MenuFunction()

        Dim oConMenuLoc As New Eplan.EplApi.Gui.ContextMenuLocation("XCCablePrjDataTabTree", "1126")
        Dim oConMenu As New Eplan.EplApi.Gui.ContextMenu()
        OConMenu.Addmenuitem(oConMenuLoc, "Kabel korrigieren...", "XCActionCorrectCable", False, False)

  End Sub
End Class

Public Class Klemmenkorrigieren

   _
 Public Sub MenuFunction()

        Dim oConMenuLoc As New Eplan.EplApi.Gui.ContextMenuLocation("TSGViewTree", "1004")
        Dim oConMenu As New Eplan.EplApi.Gui.ContextMenu()
        OConMenu.Addmenuitem(oConMenuLoc, "Klemmen korrigieren...", "XTPCallAutoCorrectionDlgAction", False, False)

  End Sub
End Class

Um ein bestimmtes Makro -welches mehrfach im Projekt vorkommt- zu aktualisieren, kann man folgenden Workflow verwenden:

• Im Projekt nach dem Makronamen suchen
• In der Suchergebnisliste alle gefunden Makrokästen markieren
• Neuer Menüpunkt – vorher Script laden
• Im Kontextmenü in der Suchergebnisliste “Makro aktualisieren…” nutzen

Makros aktualisieren (1704 Downloads )

Public Class Makroaktualisieren

  <DeclareMenu()> _
 Public Sub MakroFunction()

        Dim SPConMenu As New Eplan.EplApi.Gui.ContextMenu()
	Dim SPConMenuLoc2 As New Eplan.EplApi.Gui.ContextMenuLocation("XSeSearchResultsTab1", "1002")

	SPConMenu.Addmenuitem(SPConMenuLoc2, "Makros aktualisieren...", "XGedUpdateMacroAction", False, False)

  End Sub
End Class