Insert Explode Line Sketch and Jog Line Example (VB.NET)

This example shows how to insert a jog line in an explode line sketch, a type of 3D sketch.

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

' Preconditions: Open

'   <SolidWorks_install_dir>\samples\tutorial\cosmosfloxpress\ball valve\ball_valve.sldasm

'

' Postconditions:

' 1. An exploded view of the assembly is created.

' 2. A jog line, which is a type of explode line, is added.

' 3. 3DExplode1, the explode line sketch, is located on the

'    ConfigurationManager tab. Click the ConfigurationManager

'    tab and expand default and ExplView1.

'

' NOTE: Because this assembly is used in a SolidWorks

'       online tutorial, do not save any changes when

'       you close the document.

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

Imports SolidWorks.Interop.sldworks

Imports SolidWorks.Interop.swconst

Imports System

 

Partial Class SolidWorksMacro

 

    Dim swModel As ModelDoc2

    Dim swAssembly As AssemblyDoc

    Dim swSketchMgr As SketchManager

    Dim swSketchSegment As SketchSegment

 

    Sub main()

 

        swModel = SwApp.ActiveDoc

        swAssembly = swModel

        swSketchMgr = swModel.SketchManager

 

        ' Explode the assembly

        swAssembly.AutoExplode()

 

        swModel.EditRebuild3()

 

        swModel.ViewZoomtofit2()

 

        ' Insert an explode line sketch

        swSketchMgr.InsertExplodeLineSketch()

 

        'Create a line

        swSketchSegment = swSketchMgr.CreateLine(0, 0.1, 0, 0, 0.3, 0)

 

        swModel.ViewZoomtofit2()

 

        ' Create a jog line using the line

        swSketchSegment.JogLine(0, 0.2, 0, 0.04, 0.25, 0)

 

        ' Close the 3D sketch

        swSketchMgr.Insert3DSketch(True)

 

    End Sub

 

    ''' <summary>

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

    ''' </summary>

    Public swApp As SldWorks

 

End Class