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

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