---

Hallo Leute wie kann ich Layergruppen auslesen/erzeugen??
Da der alte Layermanager nicht funktioniert um die Layer zu importieren/exportieren frage ich diesbezüglich nach
Mfg Chris

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

---

Hallo Chris!

Beim googlen habe ich dieses gefunden:
http://books.google.de/books?id=HXG2N2Wy6iMC&pg=PA166&lpg=PA166&dq=vba+autocad+layer+gruppe+auslesen&source=web&ots=aho8jChmAa&sig=7EXpUlMxA_Q4mYN7myoLSuPWmT8&hl=de#PPA165,M1

Gruß

Dirk

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

---

Layer erzeugst du so:

Code:

---

Dim Layer As AcadLayer
Dim Farbe As AcadAcCmColor
Dim Linie as AcadLine

Set Layer = ThisDrawing.Layers.Add("NameLayer")
Layer.Linetype = "NameLinientyp"
Layer.Lineweight = 0.25 'Linienstärke in [mm]
Set Farbe = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
Call Farbe.SetRGB(80, 100, 244)
Layer.TrueColor = Farbe
'Layer einem Object zuweisen:
Linie.Layer = "NameLayer"

---

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

---

Wie ich Layer erzeuge weiß ich nur nicht wie das mit den Gruppen funktioniert!
Mfg Chris

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

---

Hat niemand ein kleines Beispiel wie ich Layer Gruppen erzeuge bzw auslesen kann?
Mfg Chris

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

---

Hallo Chris,

Meinst du sowas?!

Gruß, Carsten

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

---

Hm danke erst mal aber hast da vielleciht noch einige Zusatzinformationen?
bzw Beispiele weiß noch nicht so ganz wie die Datenstruktur hier funktioniert??

Wie weiße ich Layer einem Gruppenfilter hinzu??

zb Layer Text1, text2 soll auf dem Gruppenfilter TEXTE sein!

Mfg Chris

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