Create Hole Wizard Feature Data Object and Hole Wizard Feature Example
(VBA)
This example shows how to create a hole wizard feature data object and
a hole wizard feature.
'-------------------------------------------
'
' Preconditions: Model document is open.
'
' Postconditions: Hole wizard feature is created
' on
the selected face of the model.
'
'-------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swFeatMgr As SldWorks.FeatureManager
Dim swFeat As SldWorks.Feature
Dim swWzdHole As WizardHoleFeatureData2
Dim swFeatDataObj As Object
Dim boolstatus As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swFeatMgr = swModel.FeatureManager
' Create the hole wizard feature data object
Set swFeatDataObj = swFeatMgr.CreateDefinition(swFmHoleWzd)
Set swWzdHole = swFeatDataObj
' Initialize the hole wizard feature
swWzdHole.InitializeHole
swWzdCounterBore, swStandardISO, swStandardISOHexBolt, "M48",
swEndCondBlind
'Change the hole wizard feature's depth
swWzdHole.HoleDepth
= 0.15
'Change the hole wizard feature's diameter
swWzdHole.HoleDiameter
= 0.0555
' Select the face on which to create the hole
boolstatus = swModelDocExt.SelectByID2("",
"FACE", 0.09000000000003, -0.01278177510699, 0.04695929736232,
False, 0, Nothing, 0)
' Create the hole wizard feature
Set swFeat = swFeatMgr.CreateFeature(swWzdHole)
End Sub