# style table name tblname$ = "jinko_style"; tblnamevianum$ = "no table set via table number"; numeric err; err$ = "no error"; # use to debug, will be entered in table field if use 'return err$;' # get descriptor to use instead of table number class RVC_DESCRIPTOR descriptor; descriptor.SetName(tblname$); # Get style from db style table class RVC_DBASE_POLYGON db; class RVC_DBTABLE_STYLE style; class RVC_STYLE styleobj; class POLYSTYLE polystyle; # open db err = db.OpenAsSubobject(Vect, "Read"); if (err<0) { err$ ="error db.OpenAsSubobject"; } err = style.Open(db,descriptor); if (err<0) { err$ ="error style.Open"; } err = style.FindStyleObject(styleobj); # get style object if (err<0) { err$ ="error style.FindStyleObject"; } polystyle = styleobj.ReadPolyStyle(jinko_style._StyleName_); # get the style style.Close(); class COLOR c = polystyle.FillColor; # get the fill color # format the text for the output r$ = sprintf("%02x", c.red * 255 / 100); g$ = sprintf("%02x", c.green * 255 / 100); b$ = sprintf("%02x", c.blue * 255 / 100); #return err$; # TEST for returned error return r$+g$+b$;