Ok, dann muß eben die Eigenbaulösung her
Das Script erzeugt einen neuen Menüpunkt “Eigenschaften…” unter “Seite”,
diesem dann noch eine Tastenkombination (z.B. STRG+E) zuordnen, fertig.
Danke an FrankS
(VB.Net)

Ok, dann muß eben die Eigenbaulösung her
Das Script erzeugt einen neuen Menüpunkt “Eigenschaften…” unter “Seite”,diesem dann noch eine Tastenkombination (z.B. STRG+E) zuordnen, fertig.Danke an FrankS (VB.Net)


Suplanus - Scripts - PagePropertiesEdit V1.0.1 (87)

Diskussionsthread P8-Magic


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

 ' PagePropertiesEdit, Version 1.0.1, vom 20.10.2009
'
' Erzeugt einen neuen Menüpunkt "Eigenschaften..." unter dem Hauptmenu "Seite",
' dieser ruft den Dialog "Eigenschaften" der aktuellen Seite auf.
' Dem neuen Menüpunkt kann dann z.B. die Tastenkombination "STRG+E" zugeordnet werden.
'
' Copyright by Frank Schöneck, 2009
'
' Erweitert durch Straight-Potter
' Menü-ID angepasst
' für Eplan Electric P8, ab V1.9.6
'
'
Public Class PagePropertiesEdit
  <DeclareMenu()> _
   Public Sub PagePropertiesEditMenu()
    Dim oMenu As New Eplan.EplApi.Gui.Menu()
        oMenu.AddMenuItem("Eigenschaften...", "PagePropertiesEditAction", "Eigenschaften der aktuellen Seite bearbeiten", 35149, 1, True, False)
  End Sub
  <DeclareAction("PagePropertiesEditAction")> _
   Public Sub PagePropertiesEditAction()
    Dim CommandLineInterpreter As New CommandLineInterpreter()
    'Aktuelle Seite markieren
    CommandLineInterpreter.Execute("XGedSelectPageAction")
    'Eigenschaften bearbeiten aufrufen
    CommandLineInterpreter.Execute("GfDlgMgrActionIGfWind /function:Properties")
 'Markierung aufheben
 CommandLineInterpreter.Execute("XGedEscapeAction")
  End Sub
End Class