05-27-2015
03:43 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-27-2015
03:43 AM
In that case you just have to remove the IsOuterEdgeLoop check and can use directly the Edges collection.
So just had to modify this function:
' Check all edges, but ignore common
' edges with other faces
Sub GetOuterEdgesOfFaces( _
faces As ObjectCollection, edges As ObjectCollection)
Dim f As Face
For Each f In faces
Dim e As Edge
For Each e In f.edges
Dim f2 As Face
For Each f2 In e.faces
If (Not f Is f2) And _
(Not IsInCollection(f2, faces)) And _
(Not IsInCollection(e, edges)) Then
Call edges.Add(e)
End If
Next
Next
Next
End Sub

Adam Nagy
Autodesk Platform Services