---

Hallo,

meine suche für folgendes Problem blieb ohne Erfolg.

Ich habe eine Zeichnungsvorlage in der sich nun mehr 255 Layer befinden. Ich möchte diese (oder auch alle) löschen.
Zur Verfügung steht mir nur das Layer-Menü in dem ich jeden Layer einzeln löschen muss. Das ist nicht Zielführend, da ich auch weitere Zeichnungen korrigieren muss.
Einen Befehl "LayerMgr.DeleteLayer" habe ich gefunden. Dieser lässt sich aber nicht ausführen, weil er nicht gefunden wird. Ist die Kommandozeile oben rechts standardmäßig aktiv? Denn ich habe auch weitere Befehle nie geunden...

(SW2014 auf Win7)

Hat jemand eine zündende Idee?

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

---

Meinst du das SOLIDWORKS Suchfeld oben rechts?
Damit kann man Befehle suchen oder Dateien oder Infos in der Hilfe.
Es ist aber keine Kommandozeile.

------------------
Andreas Westphal
SOLIDWORKS zertifiziert

Ing.-Büro Westphal

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

---

Die DeleteLayer Methode ist eine API-Funktion, die kannst du z.B. in einem Makro verwenden.

Macro, how to delete layers?

Code:

---

Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim doc As ModelDoc2
    Dim lyrMgr As LayerMgr
    Dim v As Variant
    Dim i As Integer
    Dim count As Integer
    Set swApp = Application.SldWorks
    Set doc = swApp.ActiveDoc
    Set lyrMgr = doc.GetLayerManager
    count = lyrMgr.GetCount
    v = lyrMgr.GetLayerList
    For i = 1 To count - 1
        lyrMgr.DeleteLayer (v(i))
    Next i
End Sub

---

------------------
21 ist nur die halbe Antwort.

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

---

BINGO!

Das hat funktioniert. Muss wohl einen Fehler bei einem anderem Makro gemacht haben.

Vielen Dank 

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

---

Meinst du das SOLIDWORKS Suchfeld oben rechts?
Damit kann man Befehle suchen oder Dateien oder Infos in der Hilfe.
Es ist aber keine Kommandozeile.

------------------
Andreas Westphal
SOLIDWORKS zertifiziert

Ing.-Büro Westphal

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