Insert Explode Line Sketch and Jog Line Example (VBA)

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.

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

Option Explicit

 

Dim SwApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swAssembly As SldWorks.AssemblyDoc

Dim swSketchMgr As SldWorks.SketchManager

Dim swSketchSegment As SldWorks.SketchSegment

 

Sub main()

 

Set SwApp = Application.SldWorks

Set swModel = SwApp.ActiveDoc

Set swAssembly = swModel

Set swSketchMgr = swModel.SketchManager

 

' Explode the assembly

swAssembly.AutoExplode

 

swModel.EditRebuild3

swModel.ViewZoomtofit2

 

' Insert an explode line sketch

swSketchMgr.InsertExplodeLineSketch

 

'Create a line

Set 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 and rebuild

swSketchMgr.Insert3DSketch True

   

End Sub