Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Ralf_Krieg
in reply to: emilda.chiuye

Sorry, there are some lines missing in the CheckExistLeader function.

Private Function CheckExistLeader(ByVal oRevolveFeature As RevolveFeature) As Boolean
    Dim oPartCompDef As PartComponentDefinition = oRevolveFeature.Parent
    Dim oLeaderNotes As ModelLeaderNotes = oPartCompDef.ModelAnnotations.ModelLeaderNotes
	Dim oFace As Face
    Dim oIntentFace As Face
    Dim oLeaderNote As ModelLeaderNote
    
	For Each oLeaderNote In oLeaderNotes
		oIntentFace = oLeaderNote.Definition.Intent.Geometry
		For Each oFace In oRevolveFeature.Faces
			If oIntentFace Is oFace Then
				Return True
			End If
		Next
    Next
End Function

R. Krieg
RKW Solutions
www.rkw-solutions.com