Run SolidWorks Commands Example (VBA)

This example shows how to programmatically open the Fillet PropertyManager page using your specified title for this PropertyManager page. It also programmatically changes the view orientation of the part to Front.

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

'

' Preconditions:

'         (1) Make sure that a reference to SolidWorks 2007 (or later)

'             Commands type library, or later, exists -- in the Microsoft Visual

'             Basic IDE, click Tools, References, and locate SolidWorks

'             2007 (or later) Commands type library, or later, and check to see that it is

'             selected. If it is not, then select it and click OK.

'         (2) Open a part in SolidWorks.

'         (3) Change the view orientation of the part to any view

'             except Front.

'         (4) Select the edges on the part that you want filleted.

'                

'

' Postconditions:

'         (1) "My Fillet" PropertyManager page opens.

'         (2) Interactively click the OK button on the

'             "My Fillet" PropertyManager page to fillet the

'              selected edges.

'         (3) View orientation of the part is changed to Front.

'

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swSelMgr As Object

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swModelDocExt = swModel.Extension

    //Open SolidWorks Fillet PropertyManager page; title of page is "My Fillet"

    swModelDocExt.runCommand swCommands_Fillet, "My Fillet"

    Stop  

    'First interactively click OK in the PropertyManager page to

    'create the fillets, then step over Stop

    'Change the view orientation of the part to Front

    swModelDocExt.runCommand swCommands_Front, ""

End Sub