Hi everybody!
I'm having a bit of a problem here and am after some HELP!
Below is some code, the top part of which is a working version, the bottom
part is what I want to use to achieve the same result as the top part.
Dim MapSetup As String
Dim MapSetupx, MapSetupy, MapSetupz As Float
Dim MapSel As SmallInt
MapSel = 1
MapSetupx = MapScaleList(MapSel).A4xp ' Values in a Text file. When this is
run MapSetupx = 150.078
MapSetupy = MapScaleList(MapSel).A4yp
MapSetupz = MapScaleList(MapSel).A4zoomp
MapSetup = "Set CoordSys Earth Set Map Window " + Window_id + " Center (" +
MapSetupx + ", " + MapSetupy +") Zoom " + MapSetupz + " Units ""mi"""
Run Command MapSetup
****************************************************************************
********************************************************************
Dim MapSetup, MapSetupx, MapSetupy, MapSetupz As String
Dim MapSel, SizeSel As SmallInt
MapSel = 1
SizeSel = 1
MapSetupx = "MapScaleList(" + MapSel + ")." + MapSizeList(SizeSel).Descript
+ "yp" ' Values in a Text file. When this is run MapSetupx =
MapScaleList(1).A4xp
MapSetupy = "MapScaleList(" + MapSel + ")." + MapSizeList(SizeSel).Descript
+ "yp"
MapSetupz = "MapScaleList(" + MapSel + ")." + MapSizeList(SizeSel).Descript
+ "Zoomp"
MapSetup = "Set CoordSys Earth Set Map Window " + Window_id + " Center (" +
MapSetupx + ", " + MapSetupy +") Zoom " + MapSetupz + " Units ""mi"""
Run Command MapSetup
****************************************************************************
********************************************************************
How do I get the values of MapSetupx,y,z and put them into Float Variables
for use in the Set Map Window Statement?
I've had a bit of a play with Alias's but do not know if this is the way to
go.
Please HELP, HELP, HELP
TIA
Scott.
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
