Show hidden lines in shaded button?

The only time I needed this, I ended up overlaying two identical views.

Also, when I want a PDF with vector edges and shaded parts, it is necessary to overlay views. Shaded views show up in PDF's as bitmaps.

How about this:

'*** Beginning of Code *** Option Explicit Dim swApp As Object Dim swModel As Object Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc

If swApp.GetUserPreferenceIntegerValue(swEdgesShadedModeDisplay) = swEdgesShadedModeDisplayHLR Then swApp.SetUserPreferenceIntegerValue (swEdgesShadedModeDisplay), swEdgesShadedModeDisplayWireframe Else swApp.SetUserPreferenceIntegerValue (swEdgesShadedModeDisplay), swEdgesShadedModeDisplayHLR End If

swModel.ForceRebuild End Sub '*** End of Code ***

Later, Ken

I cannot believe I have the answer for this. Usually I only learn and never contribute because I am so stupid.

Go to "Tools\Options\System Options\Display-Selection" and under "Edge display in shaded with edges mode" uncheck "HLR" (hidden lines removed) and check "Wireframe"

I think this will give you what you want.

Timelord