Find all holes without sketches.

[shastu]

I have a vba program, but it only works for files that are 2019 or later.  Any files before that causes problems because of the holes that were created without sketches.  Is there a way to look through a part and identify all holes that don't have a sketch?  If so, then all I would have to do is edit each one of them before I run my other code because in Inventor if I just edit the hole and then select the OK button, it creates a new sketch.

[bradeneuropeArthur]

What do you mean with:

• Hole without sketched? A hole is most times created with a sketch! Do you mean a sketch that is Cut-extruded?
• What kind o holes do you mean? What shape for instance? Round Square etc...

What is actually the problem with your program and the holes created different?

Maybe the solution is easier if we would know the issues!

Regards,

[JelteDeJong · Accepted solution]

Is this what you mean?

Dim doc As PartDocument = ThisDoc.Document
For Each hole As HoleFeature In doc.ComponentDefinition.Features.HoleFeatures
    If hole.Sketch Is Nothing Then
        MsgBox(hole.Name & " has none sketch")
    Else
        MsgBox(hole.Name & " belongs to " & hole.Sketch.Name)
    End If
Next

[shastu]

That is exactly what I want only I needed it in VBA so I changed it to this:

Sub holes()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim hole As HoleFeature
For Each hole In oDoc.ComponentDefinition.Features.HoleFeatures
    If hole.Sketch Is Nothing Then
        MsgBox (hole.Name & " has none sketch")
    Else
        MsgBox (hole.Name & " belongs to " & hole.Sketch.Name)
    End If
Next
End Sub

Thank you so much!!!