Insert Connection Point Example (VB.NET)

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.

'

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

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

Imports System.Diagnostics

Partial Class SolidWorksMacro

    Public Sub main()

        Dim swModel As ModelDoc2

        Dim swModelDocExt As ModelDocExtension

        Dim swFeatMgr As FeatureManager

        Dim Errors As Long

        Dim Warnings As Long

        Dim boolstatus As Boolean

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

        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

        swFeatMgr = swModel.FeatureManager

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

    End Sub

    ''' <summary>

    ''' The SldWorks swApp variable is pre-assigned for you.

    ''' </summary>

    Public swApp As SldWorks

End Class