Select Connector Using Highlight Search Tool (VBA)

This example shows how to select a connector using the SolidWorks Routing Highlight Search tool.

'-------------------------------------------------------------
' Preconditions: Open an assembly document containing an
' electrical route with a connector named
' connector (3pin) female-2.
'
' Postconditions: None
'-------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swAssemblyDoc As SldWorks.AssemblyDoc

Dim rtRouteMgr As SWRoutingLib.RouteManager

Dim rtAdvancedRouteSelector As SWRoutingLib.AdvancedRouteSelector

Dim nbrComponents As Long

Dim selNames As Variant

Dim attachNames As Variant

Sub main()

Set swApp = CreateObject("SldWorks.Application")

Set swModel = swApp.ActiveDoc

Set swAssemblyDoc = swModel

 

' Get SolidWorks Routing Route Manager

Set rtRouteMgr = swAssemblyDoc.GetRouteManager()

 

' Access SolidWorks Routing's Highlight Search tool

Set rtAdvancedRouteSelector = rtRouteMgr.GetAdvancedRouteSelector

 

' Find the specified connector

nbrComponents = rtAdvancedRouteSelector.Find("connector (3pin) female-2", 0, True, False)

Debug.Print "Number of components named connector: " & nbrComponents

 

' Set the selection color to gray

rtAdvancedRouteSelector.SetSelectionColor True, 221

 

' Select the specified connector

attachNames = rtAdvancedRouteSelector.Select(0, False, Nothing, swBoth, selNames)

End Sub