Mit diesem Script wird ein neuer Menüpunkt unter Dienstprogramme erzeugt, welcher beim Aufruf die aktuell markierte Seitenanzahl ausgibt.
Danke an FrankS!
Mit diesem Script wird ein neuer Menüpunkt unter Dienstprogramme erzeugt, welcher beim Aufruf die aktuell markierte Seitenanzahl ausgibt.Danke an FrankS!
Suplanus - Scripts - Seitenanzahl Ermitteln (911 Downloads)
|
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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
Public Class Seitenanzahlermitteln _ Public Sub P8Tools() 'Menüpunkt erstellen Dim oMenu As New Eplan.EplApi.GUI.Menu() oMenu.AddMenuItem("&Seitenanzahl", "Seitenanzahl_ermitteln", "Anzahl der markierten Seiten anzeigen", 35032, 0, False, False) End Sub _ Public Sub strActionName_Menu() 'Anzahl der markierten Seiten ermitteln Dim strPages as string Dim strSeiten() as string Dim strAnzahl as string Dim strMeldung as string Dim ProjektContext as New ActionCallingContext() ProjektContext.AddParameter("TYPE", "PAGES") Dim CommandLineInterpreter as New CommandLineInterpreter() CommandLineInterpreter.Execute("selectionset", ProjektContext) strPages ="" ProjektContext.GetParameter("PAGES", strPages) strSeiten = strPages.Split(";") strAnzahl = strSeiten.GetUpperBound(0) + 1 strMeldung = "" strMeldung = strMeldung & "Aktives Projekt: " & ProjektName_ermitteln StrMeldung = strMeldung & System.Environment.NewLine StrMeldung = strMeldung & System.Environment.NewLine StrMeldung = strMeldung & "Markierte Seite(n): " & strAnzahl MessageBox.Show (strMeldung, "Seitenanzahlen", MessageBoxButtons.OK, MessageBoxIcon.Information) Return End Sub Public Function ProjektName_ermitteln 'Ausgewähltes Projekt ermitteln (nur den Namen) Dim strProjekt as string Dim strTeile() As String Dim ProjektContext as New ActionCallingContext() ProjektContext.AddParameter("TYPE", "PROJECT") Dim CommandLineInterpreter as New CommandLineInterpreter() CommandLineInterpreter.Execute("selectionset", ProjektContext) ProjektContext.GetParameter("PROJECT", strProjekt) 'nur den Projektnamen ermitteln strTeile = strProjekt.Split("\") strProjekt = strTeile(strTeile.Length -1) 'Dateiendung abschneiden strProjekt = strProjekt.Substring(0, strProjekt.LastIndexOf(".")) 'Projektname zurückgeben ProjektName_ermitteln = strProjekt End Function End Class |