Author Topic: Inserting a Raster and Scale  (Read 2182 times)

0 Members and 1 Guest are viewing this topic.

ML

  • Guest
Re: Inserting a Raster and Scale
« Reply #15 on: November 07, 2007, 12:24:12 PM »
Code: [Select]
[code]Yes, I think you are right Bry
I think it is the point that you are picking with the getpoint method that requires a Variant type

Then I think you would create another variable as Double

Ex:
Dim llpnt as Variant 'Pick Lower Left Point
Dim urpnt as Variant 'Pick Upper Right Point
Dim Mdpnt (0 to 2) as Double

llpnt (0) = Mdpnt (0): llpnt (1) = Mdpnt (1): llpnt (2) = Mdpnt (2)
urpnt (0) = Mdpnt (0): urpnt (1) = Mdpnt (1): urpnt (2) = Mdpnt (2)

mdpnt(0) = llpnt(0) + ((urpnt(0) - llpnt(0)) / 2) 'Midpoint (X) = The point in the far left direction - the point in the far right direction / 2
mdpnt(1) = llpnt(1) + ((urpnt(1) - llpnt(1)) / 2) 'Midpoint (Y) = The point in the far top direction - the point in the far bottom direction / 2
mdpnt(2) = 0
[/code]

Is this more like it Bry?

Thanks
Mark


ML

  • Guest
Re: Inserting a Raster and Scale
« Reply #16 on: November 07, 2007, 12:26:19 PM »

Yes, I think you are right Bry
I think it is the point that you are picking with the getpoint method that requires a Variant type

Then I think you would create another variable as Double

Ex:
Code: [Select]
Dim llpnt as Variant 'Pick Lower Left Point
Dim urpnt as Variant 'Pick Upper Right Point
Dim Mdpnt (0 to 2) as Double

llpnt (0) = Mdpnt (0): llpnt (1) = Mdpnt (1): llpnt (2) = Mdpnt (2)
urpnt (0) = Mdpnt (0): urpnt (1) = Mdpnt (1): urpnt (2) = Mdpnt (2)

mdpnt(0) = llpnt(0) + ((urpnt(0) - llpnt(0)) / 2) 'Midpoint (X) = The point in the far left direction - the point in the far right direction / 2
mdpnt(1) = llpnt(1) + ((urpnt(1) - llpnt(1)) / 2) 'Midpoint (Y) = The point in the far top direction - the point in the far bottom direction / 2
mdpnt(2) = 0

Is this more like it Bry?

AHHHHHHHHHHHHH Confusing!!    :-(

Thanks
Mark

ML

  • Guest
Re: Inserting a Raster and Scale
« Reply #17 on: November 07, 2007, 12:27:44 PM »

Bry

As to the raster and scale:

Even though I use
Scalefactor = 12

When I list the raster in ACAD, it says scale 18.82

So, while I understand what you are saying, I don't understand what you are saying :)

Is there a different method that I am missing?

Mark

Bryco

  • Water Moccasin
  • Posts: 1850
Re: Inserting a Raster and Scale
« Reply #18 on: November 07, 2007, 07:41:37 PM »
Please post an image.

ML

  • Guest
Re: Inserting a Raster and Scale
« Reply #19 on: November 08, 2007, 02:08:29 PM »

Hi Bry
I am not sure I am doing this right but here it goes

Thank you

Mark


ML

  • Guest
Re: Inserting a Raster and Scale
« Reply #20 on: November 08, 2007, 02:09:55 PM »

OK
Let me try again

Mark


ML

  • Guest
Re: Inserting a Raster and Scale
« Reply #21 on: November 08, 2007, 02:10:41 PM »

OK, I am not getting something right   :-(