CorelDRAW Community

Community site general questions Triangle - length of the sides, coordinates of the vertices

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!

Top Replies

Taras.SoftLV over 1 year ago +1 verified

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...

+1 Taras.SoftLV 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
Cancel
Up +1 Down

Reply

Reject Answer

Cancel
0 bhbp.bg2 over 1 year ago in reply to Taras.SoftLV

Thank You, for this code!
Cancel
Up 0 Down

Reply

Verify Answer

Cancel