Show ThreadType of Tap Hole and Taper Tap Hole.

[tim11_manhhieu]

I want to display the Thread Type names of each Hole Feature via message box to check the hole profile.

For example: Hole1: ISO Metric profile, Hole3: NPT for PVC...,  Hole5: JIS Pipe Threads

iLogic or VBA are both fine.

[JelteDeJong · Accepted solution]

You can try something like this:

Dim doc As PartDocument = ThisDoc.Document

Dim features = doc.ComponentDefinition.Features

Dim f As New Dictionary(Of String, List(Of String))

For Each feature As HoleFeature In features.HoleFeatures

    If (Feature.HoleType <> HoleTypeEnum.kDrilledHole) Then Continue For

    Dim info = Feature.TapInfo
    Dim threadType As String

    If (TypeOf info Is HoleTapInfo) Then
        Dim tapInfo As HoleTapInfo = info
        threadType = tapInfo.ThreadType
    End If

    If (TypeOf info Is TaperedThreadInfo) Then
        Dim tapInfo As TaperedThreadInfo = info
        threadType = tapInfo.ThreadType
    End If

    If (f.ContainsKey(threadType)) Then
        f.Item(threadType).Add(Feature.Name)
    Else
        Dim names As New List(Of String)
        names.Add(Feature.Name)
        f.Add(threadType, names)
    End If
Next

Dim msg = String.Empty
For Each kv As KeyValuePair(Of String, List(Of String)) In f
    msg += $"{kv.Key}: {String.Join(", ", kv.Value)}" + System.Environment.NewLine
Next
MsgBox(msg)

[tim11_manhhieu]

Thank you for the help.

I ran your code on my computer and it gave me an error at the line msg+=... (Character is not valid).

The code worked fine when I changed it to msg += kv.Key & ": " & String.Join(", ", kv.Value) & System.Environment.NewLine