Get and Set Constraint for Dome Feature Example (VBA)

This example shows how to get and set a constraining point for a dome feature. A part containing a dome feature constrained by a sketch point on the origin is open.

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

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim Part As SldWorks.PartDoc

Dim component As SldWorks.Component2

Dim newPointFeat As SldWorks.SketchPoint

Dim dome As SldWorks.feature

Dim domeConstraintPoint As SldWorks.SketchPoint

Dim dome_featData As SldWorks.DomeFeatureData2

Dim boolstatus As Variant

Sub main()

'{

    Set swApp = Application.SldWorks

    Set Part = swApp.ActiveDoc

    boolstatus = Part.Extension.SelectByID2("Point1@Sketch1", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)

    Set newPointFeat = Part.SelectionManager.GetSelectedObject5(1)

    Set dome = Part.FeatureByName("Dome1")

    Set dome_featData = dome.GetDefinition

    boolstatus = dome_featData.AccessSelections(Part, component)

    Set domeConstraintPoint = dome_featData.ConstraintPointOrSketch

    If Not domeConstraintPoint Is Nothing Then

        dome_featData.ConstraintPointOrSketch = newPointFeat

        boolstatus = dome.ModifyDefinition(dome_featData, Part, Nothing)

    End If

dome_featData.ReleaseSelectionAccess

'}

End Sub