Hi Laurence The trick is to write a function and then use it in a update expresion NB The SET TABLE FASTEDIT ON /OFF makes the update faster Try this code Include "MapBasic.def" Dim Main Dim Function NewStyle(byval o as object , Byval s as string)as object sub Main note "Run" Set table MyTab fastedit on Update MyTab set obj = NewStyle(obj, STR_NEW) commit table MyTab set table MyTab fastedit off end sub Function NewStyle(byval o as object , Byval s as string)as object Dim newObj as object run command "Set Style pen Make" & s newObj = o Alter Object newobj Info OBJ_INFO_PEN,CurrentPen() NewStyle = newObj End Function Peter laulund National Survey and Cadastre, Denmark points <[EMAIL PROTECTED]> - 29-08-99 15:26:44 Til: "mapinfo-l (E-mail)" <[EMAIL PROTECTED]> cc: (bcc: Peter Laulund/MI/KMS) Vedrørende: 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 ---------------------------------------------------------------------- To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put "unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]