Please help I would like to automate the changing of styles for point object symbols to represent a predefined style.
I have over 100 different themes within one table and plan to change each one based on an identifying ID number. It must be automated, as the process will be rerun each month. I have read mapbasic extensively in particular Alter object, set style MakeSymbol, CurrentSymbol() but have failed to provide a suitable solution. The following code is very close and is supplied as a mapbasic example: Dim symbolSave As Symbol Dim sSymbolAttr As String Dim sCmd As String 'store the current style so we can restore it latersymbolSave = CurrentSymbol() 'set a new "current symbol style" sSymbolAttr = "(35,65280,22)"sCmd = "Set Style Symbol MakeSymbol" + sSymbolAttrRun Command sCmd' use an Update statement to create a new Point for ' every row in the Selection table. Each new Point' will use the new "current symbol style" Update "Selection" Set obj = CreatePoint(CentroidX(obj),CentroidY(obj))Close Table Selection ' restore the original "current symbol style" Set Style Symbol symbolSave This works for the mapinfo 3.0 compatible, with the set style command using makesymbol, however I am unable to adapt the code to allow the makefontsymbol clause to allow the use of the other symbol fonts including Wingdings, real estate etc. I would be grateful if anybody could adapt the above code to include the rest of the symbol options. Thankyou Andrew Tracey Information Support Officer Corporate Information Corporate Growth and Focus Corporate Development South Tyneside Council Westoe Road South Shields NE33 2RL Tel: 0191 4247561 E-Mail : [EMAIL PROTECTED] ************************************************************************************************ Please do not print this e-mail if you can help it - and help protect the environment. ************************************************************************************************ This Message may contain confidential information and is protected by copyright. If you receive it in error please notify us and delete it without making use of or copying it. The addressee and other employees within the Council may read and copy any e-mail reply to this message and other e-mails you send to us. Whilst we use virus checking procedures we accept no liability for viruses and recipients must rely on their own virus checking procedures. ************************************************************************************************ The Council's web site address is www.southtyneside.info --------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 11242
