Hi,
This is what you need, you'll need to rename the value that represents the thickness consequently, this way the code will do what you want
Sub SupressSmallHoles()
Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument
Dim oPartDef As PartComponentDefinition
Set oPartDef = oPartDoc.ComponentDefinition
Dim dblThickness As Double
dblThickness = oPartDef.Parameters.ModelParameters.Item("Thickness").Value 'Change name as required
Debug.Print dblThickness
Dim oHoleFeature As HoleFeature
For Each oHoleFeature In oPartDef.Features.HoleFeatures
If oHoleFeature.HoleDiameter.Value < dblThickness Then
oHoleFeature.Suppressed = True
End If
Next oHoleFeature
End Sub
If you think this answer fullfilled your needs, improved your knowledge or leads to a solution,
please feel free to "kudos"
