Finding certain corner in Rectangle

I know this is probably simple, but my brain isn't working this morning. I
need to find the lower left corner of a rectangle. I would like to do this
without drawing the rectangle (using the getcorner method) if possible.
Thanks for any help.

 

Nathan,

YourBrain.BrainEngaged()

Dim strMyMsg As String
Dim varStartPt As Variant
Dim varPickPt As Variant

With ThisDrawing.Utility
varStartPt = .GetPoint(, vbCr & "pick first corner")
varPickPt = .GetCorner(varStartPt, vbLf & "pick next corner")
End With

strMyMsg = varPickPt(0) & " : " & varPickPt(1) & " : " & varPickPt(2)

MsgBox strMyMsg

Hope this helps,

Bob Coward
CADS, Inc

800-366-0946

 

This wouldn't necessarily give you the lower left corner. If, say, the user
picked the lower right corner and then the upper left corner, this would
give you the upper left corner.

 

Do you mean an actual rectangle (an LWPOLYLINE) or just two points?

 

Well, I would like it to be from just two points. IF I have to create the
polyline to get the information and then erase the polyline, I'll do it.

 

In general, simply compare the X and Y ordinates of each point. Take the
lowest value for each and you've got the lower left corner:

' Assume we've acquired points P1 and P2

Dim P3 As Double(2) ' Change to 1 for 2D point

P3(0) = IIf(P1(0) < P2(0), P1(0), P2(0))
P3(1) = IIf(P1(1) < P2(1), P1(1), P2(1))

 

Thank you. I new it was easy, just couldn't think of it.

 

Careful here. Depending which two points you are examining this might only work if the rectangle is "flat" on the X-axis. If the rectangle was "tilted" to the right the lowest Y value would come from the bottom-right corner and the lowest X value would come from the bottom-left corner.

If I'm trying to find the bottom-left vertex of a polyline I iterate the vertices and do the following (psuedo-code):

[pre]
If (Y < LowestY) Or (Y = LowestY and X < LowestX) Then ' Make this point the new bottom-left
[/pre]

Regards

Wayne Ivory
IT Analyst Programmer
Wespine Industries Pty Ltd