Topic: Clip Boundaries for a Raster

[ML]

By selecting the lower left and upper right; we already have all the coords that we need
So again, it is just filling in

Code: [Select]

'Clip boundary = picked points (llpnt and urpnt)
 clipPoints(0) = llpnt(0): clipPoints(1) = llpnt(1)
 clipPoints(2) = llpnt(0): clipPoints(3) = urpnt(1)
 clipPoints(4) = urpnt(0): clipPoints(5) = urpnt(1)
 clipPoints(6) = urpnt(0): clipPoints(7) = llpnt(1)
 clipPoints(8) = llpnt(0): clipPoints(9) = llpnt(1)

with the proper coords

User inputs 10 x 10
We grab that and do 10 -/+ llpnt and urpnt to get the clip boundary, I think

I am loosing my ability to think at this point 

Mark

[ML]

I think what we really need is VBAnonymous Meetings  LOL

[Bob Wahr]

Beware the pseudocodiness of it

Code: [Select]

numbah = thisdrawing.utility.getreal ("How big a square ya after, Bucko?: ")

  clipPoints(0) = mdpnt(0) - numbah/2: clipPoints(1) = mdpnt(1) - numbah/2
  clipPoints(2) = mdpnt(0) - numbah/2: clipPoints(3) = mdpnt(1) + numbah/2
  clipPoints(4) = mdpnt(0) + numbah/2: clipPoints(5) = mdpnt(1) + numbah/2
  clipPoints(6) = mdpnt(0) + numbah/2: clipPoints(7) = mdpnt(1) - numbah/2
  clipPoints(8) = mdpnt(0) - numbah/2: clipPoints(9) = mdpnt(1) + -numbah/2

[ML]

Bob; if you keep this up; I will be asking for your phone number LOL; just kidding 

Of course, now I need to go try this 

Mark

[Bob Wahr]

Bob; if you keep this up; I will be asking for your phone number LOL; just kidding 

Of course, now I need to go try this 

Mark

It's going to take some tweaking, that was just a nudge.  You'll need to bump up your error handling so that it knows what to do when somebody types in something that's not a number.  You might want to put in a default size so they can hit enter to get the default.  You might also want to give them an option to do a rectangle instead of square.  Then again, maybe not.

[ML]

That's funny; using the midpoint was my idea originally although I needed your guys help on how to build around it; however I failed to think of that in this (CM's idea) application.

I keep getting stuck on the upper and lower points.

The midpoint is definetely THE most logical place to work from.

So, Hats off to Bob again! 

Mark

[Maverick®]

Bob; if you keep this up; I will be asking for your phone number

Like that hasn't been on how many bar napkins and toilet stalls west of the Mississippi.

[Bob Wahr]

A couple of other thoughts to throw out to you.  with the two point selection method, you could just check the distance, round to the nearest whole number, and clip.  For a midpoint centered clip, you can just get them to pick a center point and distance instead of two points.

[Bob Wahr]

Bob; if you keep this up; I will be asking for your phone number

Like that hasn't been on how many bar napkins and toilet stalls west of the Mississippi.

West of the Mississippi?  I've got national renown.

[ML]

WAIT!

Bob

With your code

Code: [Select]

numbah = thisdrawing.utility.getreal ("How big a square ya after, Bucko?: ")

  clipPoints(0) = mdpnt(0) - numbah/2: clipPoints(1) = mdpnt(1) - numbah/2
  clipPoints(2) = mdpnt(0) - numbah/2: clipPoints(3) = mdpnt(1) + numbah/2
  clipPoints(4) = mdpnt(0) + numbah/2: clipPoints(5) = mdpnt(1) + numbah/2
  clipPoints(6) = mdpnt(0) + numbah/2: clipPoints(7) = mdpnt(1) - numbah/2
  clipPoints(8) = mdpnt(0) - numbah/2: clipPoints(9) = mdpnt(1) + -numbah/2

We will still need

Code: [Select]

Dim llpnt As Variant 'lower left point
Dim urpnt As Variant 'upper right point
Dim mdpnt(0 To 2) As Double
Dim clipPoints(0 To 9) As Double
      
With ThisDrawing.Utility
 llpnt = .GetPoint(, vbCrLf & "Select Lower Left Point: ")
 urpnt = .GetPoint(, vbCrLf & "Select Upper Right Point: ")
End With
  
mdpnt(0) = (llpnt(0) + urpnt(0)) / 2 'Midpoint (X) = (The far left picked point + the far right picked point) / 2
mdpnt(1) = (llpnt(1) + urpnt(1)) / 2 'Midpoint (Y) = (The far bottom picked point + the far top picked point) / 2
mdpnt(2) = 0

To get our midpoint; based off of the picked points in the above code, correct?

So, we get our picked points, figure out the midpnt (all done), then with Bob's "new" code, we get the boundary size;
the boundary size gets divided by 2 and gets built around the midpoint in all 4 directions at that (the divided) size
Very clever!

Mark

Mark

[David Hall]

Bob is on the right track of what I was thinking.  Bob, how do you do the default thing???  In LISP I know you use <> to define it, but I never learned how in VBA

[Bob Wahr]

Did everyone hear the click as the pieces fell into place?

[ML]

Bob

Thankfully, I don't swing that way, but I will work for code 


Also, your above idea is also very clever.
Pick center point and get size.


Mark

[Bob Wahr]

Bob is on the right track of what I was thinking.  Bob, how do you do the default thing???  In LISP I know you use <> to define it, but I never learned how in VBA

You use error handling with VBA I throw the <crap> into my prompt so it looks familiar to Johnny Caduserguy but it's handle with the error trapping.

[ML]

Did everyone hear the click as the pieces fell into place?

I'm sorry I must have missed it but I hear the click in my e-mail every time there is a new post