Find the adjacent faces of given edge or face

[supriya_chaugule]

Hiii.....I need to find the adjacent facec of edge or given face to do the chamfer .Can anybody suggest the code for the same?

[Andrii_Humeniuk · Accepted solution]

Hi @supriya_chaugule . Here's a code example to get a list of faces.

Sub main()
	Dim oDoc As PartDocument = ThisApplication.ActiveDocument
	Dim oFace As Face = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Pick the face")
	If oFace Is Nothing Then Exit Sub
	Dim listFaces As New List(Of Face)
	listFaces.AddRange(GetAdjacentFaces(oFace))
End Sub

Private Function GetAdjacentFaces(oFace As Face) As List(Of Face)
	Dim listFaces As New List(Of Face)
	For Each oEdge As Edge In oFace.Edges
		For Each oEdgFace As Face In oEdge.Faces
			If Not oEdgFace Is oFace Then listFaces.Add(oEdgFace)
		Next
	Next
	Return listFaces
End Function

[supriya_chaugule]

Thanks @Andrii_Humeniuk  For the solution.