Dear Group Thanks for your help earlier.
However I am stuck again. The following code works Include "Mapbasic.def" Dim sStyle as Symbol Dim Point_Type as integer sStyle = currentsymbol() Point_Type = StyleAttr(sStyle, SYMBOL_KIND) note Point_Type However the problem is I need to know how to set sStyle as the currently selected objed eg this doesnt work but illustrates problem Include "Mapbasic.def" Dim sStyle as Symbol Dim Point_Type as integer Fetch first from selection sStyle = selection.obj ' This is incorrect Point_Type = StyleAttr(sStyle, SYMBOL_KIND) note Point_Type Daniel York MapInfo Specialist Information Team Corporate Development South Tyneside Council Town Hall and Civic Offices Westoe Road South Shields Tyne & Wear NE33 2RL 0191 4247558 ************************************************************************************************ 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 South Tyneside Business Week 7-13th July 2004, Bents Park, South Shields www.southtyneside.info/businessweek --------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 12534
