Hi everybody!
I posted this question to the list a week or so ago and have not received
any responses as yet (wondering if it was sent).
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.
Type MapScale_Info
Descript As String
AOx As Float
AOy As Float
AOzoom As Float
AOxp As Float
AOyp As Float
AOzoomp As Float
A4x As Float
A4y As Float
A4zoom As Float
A4xp As Float
A4yp As Float
A4zoomp As Float
End Type
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
****************************************************************************
********************************************************************
Type MapScale_Info
Descript As String
AOx As Float
AOy As Float
AOzoom As Float
AOxp As Float
AOyp As Float
AOzoomp As Float
A4x As Float
A4y As Float
A4zoom As Float
A4xp As Float
A4yp As Float
A4zoomp As Float
End Type
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]
