---

Hallo!

Ich möchte mit einem Makro alle Layer mit dem Präfix 2H_ umbenennen in HZ_!
Mit dem Befehl -UMBENENN\LA möchte ich alle Layer auswählen die mit 2H_ beginnen!
Wie mache ich das??
Habs mit dem Wildcard * probiert funzt aber leider nicht!

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

---

Ich wage zu behaupten, daß keine Wildcards zulässig sind.

Schon mal das Layer-Konvertierungsprogramm angetestet, ev läßt sich damit was erreichen ? (EXTRAS / CAD_Standards/Layer...)

------------------
Wer aufräumt - ist nur zu faul zum suchen :-)

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

---

OK - das Layerkonvertierungsprogramm taugt da auch nix  - hab etwas rumgetestet :-(

Da bleibt wohl nur LISPELn oder auf AutoCAD 2009 warten...

------------------
Wer aufräumt - ist nur zu faul zum suchen :-)

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

---

Aber natürlich funkt das
die Layer
2H_*
umbenennen auf
HZ_*

Habe zu schnell gelesen, funkt in Kommandozeilenmode natürlich nicht, sorry

[Diese Nachricht wurde von cad4fun am 13. Feb. 2008 editiert.]

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

---

In Lisp würde das so aussehn :
Gruß Claudio

(defun c:renlay (/ Nam_A Nam_N Nam_Alt Nam_Neu)
    (setq Nam_A (getstring "\nALTER Teilstring von Layernamen :")
  Nam_N (getstring "\nNEUER Teilstring von Layernamen :")
          LayLI (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))
  (Vlax-for i LayLI (setq Nam_Alt (vlax-get-property i 'Name)
  (if (or (= Nam_Neu "0")(Tblsearch "LAYER" Nam_Neu))
      (Princ (strcat "Layer " Nam_Neu " konnte nicht umbenannt werden!"))
      (command "_-rename" "LA" Nam_Alt  Nam_Neu))  ))

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

---

Wohl nicht mein Tag -> Hier die RICHTIGEN Zeilen:

(defun c:renlay (/ Nam_A Nam_N Nam_Alt Nam_Neu)
    (setq Nam_A (getstring "\nALTER Teilstring von Layernamen :")
  Nam_N (getstring "\nNEUER Teilstring von Layernamen :")
          LayLI (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))
  (Vlax-for i LayLI (setq Nam_Alt (vlax-get-property i 'Name)
          Nam_Neu (vl-string-subst Nam_N Nam_A Nam_Alt))
  (if (or (= Nam_Neu "0")(Tblsearch "LAYER" Nam_Neu))
      (Princ (strcat "\nLayer " Nam_Neu " wurde nicht umbenannt."))
      (command "_-rename" "LA" Nam_Alt  Nam_Neu))  ))

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

---

Hallo!

Danke für das Tool!
Kann ich damit auch alle Layer in der Zeichnung auswählen?

MFG CADdoctor

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

---

Zitat:

---

Original erstellt von cad4fun:
Aber natürlich funkt das
die Layer
2H_*
umbenennen auf
HZ_*

---

Wenn Du weißt, wie - warum teilst Du Dein Wissen hier nicht? Denn mit -umbenenn oder _.-rename geht's nämlich nicht.

------------------
Ciao
J-SC
  ... geht's vielleicht doch?

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

---

Doch, genau so (mit Wildcard *) gehts mit UMBENENN
allerdings nur mit dem Dialog, nicht mit der Kommandozeilenvariante von
-UMBENENN

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Danke!
Funzt vielleicht in Acad 2009 mit der Kommandozeilenvariante von -UMBENENN!!!

MFG CADdoctor

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

---

Die Routine von Claudio funkt dann gut, wenn keine Xref's mit Layern zugeornet sind, welche auch dem Suchmuster entsprechen. Dann wird die Routine abgebrochen und verlangt alte Layernamen usw.  Am Ende ist dann ein Layer umbenannt und der andere nicht, also unkontrolliertes Verhalten (vielleicht könnte Claudio die Suche noch auf die aktuelle DWG beschränken).
Super, dass das Suchmuster auch mitten im Layernamen oder am Ende enthalten sein darf, was ja im Dialog auch nicht möglich ist.  U's sind unterwegs

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

---

@cad4fun
...damit es auch bei geladenen XREFs funktioniert ->
Gruß Claudio

(defun c:renlay (/ Nam_A Nam_N Nam_Alt Nam_Neu)
  (setq Nam_A (getstring "\nALTER Teilstring von Layernamen :")
        Nam_N (getstring "\nNEUER Teilstring von Layernamen :")
        LayLI (vla-get-layers (vla-get-activedocument(vlax-get-acad-object))))
  (Vlax-for i LayLI (setq Nam_Alt (vlax-get-property i 'Name)
          Nam_Neu (vl-string-subst Nam_N Nam_A Nam_Alt))
  (if (or (= Nam_Neu "0")(Tblsearch "LAYER" Nam_Neu)(vl-string-search "|" Nam_Alt))
          (Princ ".") (command "_-rename" "LA" Nam_Alt  Nam_Neu) )
(princ)) )

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

---

Perfekt

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

---

Tut mir leid, das meine obige Antwort deplatziert war - ich habe den Beitragtitel nicht richtig gelesen.

Als Ergänzung hier noch ein VBA Makro, welches auch XREF Layer umbenennen kann (soll - nicht getestet). http://discussion.autodesk.com/thread.jspa?threadID=320886

------------------
Mit freundlichem Gruß

Udo Hübner
Ich bin dabei: AUGI CAD-Camp in Hamburg - 4. März

[Diese Nachricht wurde von CAD-Huebner am 13. Feb. 2008 editiert.]

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