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