Change Direction of existing Hole feature to Symmetric

[J.VandeMerckt]

Hi Everyone.
I need to change the the direction of a hole feature on multiple files.
I already have a code which allows a chosen Ilogic rule to run on all open files.

I just can't figure out how to change the direction of a hole to symmetric.
Googling and ChatGPT have not been able to solve it.

Can anyone help me out?
It's a part and the hole is called "Hole2"

Br
Justin

[J-Camper · Accepted solution]

Try This:

Dim hf As HoleFeature = Feature.InventorFeature("Hole2")
If hf.ExtentType <> PartFeatureExtentEnum.kThroughAllExtent Then MessageBox.Show("""Symmetric Extent Direction"" Option only available on ""Through All"" hole features", "Debug") : Exit Sub
hf.SetThroughAllExtent(PartFeatureExtentDirectionEnum.kSymmetricExtentDirection)

[harvey3ELEA]

J-Camper, is there a way to change numerous holes (not limited to "Hole2" in line 1) to symmetric?

[J-Camper · Accepted solution]

This should do all hole features in the part:

Dim pDoc As PartDocument = TryCast(ThisDoc.Document, PartDocument)
If pDoc Is Nothing Then Logger.Debug("Not Run in Part Document")

For Each hf As HoleFeature In pDoc.ComponentDefinition.Features.HoleFeatures
	If hf.ExtentType <> PartFeatureExtentEnum.kThroughAllExtent Then Logger.Trace("""Symmetric Extent Direction"" Option only available on ""Through All"" hole features") : Continue For
	hf.SetThroughAllExtent(PartFeatureExtentDirectionEnum.kSymmetricExtentDirection)
Next

[J.VandeMerckt]

Thanks Camper.
This exactly what I need.
Best regards
Justin

[harvey3ELEA]

Works great!  Thanks once again, J-Camper.