Save as De-Featured File Example (VBA)

This example shows how to de-feature an assembly and save it as a part.

' -----------------------------------------------------------------------------

' Preconditions: Open:

' <SolidWorks_install_dir>\samples\tutorial\cosmosfloxpress\ball valve\ball_valve.sldasm.

'

' Postconditions:  The de-featured assembly is saved as a part.

' ------------------------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SaveDeFeaturedFile("c:/temp/ball_valve.sldprt")

End Sub