| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Layernamen duchnummerieren (716 mal gelesen)
|
Plotter Mitglied
Beiträge: 267 Registriert: 11.02.2004 Windows 10 64-bit AutoCAD 2021 DDS-CAD Adobe Acrobat Pro DC
|
erstellt am: 29. Nov. 2005 16:32 <-- editieren / zitieren --> Unities abgeben:
Hallo, gibt es eine Möglichkeit wie man alle vorhandenen Layer durchnummerieren kann? Ich habe eine Zeichnung mit 300 Layern bekommen, bei denen die Layernamen so abstrakt sind, dass man kaum damit arbiten kann. Ich möchte nun gerne vor jedem Layernamen eine Zahl bekommen, am Betsen noch mit Unterstrichen z. B.: 001__LEG-TRA$0$VEA-AUSSTATTUNG ... 028__V2L-----$0$V2L--GL- ... 276__VEL----3$0$ERPP5GRUEN Kann man das automatisch hinbekommen?
------------------ Stephan ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 29. Nov. 2005 16:43 <-- editieren / zitieren --> Unities abgeben: Nur für Plotter
|
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2014 win7x64bit
|
erstellt am: 02. Dez. 2005 13:22 <-- editieren / zitieren --> Unities abgeben: Nur für Plotter
|
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2013, Rasterdesign MapGuide 6.5 - 2013 Oracle 9i,10g,11g Enterprise autodesk Topobase 2-2012 VS6, VS.net
|
erstellt am: 02. Dez. 2005 13:55 <-- editieren / zitieren --> Unities abgeben: Nur für Plotter
Hallo Jürgen, Zitat: Original erstellt von Jürgen Scheeren: Finde es echt daneben das man keine Rückmeldung auf eine Antwort bekommt. ...
Dein Posting find ich nicht gut. Die dir Antworten sollten, haben vielleicht auch Layer oder andere Sorgen. Lieber andere Stunden programmieren lassen und selber 1/2 Std sparen ? Stelli
------------------ Warum lisp'eln wenn's auch anders geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Plotter Mitglied
Beiträge: 267 Registriert: 11.02.2004 Windows 10 64-bit AutoCAD 2021 DDS-CAD Adobe Acrobat Pro DC
|
erstellt am: 05. Dez. 2005 06:55 <-- editieren / zitieren --> Unities abgeben:
@Jürgen Gemach! Warum haust du gleich so um Dich. Zum einen war ich krank, konnte nicht am Rechner arbeiten und versuche als Änfänger mit nicht vorhandenen Lisp Kenntnissen trotzdem erst einmal selber es hin zu bekommen. Zum anderen habe ich mich für gelöste Probleme immer bedankt, verbal und mit Units. Schließlich motiviert es Leute wie Holger weiter zu machen! @Holger Hier ist gerade Welt unter. Trotzdem danke für die schnelle Hilfe! Musste das Projekt erst einmal auf Eis legen, gibt z.Zt. wichtigeres. Werde es aber auf jeden Fall testen.
------------------ Stephan ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2014 win7x64bit
|
erstellt am: 06. Dez. 2005 10:56 <-- editieren / zitieren --> Unities abgeben: Nur für Plotter
Hallo Stephan, sorry wenn das etwas zu hart angekommen ist, aber beim durchsehen der Beiträge fällt mir immer wieder auf, dass sich Leute große Mühe mit den Antworten geben und dann von den Fragestellern keine Rückmeldung oder ein Danke kommt. Ich denke ein Feedback ist für alle Beteiligten wichtig, und das man mal ein Danke hier reinstellt finde ich selbstverständlich. Also nochmal Entschuldigung für die harte Formulierung, hätte ich auch anders schreiben können und es hat ja auch leider den falschen getroffen. Hallo Stelli, ne, ne, hier soll keiner stundenlang Programmieren, hast den Beitrag falsch verstanden, hoffe mein Beitrag ist jetzt verständlicher. Gruß Jürgen [Diese Nachricht wurde von Jürgen Scheeren am 06. Dez. 2005 editiert.] [Diese Nachricht wurde von Jürgen Scheeren am 06. Dez. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1 Ehrenmitglied Verm.-Ing.
Beiträge: 1526 Registriert: 17.08.2005 Map 2000-2013, Rasterdesign MapGuide 6.5 - 2013 Oracle 9i,10g,11g Enterprise autodesk Topobase 2-2012 VS6, VS.net
|
erstellt am: 06. Dez. 2005 11:59 <-- editieren / zitieren --> Unities abgeben: Nur für Plotter
Hallo Jürgen, beim nochmaligen Lesen sehe ich das mein Beitrag absolut Sch* war. Hab's erst mal völlig falsch verstanden. Tur mir Leid, die Nerven liegen leider manchmal blank. Stelli ------------------ Warum lisp'eln wenn's auch anders geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Jürgen Scheeren Mitglied Energieanlagen Konstrukteur , CAD-Administrator
Beiträge: 262 Registriert: 03.04.2003 Autocad MEP 2014 win7x64bit
|
erstellt am: 06. Dez. 2005 15:33 <-- editieren / zitieren --> Unities abgeben: Nur für Plotter
|
Ex-Mitglied
|
erstellt am: 07. Dez. 2005 16:47 <-- editieren / zitieren -->
Das funktioniert ja wunderbar! Leider haben wir viel mit russischem Zeichensatz zu tun. Leider sind dabei auch die Layer in russisch beschriftet. Wie müßte man vorgehen, wenn es auch mit den kyrillischen Layerbezeichnungen funktionieren soll? Danke für´s Denken Lutz |
Plotter Mitglied
Beiträge: 267 Registriert: 11.02.2004 Windows 10 64-bit AutoCAD 2021 DDS-CAD Adobe Acrobat Pro DC
|
erstellt am: 08. Dez. 2005 06:59 <-- editieren / zitieren --> Unities abgeben:
|
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 08. Dez. 2005 12:42 <-- editieren / zitieren --> Unities abgeben: Nur für Plotter
Zitat: Original erstellt von Lutz_G: ...vorgehen, wenn es auch mit den kyrillischen Layerbezeichnungen funktionieren soll...
Für das programm sollte es keine Rolle spielen, in welcher Sprache die Zeichnung erstellt ist. Ich vermute das Problem an anderer Stelle, habe aber keine Lust ins blaue hineinzuproggen. Stell am besten mal eine Bsp-Zeichnung hier ins Forum, dann schau ich mal drüber. (die Zeichnung kann leer sein, brauche ja nur die Layer. Also alles löschen und NICHT bereinigen) Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 08. Dez. 2005 13:41 <-- editieren / zitieren -->
Hallo Holger, anbei das Beispiel. Die Layerbezeichnungen kann man allerdings nur nach dem Laden des russischen Tastaturtreibers lesen (sehen, für die, die des russischen nicht mächtig sind). Lutz |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 08. Dez. 2005 14:09 <-- editieren / zitieren --> Unities abgeben: Nur für Plotter
Hallo Lutz, ok, dann eben via ActiveX
Code:
(defun C:NrLAYER ( / LAYER LAYERDATEN NR NAME LName dwg Layers) (setq NR -1) (setq dwg(vlax-get-property (vlax-get-acad-object) 'ActiveDocument)) (setq Layers (vlax-get-property dwg 'Layers)) (vlax-for Layer Layers (setq LName (vlax-get-property Layer 'Name)) (if (/= "0" LName) (progn (setq Nr (1+ NR)) (setq NRSTR (itoa NR)) (while (<(strlen NRSTR)3)(setq NRSTR (strcat "0" NRSTR))) (setq NRSTR (strcat NRSTR "_" LName)) (vlax-put-property Layer 'Name NRSTR) ) ) ) (princ) )
------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 08. Dez. 2005 16:54 <-- editieren / zitieren -->
Prima, läuft wie Hanne, ist es vermessen, zu fragen, ob man für eine Auslieferung diese Nummerierung auch wieder entfernen kann? Lutz |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 08. Dez. 2005 16:58 <-- editieren / zitieren --> Unities abgeben: Nur für Plotter
|