---

Hallo Forum,

wie kann ich in VBA ein bereits erstellten Layer als aktiven Layer einstellen? Ich habe bis jetzt nur Varianten gefunden in denen kurz zuvor dieser Layer neu hinzu gefügt wurde?
Ich würde gerne in diesem Layer eine Linie zeichnen und dann zum nächsten Layer springen, um in diesem eine Linie zu zeichnen usw.. In der Acad-Hilfe steht auch nur die oben genannte Variant

Vielen Dank für die Hilfe

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

---

so?

Sub Example_SetVariable()
    ' This example sets various system variables, each of
    ' a different data type.
   
    Dim sysVarName As String
    Dim sysVarData As Variant
    Dim DataType As Integer
   
    Dim strData As String
    sysVarName = "CLAYER"
    strData = "My LAYER"
    sysVarData = strData        ' String data
    ThisDrawing.SetVariable sysVarName, sysVarData       
End Sub

aber warum weißt du der Linie nicht nach dem Zeichnen (addLine) einfach die entpsrechende Property LAYER zu ohne den aktuelen Layer zu ändern?

------------------
  - 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

---

Hallo,

den aktiven layer kannst du in VBA auch so einstellen

Code:

---

ThisDrawing.ActiveLayer = ThisDrawing.Layers("Layer1")

---

Wenn du jedoch verschiedene Elemente zeichnest, kannst du wie Thomas schon erwähnte, direkt die Eigenschaft des Layers setzen.

Code:

---

Linie.Layer="Layer1"

---

Dann brauchst du nicht immer den aktiven layer wechseln.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Die Idee mit der nachträglichen Layerzuweisung ist natürlich besser. Und sie funktioniert schon.

Danke

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