I'm reading coordinates from a textfile into a Visual Basic application
from which I run an instance of MapInfo through automation:
I set the projection as follows:
1.
msg = "Create Map For " & MapNameArray(MyType, 2, BrowserNo) & " CoordSys
Earth Projection 8, 104, "
msg = msg & Chr(34) & "m" & Chr(34) & ", -177, 0, 0.9996, 500000, 0 Bounds
(-7745844.29597, -9997964.94324) (8745844.29597, 9997964.94324)"
MIDetail(BrowserNo).Do msg 'That command maps the tables
2. I create an index on the fields
msg = "Create Index On "
msg = msg & MapNameArray(TableType, 2, BrowserNo) & " (" & "X_m" & ")"
MIDetail(BrowserNo).Do msg
msg = "Create Index On "
msg = msg & MapNameArray(TableType, 2, BrowserNo) & " (" & "Y_m" & ")"
MIDetail(BrowserNo).Do msg
3. And read the coordinates into the fileds and ceate the points
xcoord = InfoJunc(i).JuncX
ycoord = InfoJunc(i).JuncY
'That's supposed to create a point
msg = "Insert Into "
msg = msg & MapNameArray(TableType, 2, BrowserNo) & " (" & "obj" &
") "
msg = msg & "Values (CreatePoint("
msg = msg & xcoord & "," & ycoord & "))"
MIDetail(BrowserNo).Do msg
When I later display a mapper all points lie on top of each other though
definitely holding the right and different coordinates. (they're all in the
range of
418693.25 7654884.50
419069.03 7654990.50
419336.63 7654861.50
419556.06 7654400.00
419525.38 7654724.00
419537.66 7654757.50
Interesting enough non-earth coordinates in the range of 30.74 78.64
51.94 60.84
are correctly displayed.
Anybody's got an idea what happened?
Secondly I'd like to display mapInfo browser tables in my VB application.
How can I do that?
Please copy reply to this compuserve address and thnaks in advance.
Harald Scholzel
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
