---

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

---

probiers hiermit (ohne Fehlerabfang ect. , wirklich nur schnell zusammengeschrieben):

(defun C:NrLAYER ( / LAYER LAYERDATEN NR NAME)
  (setq NR -1)
  (While (setq LAYER (tblnext "LAYER" (null LAYER)))
    (setq Nr (1+ NR))
    (setq NRSTR (itoa NR))
    (while (<(strlen NRSTR)3)(setq NRSTR (strcat "0" NRSTR)))
    (setq NAME (cdr(assoc 2 LAYER)))
    (setq LAYERDATEN (entget(tblobjname "LAYER" NAME)))
    (entmod(subst(cons 2 (strcat NRSTR "_" NAME))(assoc 2 LAYERDATEN)LAYERDATEN))   
  )
  (princ)
)

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

---

Finde es echt daneben das man keine Rückmeldung auf eine Antwort bekommt.
Für dieses schnellgestrickte, aber sehr gut funzende Tool 10 Units
für Holger.

Gruß Jürgen

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

---

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

---

@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

---

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

---

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

---

Hallo Stelli,

macht nix, wer kennt das nicht.

Gruß Jürgen

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

---

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

---

Danke Holger,

hab's jetzt testen können.  Es klappt SUPER.

Besten Dank.

------------------
  Stephan
------------------

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

---

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

---

Olk.dwg.txt

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

---

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

---

Prima, läuft wie Hanne,

ist es vermessen, zu fragen, ob man für eine Auslieferung diese Nummerierung auch wieder entfernen kann?

Lutz

---

Könnte man sicher. Frag docch mal bei www.cad-od.de an.  SCNR

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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