Modify Tapinfo for Hole features

[Anonymous]

Hi,

how can I modify a tapinfo in this command:

CreateTapInfo(True, "ISO Metric profile", "M8x1.25", "6H", False, "24mm")

to a tip angle instead of a flat one?

Within the help I don't find the right position to define  this feature. Are there any ideas about that issue?

[dgreatice · Accepted solution]

Hi,

im back, this my code. Before im use "AddDrilledByThroughAllExtent", now difference method for create Tapped Hole.

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oDef As PartComponentDefinition
Set oDef = oDoc.ComponentDefinition

Dim oHoleCenters As Object
Set oHoleCenters = oDef.WorkPoints.Item("COG")

Dim oCenterPlacementDef As PointHolePlacementDefinition
Set oCenterPlacementDef = oDef.Features.HoleFeatures.CreatePointPlacementDefinition(oHoleCenters, oDef.WorkAxes.Item(1))

Dim oTappedHole As HoleTapInfo
Set oTappedHole = oDef.Features.HoleFeatures.CreateTapInfo(True, "ISO Metric Profile", "M8x1.25", "6H", False, "24mm")

'Call oDef.Features.HoleFeatures.AddDrilledByThroughAllExtent(oCenterPlacementDef, "10mm", kPositiveExtentDirection) 'old
Call oDef.Features.HoleFeatures.AddDrilledByDistanceExtent(oCenterPlacementDef, oTappedHole, "30mm", kPositiveExtentDirection, False, "118")

[solomon_14]

Thanks so much, been looking for this for a couple hours. There's not very much out on the internet for inventor VBA.