Create 3D Sketch Plane Example (VBA)

This example shows how to create a 3D sketch plane.

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

' Preconditions: Part document is open containing

'                a 3D sketch of lines

'                and a 2D sketch of a circle.

'

' Postconditions: A 3D sketch perpendicular

'                 to the selected line in the

'                 3D sketch and coincident to the

'                 the center point of the circle

'                 is created.

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

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 swModelDocExt = swModel.Extension

boolstatus = swModelDocExt.SelectByID2("Line5", "SKETCHSEGMENT", -0.1255140369171, 0.08080436813814, 0.02232906915923, True, 0, Nothing, 0)

boolstatus = swModelDocExt.SelectByID2("Point33", "SKETCHPOINT", -0.006506637875873, 0.1106079323565, 0, True, 0, Nothing, 0)

Set swSketchMgr = swModel.SketchManager

swSketchMgr.CreateSketchPlane swConstraintType_PERPENDICULAR, swConstraintType_COINCIDENT, swConstraintType_INVALIDCTYPE

End Sub