Not sure what I'vd done, I can't open and read my previouspost
Here is the macro I record
I got the error msg from the statement:Part.ViewDisplayShadedWithEdges
Any idea, please help
Thx, Chris
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.ViewDisplayWireframe
Part.ViewDisplayHiddenremoved
Part.ViewDisplayShaded
Part.ViewDisplayShadedWithEdges
End SubSolidworksApi macros
Here is the macro I record
I got the error msg from the statement:Part.ViewDisplayShadedWithEdges
Any idea, please help
Thx, Chris
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.ViewDisplayWireframe
Part.ViewDisplayHiddenremoved
Part.ViewDisplayShaded
Part.ViewDisplayShadedWithEdges
End SubSolidworksApi macros