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 (886 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