Insert Connection Point Example (VBA)

This example shows how to create a connection point for a tube for routing.

' ******************************************************************************

'

' Preconditions:

'      (1) SolidWorks Routing Add-in is loaded (Tools > Add-Ins > SolidWorks Routing).

'      (2) Specified document exists and is opened.

'

' Postconditions: Connection point for a tube

'                 is created using the selected edge.

'

' NOTE: Because this part document is used in a online

'       tutorial, do save any changes when closing the

'       document.

'

' ******************************************************************************

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swFeatMgr As SldWorks.FeatureManager

Dim Errors As Long

Dim Warnings As Long

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.OpenDoc6("C:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorial\routing-pipes\fittings\filter.sldprt", swDocPART, swOpenDocOptions_Silent, "", Errors, Warnings)

Set swModelDocExt = swModel.Extension

' Select the edge for the connection point;

' remember to specify a value of 1 for

' the Mark parameter for a circular edge for

' a tube's connection point

boolstatus = swModelDocExt.SelectByID2("", "EDGE", 0.001425156111225, 0.1755840982619, -0.09117938337181, False, 1, Nothing, 0)

' Insert a connection point for a tube

Set swFeatMgr = swModel.FeatureManager

Debug.Print "Connection point for tube created? " & swFeatMgr.InsertConnectionPoint(swConnectionPoint_Tube, 0, True, 25.4 / 1000, 0.1, 0.2, 0.3, 0.4, "", 0, 0, False, "Specification", "")

End Sub