### 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 BryI think it is the point that you are picking with the getpoint method that requires a Variant typeThen I think you would create another variable as DoubleEx:`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 PointDim urpnt as Variant 'Pick Upper Right PointDim Mdpnt (0 to 2) as Doublellpnt (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 / 2mdpnt(1) = llpnt(1) + ((urpnt(1) - llpnt(1)) / 2) 'Midpoint (Y) = The point in the far top direction - the point in the far bottom direction / 2mdpnt(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 »

#### 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