Rules for hiding the circle of tab countsink

tkddud711 · ‎12-11-2023

hello?
This is a post I made previously on the forum.
https://forums.autodesk.com/t5/inventor-programming-ilogic/please-tell-me-how-to-make-tab-countsink-...

There are two things I want to change in the code below.

1. The count sink holes of the tab’s circular pattern, square pattern, and linked pattern are not hidden.
2. In the drawing, the rule is applied to the first view of the sheet, but I want to select the view to apply it.

Can you help me?

Sub Main()

    Dim drawing As DrawingDocument = ThisDoc.Document

    Dim drawingView As DrawingView = drawing.ActiveSheet.DrawingViews(1)
    Dim part As PartDocument = drawingView.ReferencedDocumentDescriptor.ReferencedDocument
    Dim partDef As PartComponentDefinition = part.ComponentDefinition
    For Each holeFeature As HoleFeature In partDef.Features.HoleFeatures
        If holeFeature.HoleType <> HoleTypeEnum.kCounterSinkHole Then Continue For

        'Get the biggest circles of holeFeature in drawing view
        Dim biggestCircles As New List(Of DrawingCurveSegment)
        Dim biggestCircleRadius As Double = 0

        Dim holeDrawingCurves = drawingView.DrawingCurves(holeFeature)
        For Each holeDrawingCurve As DrawingCurve In holeDrawingCurves
            For Each drawingCurveSegment As DrawingCurveSegment In holeDrawingCurve.Segments
                Dim circle2d = TryCast(drawingCurveSegment.Geometry, Circle2d)
                If circle2d Is Nothing Then Exit For
                If circle2d.Radius > biggestCircleRadius Then
                    biggestCircles.Clear()
                    biggestCircleRadius = circle2d.Radius
                    biggestCircles.Add(drawingCurveSegment)
                ElseIf circle2d.Radius = biggestCircleRadius Then
                    biggestCircles.Add(drawingCurveSegment)

                End If
            Next
        Next

        'Hide 
        For Each biggestCircle As DrawingCurveSegment In biggestCircles
            biggestCircle.Visible = False
        Next
    Next

End Sub

yuzeaa · ‎12-12-2023

Sub Main()
    Dim drawingView As DrawingView = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select View")
	If drawingView Is Nothing Then return
    Dim part As PartDocument = drawingView.ReferencedDocumentDescriptor.ReferencedDocument
    Dim partDef As PartComponentDefinition = part.ComponentDefinition
    Dim holeFeatureList As New List(Of HoleFeature)
	Dim PatternFeatureList As New List(Of PartFeature)
	For Each holeFeature As HoleFeature In partDef.Features.HoleFeatures
        If HoleFeature.HoleType <> HoleTypeEnum.kCounterSinkHole Then Continue For
		holeFeatureList.Add(HoleFeature)
    Next
	For Each RecPatternFeature As RectangularPatternFeature In partDef.Features.RectangularPatternFeatures
		If RecPatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(RecPatternFeature)
		End If 
    Next
	For Each CirclePatternFeature As CircularPatternFeature In partDef.Features.CircularPatternFeatures
		If CirclePatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(CirclePatternFeature)
		End If 
    Next
	For Each PatternFeature In PatternFeatureList
		hideCurveByFeature(PatternFeature,drawingView)
	Next
	For Each holeFeature In holeFeatureList
		hideCurveByFeature(HoleFeature,drawingView)
	Next
End Sub

Sub hideCurveByFeature(oFeature As PartFeature,oView As DrawingView)
	    Dim DrawingCurves As DrawingCurvesEnumerator = oView.DrawingCurves(oFeature)
		Dim DrawingCurveSegmentList As List(Of DrawingCurveSegment) = DrawingCurves.Cast(Of DrawingCurve).SelectMany(Of DrawingCurveSegment)(Function(DrawingCurve) DrawingCurve.Segments.Cast(Of DrawingCurveSegment)).ToList()
        DrawingCurveSegmentList = DrawingCurveSegmentList.Where(Function(x) x.GeometryType = kcirclecurve2d).ToList
		biggestCircles =  DrawingCurveSegmentList.GroupBy(Function(item) Round(item.Geometry.Radius,5)).OrderByDescending(Function(Group) Group.Key).First
        For Each Circle As DrawingCurveSegment In biggestCircles
             If Circle.Visible = True Then
				Circle.Visible = False
			 Else
				Circle.Visible = True
			 End If
        Next
End Sub

tkddud711 · ‎12-12-2023

Thank you for your reply.
Everything works perfectly, but it doesn't apply to sketch driven patterns.
Is it possible?

yuzeaa · ‎12-12-2023

This will work.

Sub Main()
    Dim drawingView As DrawingView = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select View")
	If drawingView Is Nothing Then return
    Dim part As PartDocument = drawingView.ReferencedDocumentDescriptor.ReferencedDocument
    Dim partDef As PartComponentDefinition = part.ComponentDefinition
    Dim holeFeatureList As New List(Of HoleFeature)
	Dim PatternFeatureList As New List(Of PartFeature)
	For Each holeFeature As HoleFeature In partDef.Features.HoleFeatures
        If HoleFeature.HoleType <> HoleTypeEnum.kCounterSinkHole Then Continue For
		holeFeatureList.Add(HoleFeature)
    Next
	For Each RecPatternFeature As RectangularPatternFeature In partDef.Features.RectangularPatternFeatures
		If RecPatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(RecPatternFeature)
		End If 
    Next
	For Each CirclePatternFeature As CircularPatternFeature In partDef.Features.CircularPatternFeatures
		If CirclePatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(CirclePatternFeature)
		End If 
    Next
	For Each SketchPatternFeature As SketchDrivenPatternFeature In partDef.Features.SketchDrivenPatternFeatures
		If SketchPatternFeature.Definition.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(SketchPatternFeature)
		End If 
    Next
	For Each PatternFeature In PatternFeatureList
		hideCurveByFeature(PatternFeature,drawingView)
	Next
	For Each holeFeature In holeFeatureList
		hideCurveByFeature(HoleFeature,drawingView)
	Next
End Sub

Sub hideCurveByFeature(oFeature As PartFeature,oView As DrawingView)
	    Dim DrawingCurves As DrawingCurvesEnumerator = oView.DrawingCurves(oFeature)
		Dim DrawingCurveSegmentList As List(Of DrawingCurveSegment) = DrawingCurves.Cast(Of DrawingCurve).SelectMany(Of DrawingCurveSegment)(Function(DrawingCurve) DrawingCurve.Segments.Cast(Of DrawingCurveSegment)).ToList()
        DrawingCurveSegmentList = DrawingCurveSegmentList.Where(Function(x) x.GeometryType = kcirclecurve2d).ToList
		biggestCircles =  DrawingCurveSegmentList.GroupBy(Function(item) Round(item.Geometry.Radius,5)).OrderByDescending(Function(Group) Group.Key).First
        For Each Circle As DrawingCurveSegment In biggestCircles
             If Circle.Visible = True Then
				Circle.Visible = False
			 Else
				Circle.Visible = True
			 End If
        Next
End Sub

tkddud711 · ‎12-12-2023

A problem arose.
Only countsink for tabs should work.
It also works on countsink hole.
Is it possible to make only the tab's countsink work?
I have attached the test file.

tkddud711 · ‎12-12-2023

A problem arose.
Only countsink for tabs should work.
It also works on countsink hole.

And if you select a top view, front view, or back view, an error occurs on line 39.
Is it possible to make only the tab's countsink work?
I have attached the test file.

yuzeaa · ‎12-12-2023

I don't quite understand you, and I can't open the attachment either. I am using Inventor 2020.

tkddud711 · ‎12-12-2023

This is the version inventor 2018 file.
I ran it in all views as shown in the picture, but an error occurred.
You must pass the countsink marked with a cloud in the photo.
Please help me~

yuzeaa · ‎12-12-2023

Sub Main()
    Dim drawingView As DrawingView = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select View")
	If drawingView Is Nothing Then Return
    Dim part As PartDocument = drawingView.ReferencedDocumentDescriptor.ReferencedDocument
    Dim partDef As PartComponentDefinition = part.ComponentDefinition
    Dim holeFeatureList As New List(Of HoleFeature)
	Dim PatternFeatureList As New List(Of PartFeature)
	For Each holeFeature As HoleFeature In partDef.Features.HoleFeatures
		If HoleFeature.HealthStatus <> kUpToDateHealth Then Continue For
        If HoleFeature.HoleType <> HoleTypeEnum.kCounterSinkHole Then Continue For
		If HoleFeature.IsClearanceHole Then Continue For
		holeFeatureList.Add(HoleFeature)
    Next
	For Each RecPatternFeature As RectangularPatternFeature In partDef.Features.RectangularPatternFeatures
		If RecPatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(RecPatternFeature)
		End If 
    Next
	For Each CirclePatternFeature As CircularPatternFeature In partDef.Features.CircularPatternFeatures
		If CirclePatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(CirclePatternFeature)
		End If 
    Next
	For Each SketchPatternFeature As SketchDrivenPatternFeature In partDef.Features.SketchDrivenPatternFeatures
		If SketchPatternFeature.Definition.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(SketchPatternFeature)
		End If 
    Next
	For Each PatternFeature In PatternFeatureList
		hideCurveByFeature(PatternFeature,drawingView)
	Next
	For Each holeFeature In holeFeatureList
		hideCurveByFeature(HoleFeature,drawingView)
	Next
End Sub

Sub hideCurveByFeature(oFeature As PartFeature,oView As DrawingView)
	    Dim DrawingCurves As DrawingCurvesEnumerator = oView.DrawingCurves(oFeature)
		Dim DrawingCurveSegmentList As List(Of DrawingCurveSegment) = DrawingCurves.Cast(Of DrawingCurve).SelectMany(Of DrawingCurveSegment)(Function(DrawingCurve) DrawingCurve.Segments.Cast(Of DrawingCurveSegment)).ToList()
        DrawingCurveSegmentList = DrawingCurveSegmentList.Where(Function(x) x.GeometryType = kcirclecurve2d).ToList
		If DrawingCurveSegmentList.Count = 0 Then Return
		biggestCircles =  DrawingCurveSegmentList.GroupBy(Function(item) Round(item.Geometry.Radius,5)).OrderByDescending(Function(Group) Group.Key).First
        For Each Circle As DrawingCurveSegment In biggestCircles
             If Circle.Visible = True Then
				Circle.Visible = False
			 Else
				Circle.Visible = True
			 End If
        Next
End Sub

tkddud711 · ‎12-12-2023

Thank you for your continued attempts to provide the correct answer.

I think we're almost there.
Lastly, you need to hide the arc of the tab on the back as shown in the picture.
Running the rule hides the inner diameter circle.
And the rules should apply to MirrorFeature as well.

Can I change it?

yuzeaa · ‎12-12-2023

It is easy to get there.

Sub Main()
    Dim drawingView As DrawingView = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select View")
	If drawingView Is Nothing Then Return
    Dim part As PartDocument = drawingView.ReferencedDocumentDescriptor.ReferencedDocument
    Dim partDef As PartComponentDefinition = part.ComponentDefinition
    Dim holeFeatureList As New List(Of HoleFeature)
	Dim PatternFeatureList As New List(Of PartFeature)
	For Each holeFeature As HoleFeature In partDef.Features.HoleFeatures
		If HoleFeature.HealthStatus <> kUpToDateHealth Then Continue For
        If HoleFeature.HoleType <> HoleTypeEnum.kCounterSinkHole Then Continue For
		If HoleFeature.IsClearanceHole Then Continue For
		holeFeatureList.Add(HoleFeature)
    Next
	For Each RecPatternFeature As RectangularPatternFeature In partDef.Features.RectangularPatternFeatures
		If RecPatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(RecPatternFeature)
		End If 
    Next
	For Each CirclePatternFeature As CircularPatternFeature In partDef.Features.CircularPatternFeatures
		If CirclePatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(CirclePatternFeature)
		End If 
    Next
	For Each SketchPatternFeature As SketchDrivenPatternFeature In partDef.Features.SketchDrivenPatternFeatures
		If SketchPatternFeature.Definition.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(SketchPatternFeature)
		End If 
    Next
	For Each PatternFeature In PatternFeatureList
		hideCurveByFeature(PatternFeature,drawingView)
	Next
	For Each holeFeature In holeFeatureList
		hideCurveByFeature(HoleFeature,drawingView)
	Next
End Sub

Sub hideCurveByFeature(oFeature As PartFeature,oView As DrawingView)
    Dim DrawingCurves As DrawingCurvesEnumerator = oView.DrawingCurves(oFeature)
	Dim DrawingCurveSegmentList As List(Of DrawingCurveSegment) = DrawingCurves.Cast(Of DrawingCurve).SelectMany(Of DrawingCurveSegment)(Function(DrawingCurve) DrawingCurve.Segments.Cast(Of DrawingCurveSegment)).ToList()
    DrawingCurveSegmentList = DrawingCurveSegmentList.Where(Function(x) x.GeometryType = kcirclecurve2d OrElse x.GeometryType = kCircularArcCurve2d).ToList
	DrawingCurveSegmentList.RemoveAll(Function(x) x.Parent.ModelGeometry.Type = kFaceobject)
	If DrawingCurveSegmentList.Count = 0 Then Return
	biggestCircles =  DrawingCurveSegmentList.GroupBy(Function(item) Round(item.Geometry.Radius,5)).OrderByDescending(Function(Group) Group.Key).First
    For Each Circle As DrawingCurveSegment In biggestCircles
         If Circle.Visible = True Then
			Circle.Visible = False
		 Else
			Circle.Visible = True
		 End If
    Next
End Sub

tkddud711 · ‎12-12-2023

rules should apply to MirrorFeature as well.
Does not apply to mirror features.
The file MirrorFeature_test5.ipt is attached to the above article.
Is it possible?

yuzeaa · ‎12-12-2023

Including MirrorFeatures.

Sub Main()
    Dim drawingView As DrawingView = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select View")
	If drawingView Is Nothing Then Return
    Dim part As PartDocument = drawingView.ReferencedDocumentDescriptor.ReferencedDocument
    Dim partDef As PartComponentDefinition = part.ComponentDefinition
    Dim holeFeatureList As New List(Of HoleFeature)
	Dim PatternFeatureList As New List(Of PartFeature)
	For Each holeFeature As HoleFeature In partDef.Features.HoleFeatures
		If HoleFeature.HealthStatus <> kUpToDateHealth Then Continue For
        If HoleFeature.HoleType <> HoleTypeEnum.kCounterSinkHole Then Continue For
		If HoleFeature.IsClearanceHole Then Continue For
		holeFeatureList.Add(HoleFeature)
    Next
	For Each RecPatternFeature As RectangularPatternFeature In partDef.Features.RectangularPatternFeatures
		If RecPatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(RecPatternFeature)
		End If 
    Next
	For Each CirclePatternFeature As CircularPatternFeature In partDef.Features.CircularPatternFeatures
		If CirclePatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(CirclePatternFeature)
		End If 
    Next
	For Each SketchPatternFeature As SketchDrivenPatternFeature In partDef.Features.SketchDrivenPatternFeatures
		If SketchPatternFeature.Definition.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(SketchPatternFeature)
		End If 
    Next
	For Each MirFeature As MirrorFeature In partDef.Features.MirrorFeatures
		If MirFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternFeatureList.Add(MirFeature)
		End If 
    Next
	For Each PatternFeature In PatternFeatureList
		hideCurveByFeature(PatternFeature,drawingView)
	Next
	For Each holeFeature In holeFeatureList
		hideCurveByFeature(HoleFeature,drawingView)
	Next
End Sub

Sub hideCurveByFeature(oFeature As PartFeature,oView As DrawingView)
    Dim DrawingCurves As DrawingCurvesEnumerator = oView.DrawingCurves(oFeature)
	Dim DrawingCurveSegmentList As List(Of DrawingCurveSegment) = DrawingCurves.Cast(Of DrawingCurve).SelectMany(Of DrawingCurveSegment)(Function(DrawingCurve) DrawingCurve.Segments.Cast(Of DrawingCurveSegment)).ToList()
    DrawingCurveSegmentList = DrawingCurveSegmentList.Where(Function(x) x.GeometryType = kcirclecurve2d OrElse x.GeometryType = kCircularArcCurve2d).ToList
	DrawingCurveSegmentList.RemoveAll(Function(x) x.Parent.ModelGeometry.Type = kFaceobject)
	If DrawingCurveSegmentList.Count = 0 Then Return
	biggestCircles =  DrawingCurveSegmentList.GroupBy(Function(item) Round(item.Geometry.Radius,5)).OrderByDescending(Function(Group) Group.Key).First
    For Each Circle As DrawingCurveSegment In biggestCircles
         If Circle.Visible = True Then
			Circle.Visible = False
		 Else
			Circle.Visible = True
		 End If
    Next
End Sub

tkddud711 · ‎12-12-2023

In the MirrorFeature_test5.ipt file:
Mirrored tabs as shown below are not applied.
I think it will be of great help to me once I complete this.

yuzeaa · ‎12-13-2023

Grouping curves by center point to handle different holes.

Sub Main()
    Dim drawingView As DrawingView = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingViewFilter, "Select View")
	If drawingView Is Nothing Then Return
    Dim part As PartDocument = drawingView.ReferencedDocumentDescriptor.ReferencedDocument
    Dim partDef As PartComponentDefinition = part.ComponentDefinition
    Dim holeFeatureList As New List(Of HoleFeature)
	Dim PatternorMirFeatureList As New List(Of PartFeature)
	For Each holeFeature As HoleFeature In partDef.Features.HoleFeatures
		If HoleFeature.HealthStatus <> kUpToDateHealth Then Continue For
        If HoleFeature.HoleType <> HoleTypeEnum.kCounterSinkHole Then Continue For
		If HoleFeature.IsClearanceHole Then Continue For
		holeFeatureList.Add(HoleFeature)
    Next
	For Each RecPatternFeature As RectangularPatternFeature In partDef.Features.RectangularPatternFeatures
		If RecPatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternorMirFeatureList.Add(RecPatternFeature)
		End If 
    Next
	For Each CirclePatternFeature As CircularPatternFeature In partDef.Features.CircularPatternFeatures
		If CirclePatternFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternorMirFeatureList.Add(CirclePatternFeature)
		End If 
    Next
	For Each SketchPatternFeature As SketchDrivenPatternFeature In partDef.Features.SketchDrivenPatternFeatures
		If SketchPatternFeature.Definition.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternorMirFeatureList.Add(SketchPatternFeature)
		End If 
    Next
	For Each MirFeature As MirrorFeature In partDef.Features.MirrorFeatures
		If MirFeature.ParentFeatures.Cast(Of PartFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternorMirFeatureList.Add(MirFeature)
		End If 
    Next
	For Each PatternFeature In PatternorMirFeatureList
		hideCurveByFeature(PatternFeature,drawingView)
	Next
	For Each holeFeature In holeFeatureList
		hideCurveByFeature(HoleFeature,drawingView)
	Next
End Sub

Sub hideCurveByFeature(oFeature As PartFeature,oView As DrawingView)
    Dim DrawingCurves As DrawingCurvesEnumerator = oView.DrawingCurves(oFeature)
	Dim DrawingCurveSegmentList As List(Of DrawingCurveSegment) = DrawingCurves.Cast(Of DrawingCurve).SelectMany(Of DrawingCurveSegment)(Function(DrawingCurve) DrawingCurve.Segments.Cast(Of DrawingCurveSegment)).ToList()
    DrawingCurveSegmentList = DrawingCurveSegmentList.Where(Function(x) x.GeometryType = kcirclecurve2d OrElse x.GeometryType = kCircularArcCurve2d).ToList
	DrawingCurveSegmentList.RemoveAll(Function(x) x.Parent.ModelGeometry.Type = kFaceobject)
	If DrawingCurveSegmentList.Count = 0 Then Return
    biggestCircles = DrawingCurveSegmentList.GroupBy(Function(item) Round(item.Geometry.Center.X,5) & Round(item.Geometry.Center.Y,5)).Select(Function(Group) Group .OrderByDescending(Function(item) item.Geometry.Radius).First()).ToList()
    For Each Circle As DrawingCurveSegment In biggestCircles
         If Circle.Visible = True Then
			Circle.Visible = False
		 Else
			Circle.Visible = True
		 End If
    Next
End Sub

tkddud711 · ‎12-13-2023

`

tkddud711 · ‎12-13-2023

Works so perfectly!
You have freed me from the pain of my work!
Thank you for your hard work.

tkddud711 · ‎12-17-2023

hello~
I took a break over the weekend and applied the rules today, but a problem occurred.. ㅜㅡㅜ
When mirroring an extrusion or cut, an error occurs at line 30.
Modeling is attached.
Is it possible to fix the error?

yuzeaa · ‎12-17-2023

Replace the following code.

	For Each MirFeature As MirrorFeature In partDef.Features.MirrorFeatures
		If MirFeature.ParentFeatures.Oftype(Of HoleFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternorMirFeatureList.Add(MirFeature)
		End If 
    Next

yuzeaa · ‎12-17-2023

I found more issues with the same reason in pattern features.

	For Each RecPatternFeature As RectangularPatternFeature In partDef.Features.RectangularPatternFeatures
		If RecPatternFeature.ParentFeatures.Oftype(Of HoleFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternorMirFeatureList.Add(RecPatternFeature)
		End If 
    Next
	For Each CirclePatternFeature As CircularPatternFeature In partDef.Features.CircularPatternFeatures
		If CirclePatternFeature.ParentFeatures.Oftype(Of HoleFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternorMirFeatureList.Add(CirclePatternFeature)
		End If 
    Next
	For Each SketchPatternFeature As SketchDrivenPatternFeature In partDef.Features.SketchDrivenPatternFeatures
		If SketchPatternFeature.Definition.ParentFeatures.OfType(Of HoleFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternorMirFeatureList.Add(SketchPatternFeature)
		End If 
    Next
	For Each MirFeature As MirrorFeature In partDef.Features.MirrorFeatures
		If MirFeature.ParentFeatures.Oftype(Of HoleFeature).Any(Function(item) holeFeatureList.Contains(item)) Then
			PatternorMirFeatureList.Add(MirFeature)
		End If 
    Next

Community

Rules for hiding the circle of tab countsink

Rules for hiding the circle of tab countsink

Rules for hiding the circle of tab countsink