Macro to change Display Style of Drawing View 1

[kris44]

Does anyone have a Macro which will change all drawing views to a particualr Display Style (e.g. HLR, Shaded)? We like to show our assembly drawings in shaded but it makes it very slow to work with them.

 

[ArtemTat]

Hi,

Try this macro

Dim swApp As SldWorks.SldWorks
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View

Sub main()

Set swApp = Application.SldWorks
Set swDraw = swApp.ActiveDoc

Set swView = swDraw.GetFirstView

While Not swView Is Nothing

swView.SetDisplayMode swDisplayMode_e.swSHADED

Set swView = swView.GetNextView

Wend

swDraw.EditRebuild

End Sub

Please modify the swDisplayMode_e enumerator's value to display the view you would like.

Thanks,
Artem

Artem Taturevich
CSWP

 

[kris44]

Thank you - star for you