Mappers,
Thanks very much to everyone who provided suggestions on this. However, I'm
still having problems and must be missing something really simple. Can
anyone suggest why the following code snippet fails to alter the line styles
of the objects? I've got the program to open the file I want, select all of
the right objects into Selection, but then this next bit doesn't seem to
have any effect (I do commit and close the table later on).
dim tmpObj as Object
dim pen_style as Pen
pen_style = MakePen(1, 2, BLACK)
'.....................................
'Change line style of selected objects.
'.....................................
Set Map Layer 1 Editable On
Fetch First from Selection
Do while not EOT(Selection)
tmpObj=Selection.obj
Alter Object tmpObj info OBJ_INFO_PEN, pen_style
Fetch Next from Selection
Loop
TIA
_____________________________
Tim Warman
Geologist & GIS Specialist
Richard C. Slade & Associates
North Hollywood, CA
(818) 506-0418
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
