Offset Selected Edges in Active Sketch Example (VBA)

This example shows how to offset the selected edges to generate geometry in the active sketch.

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

'

' Preconditions: Sketch is active and one or more edges are selected.

'

' Postconditions: Selected edges are offset.

'

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

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swSketchMgr             As SldWorks.SketchManager

    Dim swSketch                As SldWorks.sketch

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSketchMgr = swModel.SketchManager

    Set swSketch = swModel.GetActiveSketch2: Debug.Assert Not Nothing Is swSketch

    bRet = swSketchMgr.SketchUseEdge(False): Debug.Assert bRet

End Sub