MI Watershed analysis.

1999-08-29 Thread Tom Forbes

Does anyone out there know of any third party add-ons to MapInfo that do
Watershed analysis?

Any help would be appreciated.

Regards
Tom


begin:vcard 
n:Forbes;Thomas
tel;fax:08 9328 2716
tel;work:08 9328 2715
x-mozilla-html:TRUE
url:www.mapsys.com.au
org:Desktop Mapping Systems
version:2.1
email;internet:[EMAIL PROTECTED]
title:Support Manager
adr;quoted-printable:;;1st Floor, 646 Newcastle Street=0D=0ALeederville;Perth;Western Australia;6007;Australia
fn:Tom Forbes
end:vcard



MI subscribe Mapinfo-l

1999-08-29 Thread Andrew Waltho



Andrew Waltho
Consulting Geoscientist
Resource evaluation, project development, information management and GIS
services
Brisbane Australia

Tel:07 5497 8146
Fax:07 5497 8145
Mobile: 0412 426 764
Email:  [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]



MI Default Units

1999-08-29 Thread Lovett Alan

I have a similar question to that posted  recently on default units. I have
changed the default settings to metric however I would like to know within
the metric settings how to change the default units to :
Distance Units - METRES &
Area Units - HECTARES.
I would like have these settings saved  so that I do not need to change them
whenever I start up MI.

cheers

Alan Lovett
GIS UNIT
DNR MACKAY
& Ph: (07) 4951 8765
* Fax: (07) 4957 4005
 Q-Net 68765
*   [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]



Re: MI MB: Changing styles

1999-08-29 Thread Jeff Lebowski

Try this...

   Dim ColorRow As Integer
   Dim ColorObj As Object

   Set Table WorkTable
  FastEdit On Undo Off
   Fetch First From WorkTable
   Do While Not EOT(WorkTable)
  ColorRow = WorkTable.RowID
  ColorObj = WorkTable.Obj
  Alter Object ColorObj
 Info OBJ_INFO_PEN, MakePen(PenWidth, PenPatt, PenColor)
  Update WorkTable
 Set Obj=ColorObj Where RowID = ColorRow
  Fetch Next From WorkTable
   Loop


- Original Message -
From: points <[EMAIL PROTECTED]>
To: mapinfo-l (E-mail) <[EMAIL PROTECTED]>
Sent: Sunday, August 29, 1999 9:26 AM
Subject: MI MB: Changing styles


>MB: Changing styles
>
>Hi Mappers,
>
>I have a table called STR_NEW (lines and polylines) that has a text
>field called "stylenew" containing different pen styles:
>
>Pen(1,1,32768)
>Pen (1,2,16736352)
>Pen (1,1,32768)  and so on...
>
>I need to use code to change each record's object style to
>the corresponding pen style from within the field.
>I've tried various combinations of the following to no avail:
>
>
>Sub Main
>
>Dim pen_var As Pen,
> newobj As Object
>
>newobj=STR_NEW.obj
>pen_var = STR_NEW.stylenew
>Alter Object newobj Info OBJ_INFO_PEN,stylenew
>
>End Sub
>
>I know the solution must be simple. I really appreciate it!
>
>
>Laurence Seeff
>Points Business Mapping Ltd.
>Israel

__
Get Your Private, Free Email at http://www.hotmail.com
--
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]



MI MB: Changing styles

1999-08-29 Thread points

MB: Changing styles

Hi Mappers,

I have a table called STR_NEW (lines and polylines) that has a text
field called "stylenew" containing different pen styles:

Pen(1,1,32768)
Pen (1,2,16736352)
Pen (1,1,32768)  and so on...

I need to use code to change each record's object style to
the corresponding pen style from within the field.
I've tried various combinations of the following to no avail:


Sub Main

Dim pen_var As Pen,
newobj As Object

newobj=STR_NEW.obj
pen_var = STR_NEW.stylenew
Alter Object newobj Info OBJ_INFO_PEN,stylenew

End Sub

I know the solution must be simple. I really appreciate it!


Laurence Seeff
Points Business Mapping Ltd.
Israel

--
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]