Public Sub atr1()
Dim oPart As PartDocument
Dim oCompDef As PartComponentDefinition
Dim oAttribSet As AttributeSet
Dim oAttr As Inventor.Attribute
Dim oFace As Face
Set oPart = ThisApplication.ActiveDocument
Dim oExtrudeFeature As ExtrudeFeature
Set oExtrudeFeature = oPart.AttributeManager.FindObjects("SaddleSupport", "Extrusion", "PlateHoleFastener").Item(1)
Dim oO1 As Object
Dim oO2 As Object
Dim i As Integer
i = 0
Dim oProfileEntity As ProfileEntity
For Each oProfilePath In oExtrudeFeature.Profile
i = i + 1
For Each oProfileEntity In oProfilePath
Set oO1 = oProfileEntity.SketchEntity
For Each oFace In oExtrudeFeature.SideFaces
Set oO2 = oFace.[_CreatedFromCurve]
If oO1 Is oO2 Then
Set oAttributeSet = oFace.AttributeSets.Add("SaddleSupport")
Set oAttr = oAttributeSet.Add("PlateHoleFastener", ValueTypeEnum.kStringType, "HoleFastener" & i)
End If
Next
Next
Next
End Sub