MapX之VC设置非地球坐标系

Alexhcr

Alexhcr

2016-02-19 12:56

清醒时做事,糊涂时读书,大怒时睡觉,无聊时关注图老师为大家准备的精彩内容。下面为大家推荐MapX之VC设置非地球坐标系,无聊中的都看过来。

:MapX之VC设置非地球坐标系
:vc6+mapx4.5+win2k+sp3
:CoordSys.set设置非地球坐标系时,必须定义坐标范围
:www.51gis.com
int CMyGIsView::OnCreate(LPCREATESTRUCT lpCreateStruct)
{
if (CView::OnCreate(lpCreateStruct) == -1)
return -1;

// create map with default size
// resize message will cause it to be
// size to the client area of the view
m_ctrlMapX.Create(NULL, WS_VISIBLE, CRect(0,0,100,100), this, IDC_MAP);
m_ctrlMapX.SetGeoSet("Mygst.gst");

//-------以下代码设置nonearth(meters)坐标系-------------
CMapXRectangle Rect;
CMapXCoordSys CurrentCoordsys;
COptionalVariant vEmpty;
VARIANT MapUnit,MapBounds;
if(!Rect.CreateDispatch(Rect.GetClsid()))
{
TRACE0("Could not Create object");
}
if(!CurrentCoordsys.CreateDispatch(CurrentCoordsys.GetClsid())) {
TRACE0("Could not Create object");
}
try {
MapUnit.vt=VT_I4;
MapUnit.lVal=miUnitMeter;
//设置坐标范围(MBR).为求一致,这里取当GeosetManager中设置为non-earth(meters)时,
//gst文件中的参数"GEOSETMBRLOWERLEFT" ,"GEOSETMBRUPPERRIGHT"。
Rect.Set(-2165.540090678837, 9841.99939777,46782.41871417205,41026.85331473999);

MapBounds.vt=VT_DISPATCH;
MapBounds.pdispVal=Rect.m_lpDispatch;
MapBounds.pdispVal-AddRef();
CurrentCoordsys.Set(0, vEmpty,MapUnit, vEmpty, vEmpty, vEmpty,vEmpty, vEmpty, vEmpty, vEmpty, vEmpty, vEmpty,MapBounds, vEmpty);
m_ctrlMapX.SetNumericCoordSys(CurrentCoordsys.m_lpDispatch);
m_ctrlMapX.SetDisplayCoordSys(m_ctrlMapX.GetNumericCoordSys().m_lpDispatch);

} catch (COleDispatchException *e) {
e-ReportError();
e-Delete();
} catch (COleException *e) {
e-ReportError();
e-Delete();
}
//------------------------------------------------

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)

return 0;
}

==================MapX专家论坛(www.51gis.com)===================

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/bianchengyuyan/)
展开更多 50%)
分享

猜你喜欢

MapX之VC设置非地球坐标系

编程语言 网络编程
MapX之VC设置非地球坐标系

PPT制作精确坐标系

电脑入门
PPT制作精确坐标系

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

AutoCAD 2008 使用坐标系

autocad教程
AutoCAD 2008 使用坐标系

AutoCAD中的坐标系

autocad教程
AutoCAD中的坐标系

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

三维坐标系教程

autocad教程
三维坐标系教程

AutoCAD中的坐标系教程

autocad教程
AutoCAD中的坐标系教程

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

win10正式版安装程序无法正常启动怎么删除$Windows.~WS文件?

win10正式版安装程序无法正常启动怎么删除$Windows.~WS文件?

深入解析钩子和动态链接库(下)

深入解析钩子和动态链接库(下)
下拉加载更多内容 ↓