Convert Guidelines into a Route Example (VB.NET)
This example shows how to convert selected guidelines into a route.
'----------------------------------------------------------------------------
' Preconditions:
'
' 1. Add SOLIDWORKS Routing as an add-in
'
(in SOLIDWORKS select Tools >
Add-Ins > SOLIDWORKS Routing).
' 2. Add SOLIDWORKS.interop.SwRoutingLib.dll as a reference
' (in
the IDE right-click the project, select Add Reference,
'
and browse install_dir\api\redist\CLR2).
' 3. In Tools > Options > System Options > Routing > Routing File
Locations,
' add locations of your SOLIDWORKS Routing files.
' 4. Open a routing assembly.
' 5. Select routing guidelines in the graphics area.
' 6. Open an Immediate Window.
'
' Postconditions: The selected guidelines are converted into a route.
'
'
NOTE: Because the assembly is used elsewhere,
' do not save
any changes when you close it.
'----------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
SolidWorks.Interop.SWRoutingLib
Imports
System
Imports
System.Diagnostics
Partial
Class
SolidWorksMacro
Sub
main()
Dim
swModel As
ModelDoc2
Dim
swTopLevelAssembly As
AssemblyDoc
Dim
rtRouteManager As
RouteManager
Dim
autoRoute As
AutoRoute
Dim
resultCode As
Long
Dim
boolstatus As
Boolean
swModel = swApp.ActiveDoc
swTopLevelAssembly = swModel
' Get the RouteManager from the
top-level assembly
rtRouteManager =
swTopLevelAssembly.GetRouteManager
If
rtRouteManager Is
Nothing
Then
Debug.Print("No
RouteManager found in top-level document. ")
Exit
Sub
End
If
rtRouteManager.EditRoute()
autoRoute = rtRouteManager.GetAutoRoute
resultCode = autoRoute.ShowGuidelines
' Convert guidelines to route
boolstatus = autoRoute.ConvertGuidelinesToRoute
rtRouteManager.ExitRoute()
swTopLevelAssembly.EditAssembly()
End
Sub
Public
swApp As
SldWorks
End
Class