Shaded With Edges Macro Line

Hi,

I'm new to macro writing and am having trouble with something. Iwrote a small macro to switch the view to Iso, save the document,and close it. I would like to add a step which changes the displaymode to shaded with edges. For some reason I can't get this towork. Below is my code:

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Part.ShowNamedView2 "*Isometric", 7
Part.ViewDisplayShadedWithEdges
Part.Save
swApp.CloseDoc (swApp.ActiveDoc.GetPathName)
End SubSolidworksApi macros