How would I get the origin point of a rectangle as drawn?

[jlorbz]

When a user draws a rectangle they can start in any corner and draw the box in any direction.

I'm trying to figure out how to capture which corner of the box (the box's origin) they started with so that I can place a new object banked to that same corner. Thank you for any help you're able to give.

Would I have to cycle through the points and determine which one is which based on the size or is there an easier way to get it?

[shelbym]

The easiest way would be to find the first node of the display curve.

The following will mark the origin point of each rectangle with a red circle:

Sub FindStartofRectange()
    Dim sr As ShapeRange
    Dim s As Shape
    Dim x As Double, y As Double
    
    Set sr = ActiveSelectionRange
    
    For Each s In sr.Shapes
        s.DisplayCurve.Nodes.First.GetPosition x, y
        ActiveLayer.CreateEllipse2(x, y, 0.125).Fill.UniformColor.RGBAssign 255, 0, 0
    Next s
End Sub

Happy Coding,

-Shelby