08-11-2021
12:08 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-11-2021
12:08 AM
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