Select Cylinder Faces? 1

[Kenja824]

I have this bit of code that allows me to select faces of solid bodies. It took me a while to find how to do this on-line. Now I am wondering if I can take it a step further and select only cylinder type faces?


Function SelectFaces(ByVal prompt As String, ByRef selFace As List(Of Face)) As Selection.Response

Dim theUI As UI = UI.GetUI
Dim title As String = "Select Faces"
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart
Dim selectionMask_array(0) As Selection.MaskTriple
Dim selObj() As TaggedObject

With selectionMask_array(0)
.Type = UFConstants.UF_solid_type
.Subtype = 0
.SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_ANY_FACE

End With

 

[cowski]

Instead of UF_UI_SEL_FEATURE_ANY_FACE try using UF_UI_SEL_FEATURE_CYLINDRICAL_FACE.

www.nxjournaling.com

 

[Kenja824]

Awesome! Thanks cowski