Nachdem wir dank Krischan aus dem grafischen Editor Drucken können, wollte ich die Funktion auch im grafischen Editor haben.

Script laden und es erscheint ein neuer Menüpunkt im Seitennavigator:

PrintPages (1907 Downloads )

using Eplan.EplApi.ApplicationFramework;
using Eplan.EplApi.Base;
using Eplan.EplApi.Scripting;

public class PrintPages
{
    [DeclareAction("PrintPages")]
    public void PrintPagesVoid()
    {
        CommandLineInterpreter oCLI = new CommandLineInterpreter();
        ActionCallingContext acc = new ActionCallingContext();

        string strPages = string.Empty;
        acc.AddParameter("TYPE", "PAGES");
        oCLI.Execute("selectionset", acc);
        acc.GetParameter("PAGES", ref strPages);

        Progress oProgress = new Progress("SimpleProgress");
        oProgress.SetAllowCancel(true);
        oProgress.SetAskOnCancel(true);
        oProgress.SetNeededSteps(3);
        oProgress.SetTitle("Drucken");
        oProgress.ShowImmediately();

        foreach (string Page in strPages.Split(';'))
        {
            if (!oProgress.Canceled())
            {
                acc.AddParameter("PAGENAME", Page);
                oCLI.Execute("print", acc);
            }
            else
            {
                break;
            }
        }
        oProgress.EndPart(true);

        return;
    }

    [DeclareMenu]
    public void MenuFunction()
    {
        Eplan.EplApi.Gui.ContextMenu oMenu =
            new Eplan.EplApi.Gui.ContextMenu();

        Eplan.EplApi.Gui.ContextMenuLocation oLocation =
            new Eplan.EplApi.Gui.ContextMenuLocation(
                "PmPageObjectTreeDialog",
                "1007"
                );

        oMenu.AddMenuItem(
            oLocation,
            "Seite(n) drucken",
            "PrintPages",
            true,
            false
            );

        return;
    }

}

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 (1677 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 (2047 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

Da seit der Version 2.0 das Projektdatenbankformat schon zum zweiten mal umgestellt wurde, gibt es viele Backups in den Projektordnern. Da es von EPLAN leider kein Tool gibt habe ich mal was geschraubt.

Mit diesem Tool können Backups mit Versionsstand im Projektnamen gesucht werden. Diese werden in einer Liste aufgeführt. Hier können einzelne Projekte vom Löschen ausgenommen werden. Ich möchte an dieser Stelle noch drauf hinweisen dass ich keinerlei Verantwortung für evtl. auftretende Probleme übernehme. Darum achtet genau darauf was ihr löscht! Empfehlenswert ist ein separates Backup der Projekte das ihr danach (wenn erfolgreich) löschen könnt.

Es werden alle Backups in einem Verzeichnis (optional mit Unterverzeichnissen) aufgelistet. Nach dem Löschen werden Projekte markiert:

• Grün: Projekt wurde erfolgreich gelöscht
• Rot: Projekt konnte nicht gelöscht werden (da z.B. jemand das Projekt geöffnet hat)

EplanBackupDeleter Video (2347 Downloads )

EplanBackupDeleter Setup 1.1 (2172 Downloads )

EplanBackupDeleter Source 1.1 (2169 Downloads )

Update V1.1:

Versionen wurden angepasst auf das neue Format “x.0”. Vielen Dank an Thomas für die Rückmeldung.

Mit diesem Script werden die Verbindungen automatisch aktualisiert wenn:

• Drucken Dialog geöffnet wird
• PDF Dialog geöffnet wird

Dies wurde ab der 2.0 SP1 nämlich entfernt.

  (mehr …)