Box Select a Sketch Example (VBA)

This example shows how to box select all of the entities in a sketch block.

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

' Preconditions: <SolidWorks_install_dir>\samples\tutorial\blocks\piston_mechanism.sldblk

'    is open.

'

' Postconditions:

'     (1) Notice the list of selected entities

'         in the PropertyManager page.

'     (2) Interactively quit the sketch without

'         saving any changes.

'     (3) Close the document.

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swModelDocExt = swModel.Extension

' Select the sketch and open it

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

swModel.EditSketch

swModel.ViewZoomtofit2

' Box select the sketch

boolstatus = swModelDocExt.SketchBoxSelect("-0.034327", "1.423590", "0.000000", "0.212609", "0.692279", "0.000000")

End Sub