Nick Tzallas

Delete Drawing Layers Macro

Discussion created by Nick Tzallas on Jul 2, 2020
Latest reply on Jul 7, 2020 by Jim Riddell

****added code of macro used***

 

I recently found this older forum post and was hoping to use the macro to delete layers on some old legacy drawings we have here.

 

Running the macro on the open drawing, it does work, almost.

It deletes all layers except the first one in the list.

 

Am I not seeing something obvious here?

or is it it maybe an old macro version clashing with SW version?

 

Any insight would be appreciated

Please see below the macro I am using

 

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

 

 

See below screenshots for before and after macro

 

Running SW 2020 SP 3.0

Templates, sheet formats, drafting standards etc, have been created fresh in SW 2020

Win 10 Pro 64-bit (2004 Build)

 

Screen shot showing drawing layers before applying macro

 

Screen shot showing drawing layers after applying macro. All gone except the first

Outcomes