mjpok
路人甲
路人甲
  • 注册日期2005-03-09
  • 发帖数4
  • QQ
  • 铜币133枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1243回复:1

[求助]把54坐标系转成经纬度出现错误,invalid bounds specified

楼主#
更多 发布于:2007-12-18 20:20
<TABLE  width="90%" border=0>

<TR>
<TD  width="100%"> <B>[求助]把54坐标系转成经纬度出现错误,invalid bounds specified</B><BR>[求助]把54坐标系转成经纬度出现错误,invalid bounds specified<BR>请大侠帮忙看看!是不是参数位置放错了?
<br>
<P>procedure TForm1.change54toxy(nGisX, nGisY: Double);<BR>  var<BR>    oDtm: MapXLib_TLB.Datum;<BR>    nJwdX,nJwdY: Double;<BR>    nTmpX,nTmpY: Single;<BR>begin<BR>  oDtm:=MapXLib_TLB.CoDatum.Create;<BR>  //把MAP设为GIS坐标系<BR>  oDtm.Set_(3, 24, -123, -94, -0.02, 0.25, 0.13, 1.1, 0);</P>
<P>  map1.NumericCoordSys.Set_(8,oDtm,7,0,0,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,1,500000,0);</P>
<P>  map1.MapUnit:=miUnitMeter;</P>
<P>  //GIS坐标系点转为屏幕点<BR>  map1.ConvertCoord(nTmpX, nTmpY, nGisX, nGisY, miMapToScreen);<BR>  //把MAP设为经纬坐标系<BR>  map1.NumericCoordSys.Set_(1, 0,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);<BR>  map1.MapUnit := miUnitDegree;<BR> //屏幕点转为转为经纬系点<BR>  map1.ConvertCoord(nTmpX, nTmpY, nJwdX, nJwdY, miScreenToMap);<BR>  Edit3.Text:=floattostr(nJwdX);<BR>  Edit4.Text:=floattostr(nJwdY);<BR>end;</P>
<P><BR>procedure TForm1.Button1Click(Sender: TObject);<BR>begin<BR>  change54toxy(493705.185,3172066.712);<BR>end;</P></TD></TR></TABLE>
喜欢0 评分0
echo2003
点子王
点子王
  • 注册日期2003-07-28
  • 发帖数2453
  • QQ76947571
  • 铜币5473枚
  • 威望1点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
1楼#
发布于:2007-12-21 15:19
<P><STRONG>invalid bounds specified</STRONG><BR>意思应该是:指定范围无效</P>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部