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 (993 Downloads)

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