I tried couple times and it doesn't seem working
I post it gain
Here is the macro I recorded and got the runtime error from thelast 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 Sub
SolidworksApi macros
I post it gain
Here is the macro I recorded and got the runtime error from thelast 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 Sub
SolidworksApi macros