Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  E3.series
  Seiten neu nummerieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Seiten neu nummerieren (1746 mal gelesen)
schippe
Mitglied
Entwicklung & Konstruktion


Sehen Sie sich das Profil von schippe an!   Senden Sie eine Private Message an schippe  Schreiben Sie einen Gästebucheintrag für schippe

Beiträge: 40
Registriert: 19.10.2005

erstellt am: 06. Dez. 2007 09:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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.


Sehen Sie sich das Profil von timmle an!   Senden Sie eine Private Message an timmle  Schreiben Sie einen Gästebucheintrag für timmle

Beiträge: 234
Registriert: 17.02.2005

erstellt am: 07. Dez. 2007 07:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für schippe 10 Unities + Antwort hilfreich


Blaetter_neu_nummerieren.jpg

 
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


Sehen Sie sich das Profil von schippe an!   Senden Sie eine Private Message an schippe  Schreiben Sie einen Gästebucheintrag für schippe

Beiträge: 40
Registriert: 19.10.2005

erstellt am: 07. Dez. 2007 08:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Rolf K. an!   Senden Sie eine Private Message an Rolf K.  Schreiben Sie einen Gästebucheintrag für Rolf K.

Beiträge: 1729
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für schippe 10 Unities + Antwort hilfreich

Hallo Schippe,

Ich denke , dass Dir der CIM-TEAM Support bestimmt helfen wird, wenn diese Funktion für Euch wichtig ist.

------------------
Es grüsst
Rolf K.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

schippe
Mitglied
Entwicklung & Konstruktion


Sehen Sie sich das Profil von schippe an!   Senden Sie eine Private Message an schippe  Schreiben Sie einen Gästebucheintrag für schippe

Beiträge: 40
Registriert: 19.10.2005

erstellt am: 07. Dez. 2007 10:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Rolf K. an!   Senden Sie eine Private Message an Rolf K.  Schreiben Sie einen Gästebucheintrag für Rolf K.

Beiträge: 1729
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für schippe 10 Unities + Antwort hilfreich

Hallo Schippe,

ich würde Dir gerne helfen, aber beim Scripting bin ich auch erst in der Lernphase.

------------------
Es grüsst
Rolf K.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

timmle
Mitglied
Entwicklungsing.


Sehen Sie sich das Profil von timmle an!   Senden Sie eine Private Message an timmle  Schreiben Sie einen Gästebucheintrag für timmle

Beiträge: 234
Registriert: 17.02.2005

erstellt am: 07. Dez. 2007 12:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für schippe 10 Unities + Antwort hilfreich

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.CreateSheetObject

If 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


Sehen Sie sich das Profil von schippe an!   Senden Sie eine Private Message an schippe  Schreiben Sie einen Gästebucheintrag für schippe

Beiträge: 40
Registriert: 19.10.2005

erstellt am: 07. Dez. 2007 13:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Mensch Uwe,

bist´n "Wahnsinnstyp"  !!!
Das funktioniert prima! Hast mir sehr damit geholfen. Besten Dank dafür und noch ein schönes WE...

Gruß

Schippe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Rolf K.
Ehrenmitglied
CAD-Konstrukteur


Sehen Sie sich das Profil von Rolf K. an!   Senden Sie eine Private Message an Rolf K.  Schreiben Sie einen Gästebucheintrag für Rolf K.

Beiträge: 1729
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für schippe 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz