Create Auto Route Example (VBA)

This example shows how to connect two points using the Auto Route interface.

'----------------------------------------------------------------------------
' Preconditions:
'
' 1. Add SolidWorks Routing as an add-in

'    (in SolidWorks select Tools > Add-Ins > SolidWorks Routing).
' 2. Add the SolidWorks <version> Routing Type Library as a reference 

'    (in the IDE select Tools > References).
' 3. Open:

' <SolidWorks_install_dir>\samples\tutorial\api\top_assy_connectors.sldasm
' 4. In Tools > Options > System Options > Routing > Routing File Locations, 

'    add locations of your SolidWorks Routing files.
' 5. Select the assembly that contains Route1 in the FeatureManager design tree.
' 6. Open an Immediate Window.
'
' Postconditions: Auto Route connects the pins in orthogonal fashion 

' in the electronic housing.
'
' NOTE: Because the assembly is used in a SolidWorks demo, 

' do not save any changes to it.
'----------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Option Explicit
Sub main()
Dim swModel As SldWorks.ModelDoc2
Dim swTopLevelAssembly As SldWorks.AssemblyDoc
Dim rtRouteManager As SWRoutingLib.RouteManager
Dim autoRoute As SWRoutingLib.autoRoute
Dim resultCode, boolstatus As Long

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swTopLevelAssembly = swModel

' Get the RouteManager from the top-level assembly
Set rtRouteManager = swTopLevelAssembly.GetRouteManager
If rtRouteManager Is Nothing Then
Debug.Print "No RouteManager found in top-level document: " & swTopLevelAssembly.GetPathName
Exit Sub
End If

rtRouteManager.EditRoute
Set autoRoute = rtRouteManager.GetAutoRoute
autoRoute.ShowGuidelines
boolstatus = swModel.Extension.SelectByID2("Point3", "SKETCHPOINT", -0.457835, 0.10795, -0.2032, True, 0, Nothing, 0)
boolstatus = swModel.Extension.SelectByID2("Point8", "SKETCHPOINT", -0.218948, 0.0508, -0.470281, True, 0, Nothing, 0)
resultCode = autoRoute.CreatePointToPointAutoRoute(2)
rtRouteManager.ExitRoute
swTopLevelAssembly.EditAssembly

End Sub