Convert Faces' Edges to Sketch Entities Example (VBA)

This example shows how to convert the edges of selected faces to sketch entities.

'-----------------------------------------------------------
' Preconditions:
' 1. Open public_documents\samples\tutorial\cosmosxpress\aw_hook.sldprt.
' 2. If prompted to convert to appearances, click OK.
'
' Postconditions:
' 1. Converts the edges of the selected faces to sketch entities
'    onto Plane1, and creates Sketch3.
' 2. Examine the FeatureManager design tree.
'
' NOTE: Because this part is used elsewhere, do not save changes.
'--------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swSketchManager As SldWorks.SketchManager

Dim boolstatus As Boolean

Sub main()

 

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swModelDocExt = swModel.Extension

Set swSketchManager = swModel.SketchManager

 

' Open sketch on Plane1

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

swSketchManager.InsertSketch True

 

' Select disjoint faces

boolstatus = swModelDocExt.SelectByID2("", "FACE", 0.1098855514325, -0.05688720168837, 0.03453543805836, False, 0, Nothing, 0)

boolstatus = swModelDocExt.SelectByID2("", "FACE", 0.1161834220602, 0.002276177312467, 0.03345674799152, True, 0, Nothing, 0)

 

' Convert edges of faces to sketch entities

boolstatus = swSketchManager.SketchUseEdge2(False)

 

' Clear the selections and close the sketch

swModel.ClearSelection2 True

swSketchManager.InsertSketch True

End Sub