Für dieses Script ist die Erweiterung MultilanguageTool von EPLAN erforderlich. Diese findet ihr im Support-Bereich bei EPLAN zum Download (Symbolleiste zur Umschaltung der Fremdsprachen).

Anbei ein Beispielscript mit folgenden Funktion:

• GetProjectLanguages: Projektsprachen
• GetDisplayLanguages: Anzeigesprachen
• GetVariableLanguage: Einsprachig variabel

MultilanguageToolExamples_Get (1531 Downloads )

using System.Windows.Forms;
using Eplan.EplApi.ApplicationFramework;
using Eplan.EplApi.Scripting;

public class MultilanguageToolExamples_Get
{
    [Start]
    public void MultilanguageToolExamples_Get_Void()
    {
        CommandLineInterpreter oCLI = new CommandLineInterpreter();
        ActionCallingContext acc = new ActionCallingContext();
        string ActionReturnParameterValue = string.Empty;
        string strMessage = string.Empty;

        #region GetProjectLanguages
        oCLI.Execute("GetProjectLanguages", acc);
        acc.GetParameter("LANGUAGELIST", ref ActionReturnParameterValue);
        string[] ProjectLanguages = ActionReturnParameterValue.Split(';');

        foreach (string s in ProjectLanguages)
        {
            strMessage = strMessage + s + "\n";
        }
        MessageBox.Show(strMessage, "GetProjectLanguages");
        strMessage = string.Empty;
        #endregion

        #region GetDisplayLanguages
        oCLI.Execute("GetDisplayLanguages", acc);
        acc.GetParameter("LANGUAGELIST", ref ActionReturnParameterValue);
        string[] DisplayLanguages = ActionReturnParameterValue.Split(';');

        foreach(string s in DisplayLanguages)
        {
            strMessage = strMessage + s + "\n";
        }
        MessageBox.Show(strMessage, "GetDisplayLanguages");
        strMessage = string.Empty;
        #endregion

        #region GetVariableLanguage
        oCLI.Execute("GetVariableLanguage", acc);
        acc.GetParameter("LANGUAGELIST", ref ActionReturnParameterValue);
        string VariableLanguage = ActionReturnParameterValue;
        strMessage = strMessage + VariableLanguage + "\n";
        MessageBox.Show(strMessage, "GetVariableLanguage");
        strMessage = string.Empty;
        #endregion

    }
}

Update V2

Nairolf hat sich die Mühe gemacht und paar Änderungen am Script gemacht:

• Anpassung zum Einfügen von wahlweise Schrankbauteil / Artikelplatzierung, normales Bauteil
• Eingabemöglichkeit einer Bauteilbeschreibung
• Quellmakros angepasst (Flag “Bauteil benötigt Bohrung auf Montagefläche” = FALSE)
• Korrektur bei “Stückzahl / Menge”, wenn Artikelnummer leer
• Verhalten bei fehlender Eingabe B / H / T

Mit diesem Script kann ähnlich wie in EPLAN Cabinet ein Universalbauteil eingefügt werden.

Leider ist es in Pro Panel nicht möglich freie Geräte mit konfigurierbaren Abmaßen einzufügen. Es wird ein temporäres Makro erzeugt und als Artikelplatzierung normales Bauteil eingefügt.

Zusätzlich kann eine Artikelnummer vergeben werden.

Der Makropfad für die Vorlage muss im Script hinterlegt werden:

public string strMacroFileName1 = @"$(MD_MACROS)\InsertUniversalPart3D_Schrankbauteil.ema";
public string strMacroFileName2 = @"$(MD_MACROS)\InsertUniversalPart3D_Artikelplatzierung.ema";

Das Script laden und es erscheint ein neuer Menüpunkt unter Einfügen:

InsertUniversalPart3D_V2 (1517 Downloads )

InsertUniversalPart3D_Macros (1441 Downloads )

//Speicherort der Macro-Templates ggf hier anpassen:
public string strMacroFileName1 = @"$(MD_MACROS)\InsertUniversalPart3D_Schrankbauteil.ema";
public string strMacroFileName2 = @"$(MD_MACROS)\InsertUniversalPart3D_Artikelplatzierung.ema";

#region EPLAN menu
[DeclareMenu]
public void MenuFunction()
{
    Eplan.EplApi.Gui.Menu oMenu = new Eplan.EplApi.Gui.Menu();
    oMenu.AddMenuItem(
        "Freies Gerät...",
        "InsertUniversalPart3D",
        "Freies Gerät in den Bauraum einfügen...",
        37181,
        1,
        false,
        false
        );
}
#endregion

#region EPLAN action
[DeclareAction("InsertUniversalPart3D")]
public void InsertUniversalPart3DVoid()
{
    frmInsertUniversalPart3D_V2 frm = new frmInsertUniversalPart3D_V2();
    frm.ShowDialog();
}
#endregion

private void btnCancel_Click(object sender, System.EventArgs e)
{
    Close();
}

private void btnOk_Click(object sender, System.EventArgs e)
{    
    #region check_macro_to_use

    string sMacroFileName;
    switch (cbFunctionDef.Text)
    {
        case "Artikelplatzierung, normales Bauteil":
            sMacroFileName = strMacroFileName2;
            break;
        case "Schrankbauteil, allgemein":
            sMacroFileName = strMacroFileName1;
            break;
        default:
            sMacroFileName = strMacroFileName1;
            break;
    }
    #endregion

    #region check_user_entries
    if (txtWidth.Text == string.Empty || txtHeight.Text == string.Empty || txtDepth.Text == string.Empty)
    {
        MessageBox.Show("Die folgenden Eingaben müssen gefüllt sein:\n\n'Breite'\n'Höhe'\n'Tiefe'", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error);
        return;
    }
    #endregion

    #region insert_eplan_macro
    if (File.Exists(PathMap.SubstitutePath(sMacroFileName)))
    {
        // Read Template
        string NewMacro = File.ReadAllText(PathMap.SubstitutePath(sMacroFileName));

        // Replace
        NewMacro = NewMacro.Replace("$(Width)", txtWidth.Text.Replace(",","."));
        NewMacro = NewMacro.Replace("$(Hight)", txtHeight.Text.Replace(",", "."));
        NewMacro = NewMacro.Replace("$(Depth)", txtDepth.Text.Replace(",", "."));
        NewMacro = NewMacro.Replace("$(Partnumber)", txtPartnumber.Text);
        if (txtPartnumber.Text != string.Empty)
        {
            NewMacro = NewMacro.Replace("$(PartnumberCnt)", "1");
        }
        else
        {
            NewMacro = NewMacro.Replace("$(PartnumberCnt)", "0");
        }

        NewMacro = NewMacro.Replace("$(Description)", txtDescription.Text);

        // Macro
        string strMacroPathTemp = PathMap.SubstitutePath("$(TMP)") + @"\" + "InsertUniversalPart3D_TEMP.ema";
        File.WriteAllText(strMacroPathTemp, NewMacro);
        ActionCallingContext acc = new ActionCallingContext();
        acc.AddParameter("Name", "XMIaInsertMacro");
        acc.AddParameter("filename", strMacroPathTemp);
        acc.AddParameter("variant", "0");
        new CommandLineInterpreter().Execute("XGedStartInteractionAction", acc); 
    }
    else
    {
        MessageBox.Show("Vorlage nicht gefunden:\n" + sMacroFileName, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error);
    }
    #endregion

    Close();
}

#region NumTextbox
private static void NumTextbox(KeyPressEventArgs e)
{
    if (",.1234567890\b".IndexOf(e.KeyChar.ToString()) < 0)
    {
        e.Handled = true;
    }
}

private void txtWidth_KeyPress(object sender, KeyPressEventArgs e)
{
    NumTextbox(e);
}

private void txtHeight_KeyPress(object sender, KeyPressEventArgs e)
{
    NumTextbox(e);
}

private void txtDepth_KeyPress(object sender, KeyPressEventArgs e)
{
    NumTextbox(e);
}
#endregion

private void frmInsertUniversalPart3D_Load(object sender, System.EventArgs e)
{
    // Standard Werte setzen
    cbFunctionDef.Text = "Artikelplatzierung, normales Bauteil";
}

private void lilblVersion_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
    Process.Start(@"https://www.suplanus.de");
}

Mit diesem Script werden die fehlenden Kontextmenüeinträge im Bauraum ergänzt:

• Fenstermakro erzeugen
• Symbolmakro erzeugen

EPLAN hat hier keine Durchgängigkeit mit P8 bzw. Stromlaufplan, denn dort sind die Menüeinträge vorhanden. :dizzy:

MacrosInstallationSpaceContextMenu (1400 Downloads )

using Eplan.EplApi.Scripting;

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

        Eplan.EplApi.Gui.ContextMenuLocation oLocation =
            new Eplan.EplApi.Gui.ContextMenuLocation(
                "Editor",
                "Cabinet3D"
                );

        oMenu.AddMenuItem(
            oLocation,
            "Fenstermakro erstellen",
            "StoreWindowMacro",
            true,
            false
            );

        oMenu.AddMenuItem(
            oLocation,
            "Symbolmakro erstellen",
            "StoreSymbolMacro",
            false,
            true
            );
    }
}