Re: MI How to draw a hexagon in MapInfo?

[Bob Young - www.bydesignwales.demon.co.uk]

Dear Bill

Your suggestion has got earn the best bet of lateral thinking I've seen
for a while.

Nice one!

Regards


Bob



In message <[EMAIL PROTECTED]>, Bill Thoen <[EMAIL PROTECTED]>
writes
>How about drawing a six-sided buffer around the midpoint of your
>line with a radius equal to one-half its length? This works well
>if you aren't fussy about the orientation of the hexagon:
>
>dim x,y as float
>dim r as float
>dim objHexagon as object
>
>'calculate midpoint:
>x = (x1 + cell.lon) / 2
>y = (y1 + cell.lat) / 2
>
>'determine radius:
>r = distance (x1, y1, Cell.lon, cell.lat, "km") / 2
>
>'Create the hexagon:
>objHexagon = Buffer (CreatePoint(x,y), 6, r, "km")
>
>If you want to draw a tesselation of heaxagons, and don't mind
>spending $25 (but the downloadable samples are free), take a look
>at: http://www.ctmap.com/gisnet/catalog/sw/hexgrid.html 
>
>- Bill Thoen
>
>Xu Xiaoning wrote:
>> 
>> Hello,All:
>> 
>> How to draw a hexagon in MapInfo?
>> 
>> There are some words in VB and MapInfo ,such as,
>> 
>> mapinfo.do "Set Style Pen MakePen(1,60," & j & ")";
>> mapinfo.do "update cell set Obj= CreateLine(x1,y1,cell.lon, cell.Lat) where 
>rowid=" & i;
>> 
>> Their function is to draw a line between two points.But what i really want to 
>know is how to
>> draw a hexagon between two points.Who can teach me?
>> 
>> Thanks,
>> 
>>    Your sincerely,
>> 
>>             Xu Xiaoning
>>             [EMAIL PROTECTED]
>>             [EMAIL PROTECTED]
>>             ICQ:46904055
>> 
>> ----------------------------------------------------------------------
>> To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
>> "unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
>----------------------------------------------------------------------
>To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
>"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]

-- 
Bob Young - www.bydesignwales.demon.co.uk
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]