| |
| CONTACT OPEN WORLD 2024, eine Veranstaltung am 12.11.2024
|
Autor
|
Thema: Seiten neu nummerieren (1791 mal gelesen)
|
schippe Mitglied Entwicklung & Konstruktion
Beiträge: 40 Registriert: 19.10.2005
|
erstellt am: 06. Dez. 2007 09:38 <-- editieren / zitieren --> Unities abgeben:
Hallo E³-User, wir testen derzeit das unsupportet Tool "Projektkonfigurator", vom CIM-Team. Die suptraktive Projektbearbeitung, mit Hilfe von Optionsfeldern funktioniert auch recht gut. Da wir damit aus Schaltplänen auch komplette Seiten löschen, entstehen natürlich Lücken in der Seitennummerierung. Wir sind leider momentan noch nicht in der Lage, eigene VB-Scripte zu erstellen. Daher nun die Frage in die Runde, ob vielleicht irgendwo bereits ein solches Script existiert bzw. ob jemand eines für uns erstellen würde. Gruß Schippe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
timmle Mitglied Entwicklungsing.
Beiträge: 234 Registriert: 17.02.2005
|
erstellt am: 07. Dez. 2007 07:06 <-- editieren / zitieren --> Unities abgeben: Nur für schippe
Hallo Schippe, wenn Du im Projektfenster (Lasche Blatt) auf den obersten Eintrag gehst und mit der rechten Maustaste draufklickst, dann gibt es in dem Menü einen Eintrag "Neu nummerieren..." Reicht das eventuell schon? ------------------ Gruß Uwe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
schippe Mitglied Entwicklung & Konstruktion
Beiträge: 40 Registriert: 19.10.2005
|
erstellt am: 07. Dez. 2007 08:36 <-- editieren / zitieren --> Unities abgeben:
Hallo Uwe, danke für deinen Tip. Diese Möglichkeit ist mir natürlich längst vertraut. Sie reicht mir also so nicht. Genau diese Funktion möchte ich mittels eines Scripts automatisieren. Gruß Schippe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Rolf K. Ehrenmitglied CAD-Konstrukteur
Beiträge: 1730 Registriert: 10.12.2002 ELCAD 2020 SP2 e3.2021 Windows 10 zuhause: Paintshop Pro 2022 Cray XT4 Privileg SR 12 PR Chivers Lemon Jelly
|
erstellt am: 07. Dez. 2007 10:02 <-- editieren / zitieren --> Unities abgeben: Nur für schippe
|
schippe Mitglied Entwicklung & Konstruktion
Beiträge: 40 Registriert: 19.10.2005
|
erstellt am: 07. Dez. 2007 10:06 <-- editieren / zitieren --> Unities abgeben:
Tja Rolf, darauf bin ich natürlich auch schon gekommen, da ich meistens hier eine Lösung bekommen habe. Aber der Support ist derzeit ziemlich stark ausgelastet und hatte keine passende Lösung in der Schublade. Deshalb habe ich mich nun vertrauensvoll ans Forum gewendet. Gruß Schippe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Rolf K. Ehrenmitglied CAD-Konstrukteur
Beiträge: 1730 Registriert: 10.12.2002 ELCAD 2020 SP2 e3.2021 Windows 10 zuhause: Paintshop Pro 2022 Cray XT4 Privileg SR 12 PR Chivers Lemon Jelly
|
erstellt am: 07. Dez. 2007 10:16 <-- editieren / zitieren --> Unities abgeben: Nur für schippe
|
timmle Mitglied Entwicklungsing.
Beiträge: 234 Registriert: 17.02.2005
|
erstellt am: 07. Dez. 2007 12:59 <-- editieren / zitieren --> Unities abgeben: Nur für schippe
Hallo Schippe, ich habe im Moment auch wenig Zeit. Wenn ganz einfach ohne Lücke neu durchnummeriert werden soll, geht es so: Code:
' !!VORSICHT!! ' Bei Aufruf werden die ursprünglichen Blattnummern zerstört! ' =========================================================== Set objE3 = CreateObject("CT.Application") Set objPrj = objE3.CreateJobObject Set objSht = objPrj.CreateSheetObjectIf objPrj.GetId = 0 Then MsgBox "Kein Projekt geöffnet" : WScript.Quit If objPrj.GetSheetCount < 1 Then MsgBox "Keine Blätter im Projekt vorhanden" : WScript.Quit 'alle BlattIds holen objPrj.GetSheetIds ShtIds 'Blattnamen anzeigen For i = 1 to UBound( ShtIds ) objSht.SetId ShtIds(i) objE3.PutMessage objSht.GetName Next 'Blattnamen neu durchnummerieren For i = 1 to UBound( ShtIds ) objSht.SetId ShtIds(i) objSht.SetName CStr(i) Next WScript.Quit
Das kann man jetzt natürlich verfeinern und nach Blatt-Typ u.s.w. vorsortieren.------------------ Gruß Uwe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
schippe Mitglied Entwicklung & Konstruktion
Beiträge: 40 Registriert: 19.10.2005
|
erstellt am: 07. Dez. 2007 13:48 <-- editieren / zitieren --> Unities abgeben:
|
Rolf K. Ehrenmitglied CAD-Konstrukteur
Beiträge: 1730 Registriert: 10.12.2002 ELCAD 2020 SP2 e3.2021 Windows 10 zuhause: Paintshop Pro 2022 Cray XT4 Privileg SR 12 PR Chivers Lemon Jelly
|
erstellt am: 07. Dez. 2007 18:07 <-- editieren / zitieren --> Unities abgeben: Nur für schippe
Hallo Schippe, denk auch an die Unities für Uwe. Ein Schönes Wochenende an alle Forum-Teilnehmer. ------------------ Es grüsst Rolf K.
[Diese Nachricht wurde von Rolf K. am 08. Dez. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |