Triangle - length of the sides, coordinates of the vertices

bhbp.bg2
over 1 year ago

Hello, 

Please someone write code to determine the length of the sides and the coordinates of the vertices of a triangle

Greetings!
Parents
No Data
Reply
  • +1 over 1 year ago

    Sub lengthofthesidescoordinatesofthevertices()
    Dim s As Shape, n As Node, seg As Segment

    Set s = ActiveShape
    For Each n In s.DisplayCurve.Nodes
    Debug.Print n.Index, n.PositionX, n.PositionY
    Next n
    For Each seg In s.DisplayCurve.Segments
    Debug.Print seg.Index, seg.Length
    Next seg
    End Sub

Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.