Not to get into a coding war, but how about a right click in the mapper shortcut menu?

Mark

' This utility sets the active mapper window to meters
' "Set to meters" will be added to the Mapper Shortcut menu.

Include "mapbasic.def"
include "menu.def"
Declare Sub Main
Declare Sub SetMeters
Sub Main
Alter Menu "MapperShortcut"
        Add "Set to Meters" Calling SetMeters
End Sub

Sub SetMeters
Set Map Distance Units "m"
End Sub




--------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 5933



Reply via email to