Jacques' suggestion seemed like it should work but it doesn't. If I run
his suggested workspace from a MapBasic application through the "run
application" command the centroidX and CentroidY functions still works
in the default projection. However if I run the workspace from the
File->open workspace it works??? Doesn't make sense to me...
All I want to do is create a Menu item to change it with the
chooseprojection$ function as opposed to writing the whole projection in
the MapBasic Window each time (I use UTM, MTM and custom projections
often and they have lots of parameters to write...). Everything seems
to work except for what I described above.
Thank you!
The code I use is:
Include "MapBasic.def"
Declare Sub Main
Declare Sub NewCoord
Sub Main
Alter Menu "Options" Add
"Change Global Projection" Calling NewCoord
End Sub
Sub NewCoord
Run application "C:\Documents and Settings\user\Application
Data\MapInfo\MapInfo\changecoord.wor"
End Sub
And the workspace is as suggested by Jacques:
!Workspace
!Version 600
!Charset WindowsLatin1
Dim a as string
a="set "+chooseprojection$("",1)
run command a
undim a
Nicolas Muszynski
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: 9 ao�t 2004 09:31
To: [EMAIL PROTECTED]
Subject: RE: MI-L Changing projections with MapBasic
If you are running MapInfo Pro 7.0 & later there are now two Projection
preferences that will do the following:
Table Projection - Use for Importing MIF, IMG, MBI, MMI, and SHP files.
When you are importing MIF files that don't have a projection specified,
they will have their projection set to Default Table projection. When
using the ChooseProjection$( initial_coordsys, get_bounds ) function, if
initial_coordsys is not valid or is empty, the dialog will have Default
Table projection selected. The default projection is also used in the
Create Points dialog, the New Table dialog, the New Table Structure
dialog,
the Modify Table Structure dialog, the Image Registration dialog, and
the
Make Table Mappable dialog.
Session Projection - The Default Session Projection is the projection
that
is used for returning coordinate values in a MapBasic function executed
using the MapBasic window and via the GUI (e.g.: Update Column with
CentroidX(obj) ).
Compiled MapBasic applications do not use projection preferences and are
not affected by them.
You would use the Set Coordsys statement to effect a change in the
Current
MapBasic Coordsys which is only in effect during running of that
MapBasic
program. When program exits, MI Pro Session Coordsys reverts to Lon\Lat
(no datum), or the session projection prerference in MI Pro 7.0 & later.
A startup.wor to set the session coordsys would not be necessary in
these
newer versions.
MapBasic 7.x also has a SessionInfo() function that can give you the
following info to determine and set the global MapBasic Coordsys, Area,
Distance, and Paper units within a running program.
SessionInfo(1) - returns current MapInfo Pro Session Coordsys
SessionInfo(2) - returns current MapInfo Pro Distance Units
SessionInfo(3) - returns current MapInfo Pro Area Units
SessionInfo(4) - returns current MapInfo Pro Paper Units
If you are using version MI Pro 6.5 & earlier, then Jacques'
suggestions
would work fine in setting the session projection.
Regards,
-Bill
Mail List:
[EMAIL PROTECTED]
From: on 08/06/2004 04:48 PM AST
To: "Nicolas Muszynski" <[EMAIL PROTECTED]>, "MIL"
<[EMAIL PROTECTED]>
cc:
Subject: RE: MI-L Changing projections with MapBasic
You are talking about two domains that do not communicate. The "global"
one
is used for the internal working of MapInfo and is accessed by the
MapBasic
window. The "application" domain is totally independent and several
coordsys
can thus exist in parallel.
If you were to add at the end of your NewCoord sub "print
centroidx(selection.obj)" and open a table and select one object before
running the mbx, you will see that the measure is in the new coordsys,
but
that the "global" one has not changed.
That may indeed look strange given the fact that it is said that the
"run
command" is processed outside the application domain...
But if you were to run from the MB window the following lines
Dim a as string
a=coordsys$()
run command "set "+a
the "global" coordsys will be changed
One way to do it without writing it each time would be to prepare a wor
and
use a
run application "fullpath\changeglobalcoordsys.wor". That wor would look
something like
!Workspace
!Version 600
!Charset WindowsLatin1
Dim a as string
a="set "+chooseprojection$("",1)
run command a
undim a
You can of course use that wor-based function from within a compiled mbx
with the "run application"
Jacques Paris
e-mail [EMAIL PROTECTED]
MapBasic-MapInfo support http://www.paris-pc-gis.com
-----Original Message-----
From: Nicolas Muszynski [mailto:[EMAIL PROTECTED]
Sent: 6-Aug-04 12:00
To: [EMAIL PROTECTED]
Subject: MI-L Changing projections with MapBasic
Hello,
I am trying to make a very simple MapBasic program to change the
"Global" MapInfo projection, the equivalent of typing: "Set Coordsys
Earth projection (whatever the projection may be)" In the MapBasic
Window.
When I execute the line:
Run Command "Set Coordsys Earth projection "whatever the projection may
be"
It changes the current application Projection but does not change the
"global" Mapinfo projection.
The reason I want to do this is that when objects are labelled with the
function CentroidX or CentroidY they automatically take the "Global"
MapInfo Projection and do not use the table projection, Layout
Projection or map projection. The same happens when you want to update
a column with the same CentroidX or CentroidY Functions.
I included the program below for reference,
Include "MapBasic.def"
Declare Sub Main
Declare Sub NewCoord
Sub Main
Dialog
Title "Set a Global Projection"
Control StaticText
Title "Choose a Projection"
Control Button
Title "Choose Projection"
Calling NewCoord
End Sub
Sub NewCoord
Dim NewSys as String
NewSys=ChooseProjection$("",True)
NewSys="Set " + NewSys
Dialog Remove
Note NewSys
Run Command NewSys
End Sub
Thank you for taking the time to at least read,
Nicolas Muszynski
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 12867
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 12872
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 12895
