Create a Drawing for a Pipe Route Example (VB.NET)

'----------------------------------------------------------------------------
' 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. Create a piping BOM template named piping_template.sldbomtbt.
' 4. Add a column with header "Length" to the piping BOM template.
' 5. Ensure that the specified piping BOM and sheet format template
'    paths exist.
' 6. In Tools > Options > Routing > Routing File Locations,
'    add the locations of your SolidWorks Routing files.
' 7. In Tools > Options > File Locations, add the location
'    of your sheet format templates.
' 8. Open:
'    install_dir\samples\tutorial\routing-pipes\fittings\reducerroute.sldasm
'
' Postconditions: A drawing of the pipe assembly is created
' in a standard format and includes auto balloons, a bill of
' materials, and a route sketch.
'
' NOTE: Because this assembly is used elsewhere,
' do not save any changes to it.
'-------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports SolidWorks.Interop.SWRoutingLib
Imports System
Imports System.Diagnostics

Partial Class SolidWorksMacro


    Dim Part As AssemblyDoc
  
    Sub main()

        Part = swApp.ActiveDoc
        Dim RouteMgr As RouteManager
        RouteMgr = Part.GetRouteManager()
        Dim bomtemplatepath As String
        bomtemplatepath = "Piping_BOM_template_path"
        Dim bomtemplatename As String
        bomtemplatename = "piping_template.sldbomtbt"
        Dim sheettemplatepath As String
        sheettemplatepath = "install_dir\lang\english\sheetformat"
        Dim sheettemplatename As String
        sheettemplatename = "a - landscape.slddrt"
        Dim insertballoons As Boolean
        insertballoons = True
        Dim insertBOM As Boolean
        insertBOM = True
        Dim showRouteSketch As Boolean
        showRouteSketch = True
        Dim subAssembly As Boolean
        subAssembly = True
        Dim userSheetWidth As Double
        userSheetWidth = 500.0#
        Dim userSheetHeight As Double
        userSheetHeight = 500.0#
        Dim displayFormat As Boolean
        displayFormat = True
        Dim dwgTemplates As Long
        dwgTemplates = 0

       RouteMgr.CreatePipeDrawingforPipeRoute(bomtemplatepath, bomtemplatename, insertballoons, insertBOM, showRouteSketch, subAssembly, userSheetWidth, userSheetHeight, sheettemplatepath, sheettemplatename, displayFormat, dwgTemplates)
        
    End Sub

  
    Public swApp As SldWorks


End Class