SwapMacroFromMacroBox
Mit diesem Script könnt ihr Makros direkt tauschen. Voraussetzung ist dass der Makrokasten im Projekt platziert ist.
Vielen Dank an grc1cr für die Umsetzung!
SwapMacroFromMacroBox (2364 Downloads )
using Eplan.EplApi.Gui;
using Eplan.EplApi.Scripting;
public class EnableMacroChange
{
[DeclareMenu]
public void CreateMenu()
{
ContextMenuLocation oCtxLoc = new ContextMenuLocation();
oCtxLoc.DialogName = "Editor";
oCtxLoc.ContextMenuName = "Ged";
Eplan.EplApi.Gui.ContextMenu oCTXMnu = new Eplan.EplApi.Gui.ContextMenu();
oCTXMnu.AddMenuItem(oCtxLoc, "Makro tauschen...", "XMSwapMacroFromMacroBoxAction", true, false);
}
}
UpdateQueryTable Multiuserconflict
Es gibt einen Bug in EPLAN der das aktualiseren des Suchindexes verhindert.
EPLAN zeigt diese Fehlermeldung an, obwohl sonst keine Person an der Datenbank arbeitet:
Es gibt eine nicht dokumentierte Action in EPLAN um diese Meldung bzw. den Status zurückzusetzen:
XPameUpdateQueryTable /ClearMultiUserLock:1
Ich habe eine Toolbar mit genau einem Button erstellt:
UpdateQueryTable Toolbar (2296 Downloads )
Vielen Dank an hual aus dem CAD.de-Forum für die Bereitstellung der Lösung.
Artikel in Excel anpassen
Mit dieser Excel-Datei kann eine XML aus der EPLAN-Artikelverwaltung bearbeitet werden.
Sehr übersichtlich und praktisch.
Vielen Dank an CAE-Consulting.at!
Artikel-in-Excel-anpassen (7316 Downloads )
RemoveSelection
Mit dieser versteckten Action kann das Verhalten des Markierens im grafischen Editor geändert werden.
Das Script ausführen, das Verhalten wird geändert. Wollt ihr wieder das alte Verhalten, müsst Ihr das Script erneut ausführen.
Vielen Dank an FrankS für die Umsetzung.
RemoveSelection (2251 Downloads )
' RemoveSelection, Version 1.0.0, vom 29.02.2012
'
' Steuert, ob Objekte nach einer Interaktion deselektiert werden sollen.
' Default = 1
'
' Copyright by Frank Schöneck, 2012
'
' für Eplan Electric P8, ab V2.1.6
'
'
Public Class WriteSettings
_
Public Sub MyFunction()
Dim bolSetting As Boolean
Dim oSettings As New Eplan.EplApi.Base.Settings()
'Einstellung auslesen
bolSetting = oSettings.getBoolSetting("USER.GedViewer.RemoveSelection", 0)
'wenn nicht gesetzt, setzen
If bolSetting = False Then
oSettings.setBoolSetting("USER.GedViewer.RemoveSelection", True, 0)
MessageBox.Show("Die Einstellung wurde 'aktiviert'.", "RemoveSelection", MessageBoxButtons.OK, MessageBoxIcon.Information)
'wenn gesetzt, zurücksetzen
ElseIf bolSetting = True Then
oSettings.setBoolSetting("USER.GedViewer.RemoveSelection", False, 0)
MessageBox.Show("Die Einstellung wurde 'deaktiviert'.", "RemoveSelection", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub 'MyFunction
End Class



