This content has been marked as final. Show 3 replies
I want to set the Layer for the selected entitys but I didn´t know how.
I use the folowing code to select the entitys:
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
All entitys are selected but I can not figure out how to set the layer for each of them. All entitys should be on the same (1) layer.
Hope anybody can help!
Thanks a lot