---

Hallo,
habe bisher nur Excel und Inventor VBA gemacht.

Wer kann mir zum schnellen Einstieg ein Beispielmakro
zum Aus- und Einschalten von Layern in einer geöffneten Zeichnung
senden.

Wer hat sowas schon geschrieben?

Am besten ohne Beiwerk

+++++++++++++++++++++++
Sub Layer_ein_aus()

..............??

End Sub
+++++++++++++++++++++++

Vielen Dank für die Bemühungen im voraus

MFG

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

---

Hallo,

z.B. so

Code:

---

sub Layer_ein_aus (Layer as string)
    if not layer = thisdrawing.activelayer.name then
      thisdrawing.layers(Layer).freeze=thisdrawing.layers(Layer).freeze xor true
    end if
end sub

---

Stelli

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

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

---

Stelli war schneller  , aber voilá, auch noch ein Exampelchen:

Code:

---

Sub on_off()
    Dim arr, i
    arr = Array("Layer1", "Layer2", "Layer3")
    For i = 0 To UBound(arr)
        ThisDrawing.Layers(arr(i)).LayerOn = Not ThisDrawing.Layers(arr(i)).LayerOn
    Next
End Sub

---

Gruss Nancy

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

---

Hallo,
danke für die Antworten
Hab noch zwei Fragen

Gibt es für regenieren auch ein VBA Befehl??
Wie schalte ich zwischen Modell und Layout -Bereich per VBA um?

hab so etwas benötigt
++++++++++++++++++++++++++++++++++++
Sub Layer_ein_()

Dim Mldg As String

Dim Layer(2) As String

Layer(1) = "AM_CL"
Layer(2) = "AM_VIEWS"

Mldg = "Folgende Layer werden eingeblendet" _
& Chr(10) _
& Chr(10) & "Layer : " & Layer(1) _
& Chr(10) & "Layer : " & Layer(2)

Stil = vbYesNo + vbExclamation + vbDefaultButton2    ' Schaltflächen
titel = "Layer-Steuerung"  ' Titel definieren

Antwort = MsgBox(Mldg, Stil, titel)                        ' Meldung anzeigen.

If Antwort = vbNo Then ' Benutzer hat "Ja"
Exit Sub
End If

ThisDrawing.Layers.Item(Layer(1)).Freeze = False
ThisDrawing.Layers.Item(Layer(2)).Freeze = False

SendKeys "%A"
SendKeys "R"
'gibt es für regenieren auch ein VBA Befehl??

End Sub

++++++++++++++++++++++++++++++++++++++++++++++++++++++

MFG

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

---

Hallo,

Regenerieren:
thisdrawing.regen acAllViewports

Model/Paperspace:
Thisdrawing.ActiveSpace = acModelspace / acPaperspace

Stelli

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

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

---

Vielen Dank für die unglaublich schnellen und hilfreichen
Antworten!

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