Modify Tapinfo for Hole features

Modify Tapinfo for Hole features

Anonymous
Not applicable
841 Views
2 Replies
Message 1 of 3

Modify Tapinfo for Hole features

Anonymous
Not applicable

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?

 

Unbenannt.JPG

 

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

Accepted solutions (1)
842 Views
2 Replies
Replies (2)
Message 2 of 3

dgreatice
Collaborator
Collaborator
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")

Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.

Autodesk Inventor Professional Certified 2014
Message 3 of 3

solomon_14
Participant
Participant

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

0 Likes