Extend Sketch Entity Example (VBA)

This method extends the selected sketch entity.

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

'

' Preconditions: Sketch is open and the selected

'                sketch entity exists.

'

' Postconditions: The selected sketch entity is

'                extended to the specified coordinates.

'

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swSelMgr As SldWorks.SelectionMgr

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swSketchMgr As SldWorks.SketchManager

Dim boolstatus As Boolean

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swModelDocExt = swModel.Extension

    Set swSketchMgr = swModel.SketchManager

    ' Set selection mode to default

    swModel.SetPickMode

    ' Select the sketch line to extend

    boolstatus = swModelDocExt.SelectByID2("Line6", "SKETCHSEGMENT", 0#, 0#, 0#, False, 0, Nothing, 0)

    ' Extend the sketch line

    boolstatus = swSketchMgr.SketchExtend(0.02278017489712, 0.009621440329218)

End Sub