---

I möchte ein VBA Programm schreiben, das bestimmte Layer in einer Zeichnung durch andere Layer ersetzt. Die Forumssuche und die Hilfe von Acad haben mir nicht weiter geholfen.
Hat so etwas schon jemand programmiert?

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

---

Hi,

bevor du jetzt grossartig in die Programmiererei einsteigst; ist es wirklich erforderlich etwas zu programmieren ? Oder würde der Befehl rename und ein Script eventuell schon reichen ?

------------------
Grüsse

Thomas

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

---

Wenn du mir erklärst wie ich ein Script auf einem Button legen kann?
Traue meinen Mitarbeitern nicht zu ein Script zu starten.

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

---

Auszug aus einem kleinem Layername-Umbenenner :

Code:

---

[...]
Dim objLayer as AcadLayer
For Each objLayer In ThisDrawing.Layers
objLayer.Name=Replace(objLayer.Name, "-'S", "_'S")
Next
[...]

---

------------------
MfG Proxy

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

---

Wenn ich den Code eingebe kommt VBA mit folgender Fehlermeldung

Run-time error '-2145386405 (8020005b)

Duplicate record name

Hier mein modifizierter Code:

Sub layer()

Dim objLayer As AcadLayer

For Each objLayer In ThisDrawing.Layers
    objLayer.Name = Replace(objLayer.Name, "AM_3", "AM_0")
Next

End Sub

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

---

Hallo,

die Lösung steckt in der Fehlermeldung

Duplicate record name

Es gibt bereits einen Layer mit diesem Namen.
Da musst du vorher untersuchen ob es den Layer
bereits gibt.

Vielleicht mit dieser Funktion.

Wenn ein Layer(name) schon vorhanden ist, kannst du ja eine
Meldung ausgeben.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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

---

Hallo Hman,

schau doch mal in die Express Tools, da gibt es viele Layertools auch das Layermerge. Das vermischt die Layer miteinander. Das brauchst du aber nur, wenn der neue Layer schon in der Zeichnung verendet wird. Ansosnten ist das Umbenennen die einfachste Lösung.

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

---

Hallo Hman,

hast du dich schon mit der Layerkonvertierung auseinander gesetzt? Ich weiß zwar nicht, ob dies bei der 2004er schon dabei ist, aber ich habe ganz komfortabel damit zahlreiche Zeichnungslayer in vielen Zeichnungen umbenannt.

Gruß,
Michael

------------------

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