| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Zähler für Seitenzahlen (2639 mal gelesen)
|
ELO Olaf Mitglied
Beiträge: 20 Registriert: 13.11.2009 AutoCAD 2010 WIN XP (jaja trotzdem...)
|
erstellt am: 15. Aug. 2014 14:34 <-- editieren / zitieren --> Unities abgeben:
Hallo Gemeinde Folgendes Problem: Ich habe hier etwa 200 Zeichnungen, die zusammen ein Schaltbuch ergeben. Die zeichnungen haben jede für sich einen Zeichnungsrahmen (Block). In diesem Block gibt es ein Feld "Seite". Dieses soll jetzt fortlaufend durchgezählt werden. Vorgabe dreistellig mit führenden Nullen. Also bspw. 001 bis 476. Das ganze hab ich zu allem Übel auch noch rund 20 Mal. Wie bekomm ich das hin, ohne alles händisch tippen zu müssen? Schon jetzt vielen Dank für eure Antworten Olaf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM Inventor AutoCAD 2022, AIP 4-2022 Win 10
|
erstellt am: 15. Aug. 2014 15:19 <-- editieren / zitieren --> Unities abgeben: Nur für ELO Olaf
|
ELO Olaf Mitglied
Beiträge: 20 Registriert: 13.11.2009 AutoCAD 2010 WIN XP (jaja trotzdem...)
|
erstellt am: 15. Aug. 2014 15:23 <-- editieren / zitieren --> Unities abgeben:
So ein Script hab ich ja. Aber ich muss ja nach dem generieren des scrips die Seitenzahlen händisch hochzählen, und das will ich nicht. Ich möchte ein script von Seite 1 bis seite n, welches automatisch die Seitennummern 1 bis n vergibt. Olaf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM Inventor AutoCAD 2022, AIP 4-2022 Win 10
|
erstellt am: 15. Aug. 2014 15:33 <-- editieren / zitieren --> Unities abgeben: Nur für ELO Olaf
Zitat: Original erstellt von ELO Olaf: So ein Script hab ich ja. ...Ich möchte ein script von Seite 1 bis seite n, welches automatisch die Seitennummern 1 bis n vergibt. Olaf
a) warum schreibst du das nicht b) warum schreibst du dir das nicht - wo ist jetzt das Problem? Kein Lust, kein Zeit, fehlende Fähigkeiten...? Ein Programm/Script was ein Script umschreibt ist auch nicht schwer zu erstellen, das würrde man vermutlich sagar mit Excel hinbekommen. Zeige mal dein aktuelles Script.
------------------ Mit freundlichem Gruß Udo Hübner www.CAD-Huebner.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ELO Olaf Mitglied
Beiträge: 20 Registriert: 13.11.2009 AutoCAD 2010 WIN XP (jaja trotzdem...)
|
erstellt am: 18. Aug. 2014 11:52 <-- editieren / zitieren --> Unities abgeben:
Moin Hab hier ein kleines Progrämmchen, welches mir das Script baut. Da wird einmal das Script als solches eingeben und dann die entsprechenden Dateien ausgewählt. OK drücken und das Script wird erstellt. Das sieht dann in meinem Fall etwa so aus: ATTEDIT N N Rahmen BLNR XXX 001 SICHERN SCHLIESSEN Was dann dabei rauskommt ist natürlich, dass für jede Datei die Seite 001 ausgegeben wird. Also so: _Open N: A01.dwg ATTEDIT N N Rahmen BLNR
XXX 001 SICHERN SCHLIESSEN _Open N: N02.dwg ATTEDIT N N Rahmen BLNR XXX 001 SICHERN SCHLIESSEN Jetzt muss ich händisch die Seitenzahlen ändern. Bei rund 200 Dateien in einem Script macht das nicht wirklich Spaß.
Gruß Olaf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jörg.jwd Ehrenmitglied V.I.P. h.c. CAD-PDM Administrator
Beiträge: 3109 Registriert: 05.11.2003 Win7-64,Win10-64 SWX 2010/11/12/13/14/15/16/17/18,19,20,21,22 Immer das aktuellste SP Autodesk Product Design Suite Standard 2020 DraftSight Énterprise 2021SP2 CIM Database 11.3 32GB RAM. NVIDIA Quadro P1000
|
erstellt am: 18. Aug. 2014 12:37 <-- editieren / zitieren --> Unities abgeben: Nur für ELO Olaf
Hallo Olaf, nur mal so ne Idee: Setz dir im Script mit dem Shell-Befehl eine Windows-Systemvariable (setx Seitenzahl 0), erhöhe diese bei jedem Durchlauf um 1 und lies sie zurück. ------------------ Grüße Jörg da ich weiß daß ich nichts weiß weiß ich immer noch mehr als die die nicht wissen daß sie nichts wissen (weiß nicht von wem) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ELO Olaf Mitglied
Beiträge: 20 Registriert: 13.11.2009 AutoCAD 2010 WIN XP (jaja trotzdem...)
|
erstellt am: 18. Aug. 2014 13:15 <-- editieren / zitieren --> Unities abgeben:
|
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1356 Registriert: 11.01.2006 Win 10 ACAD 2022
|
erstellt am: 18. Aug. 2014 14:02 <-- editieren / zitieren --> Unities abgeben: Nur für ELO Olaf
Anderer Weg: Eingabeaufforderung starten, in den Ordner mit den Plänen gehen und das hier ausführen. dir *.dwg /b/a:-d/on >dir.txt (Geht natürlich auch mit einer Batchdatei.) Jetzt hast du eine Textdatei mit den Dateinamen. Die Datei im Excel aufmachen und die Dateinamen in Spalte B schieben Jetzt kannst du die Befehle in die anderen Spalten schreiben und bis unten kopieren. In der Spalte mit der Nummer lässt du Excel aufzählen. Das speicherst du als Textdatei mit der Endung scr. Die machst du auf und löschst mit ersetzen alle Tabstopps raus, weil Excel die als Spaltentrenner reinschreibt. Fertig ist dein Script. Ich hab dir mal ein Excel-Beispiel angehängt. Klappt bei mir auch schon ewig so, ich hoffe ich hab in der Erklärung nichts vergessen.
------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jörg.jwd Ehrenmitglied V.I.P. h.c. CAD-PDM Administrator
Beiträge: 3109 Registriert: 05.11.2003 Win7-64,Win10-64 SWX 2010/11/12/13/14/15/16/17/18,19,20,21,22 Immer das aktuellste SP Autodesk Product Design Suite Standard 2020 DraftSight Énterprise 2021SP2 CIM Database 11.3 32GB RAM. NVIDIA Quadro P1000
|
erstellt am: 18. Aug. 2014 14:05 <-- editieren / zitieren --> Unities abgeben: Nur für ELO Olaf
Hallo Olaf, in dem Fall solltest du das Ganze evtl. in Lisp programmieren (lassen). ------------------ Grüße Jörg da ich weiß daß ich nichts weiß weiß ich immer noch mehr als die die nicht wissen daß sie nichts wissen (weiß nicht von wem) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ELO Olaf Mitglied
Beiträge: 20 Registriert: 13.11.2009 AutoCAD 2010 WIN XP (jaja trotzdem...)
|
erstellt am: 18. Aug. 2014 15:08 <-- editieren / zitieren --> Unities abgeben:
Hi Andreas Das mit der Excel Tabelle ist ne super Ideen Vielen dank dafür. Ein Problem hab ich aber trotzdem noch. Im Script steht ja "Alter Text" ersetzen durch "Neuer Text" und hier erwartet AutoCAD ja ein ENTER und kein Leerzeichen. Wie krieg ich denn das noch hin? In der ExcelTabelle kann ich doch nicht ersetzen durch Zeilenumbruch machen, oder? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1356 Registriert: 11.01.2006 Win 10 ACAD 2022
|
erstellt am: 18. Aug. 2014 16:33 <-- editieren / zitieren --> Unities abgeben: Nur für ELO Olaf
Ah, ja... Das ist wie hier schonmal beschrieben http://ww3.cad.de/foren/ubb/Forum54/HTML/027547.shtml#000004 Ich hab grade mal getestet ob man das als Lisp-Befehl ins Script schreiben lasen kann. Also : (command '"ATTEDIT'" "N" "N" "Rahmen" "BLNR" "" "XXX" usw. Aber da ist Excel so blöd und macht weitere Anführungszeichen in die Textdatei. Sieht dann so aus: "(command ""ATTEDIT"" ""N"" ""N"" ""Rahmen"" ""BLNR"" """" ""XXX"" usw. In den Excel-Foren hab ich auch noch keine Lösung gefunden, scheinbar ist Excel hier der Meinung "das muss so sein" Eigentlich musst du dann nur mit Ersetzen die überflüssigen Zeichen aus der Textdatei schmeißen. Ist zwar doof aber auf die Schnelle hab ich keine andere Lösung. Excel-Datei im Anhang ------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de [Diese Nachricht wurde von Andreas Kraus am 18. Aug. 2014 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ELO Olaf Mitglied
Beiträge: 20 Registriert: 13.11.2009 AutoCAD 2010 WIN XP (jaja trotzdem...)
|
erstellt am: 18. Aug. 2014 18:03 <-- editieren / zitieren --> Unities abgeben:
|