G'day Ethan,

It sounds like a small utillity that I have written may be of use.

shade.mbx matches up a character code in your map table with a code in a legend
table, and applies the region style from the legend table.

I will send you a copy.

If anyone else is interested, I shall soon place it on the Freeware section of
my website.

Regards

Neil Moseley
Geodata Computing Services
http://www.iinet.net.au/~mose/

Ethan Hohneck wrote:

> Good morning, good evening, and Good night to you all.
>
> I have just started to write MapBasic programs and am finding it very
> challenging.
>
> I have a scenario where i have a table that has a specific Brush and Pen
> styles set to it.  From this layer i want to select particular polygons
> using a select query, and then change the polygon style to something
> different.  I want to automate this process so because it is a weekly one,
> and i have to select a lot of different polygons and change their styles.
>
> So far i have:
> *       opened the table,
> *       selected the polygons from their field and their text description,
> *       mapped the query and made it editable.
> *       All the polygons come up selected.
>
> Now i just need the final process, to change the style (Brush, and Pen) and
> then commit the table.
>
> I have been playing around with the following code.
> .............After the query
> Map From Selection
>         Set Map Layer 1 Editable On
>
>         Dim WRC_b As Brush
>         dim selectionobj as object
>
>         WRC_b = ObjectInfo(Selectionobj,OBJ_INFO_BRUSH )
>         Alter Object  Selectionobj
>         Info OBJ_INFO_BRUSH, MakeBrush(2, 32896, 16777215)
>
> This compiles but doesnt work.  It says "Can not use an unitialized object
> variable in and expression"
>
> I dont know if this is the correct way to change the region style,  CAN
> ANYONE POINT ME IN THE RIGHT DIRECTION.
>
> Thanks heaps.
>
> Ethan Hohneck
> SWDC
> Tokoroa
> New Zealand
>
> ----------------------------------------------------------------------
> 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]

Reply via email to