'Toto pravidlo se může spouštět v prostředí součásti - IPT.
'Hledání děr probíhá na prvním objemovém tělese, které je ve složce "Objemová tělesa".
'Funguje také u importovaných těles.
'Po výběru děr je možné jim například změnit barvu nebo hromadně změnit průměr pomocí přímých úprav.

Dim strHodnota = InputBox("Hledany prumer v mm", "Hledany prumer v mm", "0,0")
Dim doubleHodnota As Double = CDblAny(strHodnota)

Dim doc As PartDocument
doc = ThisApplication.ActiveDocument

Dim partCompDef As PartComponentDefinition
partCompDef = doc.ComponentDefinition

Dim srfBody As SurfaceBody
srfBody = partCompDef.SurfaceBodies.Item(1)

Dim diry As Inventor.ObjectCollection 
diry = ThisApplication.TransientObjects.CreateObjectCollection

For Each oFace As Face In srfBody.Faces
	Dim thisFace As Face = oFace
	If oFace.SurfaceType = SurfaceTypeEnum.kCylinderSurface Then
		If oFace.Geometry.Radius * 10 * 2  = doubleHodnota   	'10 - převod cm na mm  '2 - polomer na prumer
			If oFace.EdgeLoops.Count = 2 Then  						' Dira vzdy musi mit dve smycky hran
				diry.Add(thisFace)
			End If
		End If
	End If
Next

MessageBox.Show(diry.Count, "Pocet nalezenych der")

doc.SelectSet.SelectMultiple(diry)