Hi, I'm Working in my First Program, And I want to know how to select only circular faces. Actually I'm doing it in this way:
Public Sub FaceSelection()
Interface.Hide
'Crea el Objeto ClassSelect
Dim oSelect As New ClassSelect
Circular = False
Do
Set oSpart = oSelect.Pick(kPartFacePlanarFilter)
If Not oSpart Is Nothing Then
End If
Dim oCircular As Edges
Set Oface = oSpart.Edges.Item(1)
MsgBox Oface.CurveType
If Oface.CurveType = kCircleCurve Then
Circular = True
Else
MsgBox "Selecciona una cara Circular"
End If
Loop Until Circular = True
Interface.Show
End Sub
But this allow me to select semi circular faces too, But I need to select Only Full Circular faces. "Pick" is the function that I use to select (The One that comes in the API help, so I thing Many People Know it). Any Idea?
Thank You
Adi
