View Single Post
Old 25-11-2020, 14:47
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,788
Blog Entries: 12
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Origin Point of Rectangle

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,

Reply With Quote