Change Sketch Plane (VBA)

This example shows how to change which plane a sketch is on.

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

' Preconditions: Part document is open that

'                contains Sketch1 sketched on the Front Plane.

'

' Postconditions: Sketch1 moved to Plane1.

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swSelMgr As SldWorks.SelectionMgr

Dim vConfigNames As Variant

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swSelMgr = swModel.SelectionManager

Set swModelDocExt = swModel.Extension

boolstatus = swModelDocExt.SelectByID2("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)

If (1) Then

    boolstatus = swModelDocExt.SelectByID2("Plane1", "PLANE", 0, 0, 0, True, 0, Nothing, 0)

End If

If (0) Then

    boolstatus = swModelDocExt.SelectByID2("Front Plane", "PLANE", 0, 0, 0, True, 0, Nothing, 0)

End If

vConfigNames = swModel.GetConfigurationNames()

boolstatus = swModelDocExt.ChangeSketchPlane(swThisConfiguration, vConfigNames(0))

boolstatus = swModel.EditRebuild3()

End Sub