How do I extract the edge curves from a surface?

Was this article helpful?
0 out of 0 found this helpful

Comments

1 comment
Date Votes
  • Hi Giulia 

    the edges do not change the color

          ElseIf entType = "Surface" Then
                        ent.Color = Color.BlueViolet 
                        Dim surf As Surface = CType(ent, Surface)
                        Debug.WriteLine("Surface Is Trimmed >> " & surf.IsTrimmed)
                        Dim curves As ICurve() = surf.ExtractEdges()
                        Dim entArray As Entity() = New Entity(curves.Length - 1) {}
                        For i As Integer = 0 To curves.Length - 1
                            entArray(i) = CType(curves(i), Entity)
                            Debug.WriteLine(entArray(i))
                        Next
                        Cncmodel.Entities.AddRange(entArray, Color.Red)
                        Debug.WriteLine(entArray.Length)

    Debug 

    the surface is trimmed and it finds the curve

    4
    The thread 0x3f7c has exited with code 0 (0x0).
    Surface Is Trimmed >> True
    Curve - Primitive: GCurve 5, 22
    Curve - Primitive: GCurve 5, 6
    Curve - Primitive: GCurve 5, 6
    Curve - Primitive: GCurve 5, 6
    Curve - Primitive: GCurve 5, 6
    Curve - Primitive: GCurve 5, 6
    Curve - Primitive: GCurve 3, 8
    Curve - Primitive: GCurve 3, 6
    Curve - Primitive: GCurve 3, 4
    Curve - Primitive: GCurve 5, 13
    Curve - Primitive: GCurve 3, 4
    Curve - Primitive: GCurve 5, 6
    Curve - Primitive: GCurve 5, 26
    13

    on the blue violet should be the red edge

    0

Please sign in to leave a comment.

Articles in this section

See more