Vedr: MI Changing selected object styles using MB

[pel]

Hi Tim

You have to write a function and then use it in a Update


Include "mapbasic.def"
declare Function NewStyle(byval o as object) as object


...............
     Update Selection set obj = NewStyle(obj)
...............

Function NewStyle(byval o as object) as object
      dim tmpObj as object,
              pStyle as Pen

             pStyle   = MakePen(.........)
             tmpObj = o
             Altter object tmpObj Info OBJ_INFO_CODE, pStyle
             NewStyle = tmpObj
end function


Peter Laulund
National Survey and Cadaste, Denmark





"Tim Warman" <[EMAIL PROTECTED]> - 14-12-99 22:21:36

      Besvar venligst til [EMAIL PROTECTED]

Til:    "Mapinfo-L" <[EMAIL PROTECTED]>
cc:      (bcc: Peter Laulund/MI/KMS)
Vedrørende:    MI Changing selected object styles using MB




I know this should be straightforward, but once I've selected a number of
line objects and placed them in the Selection table, is there a simple way
to change all of the lines styles to a single thickness and colour?
Something akin to selecting options>line style in MI.

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]