阅读:1577回复:0
[求助]鼠标移动的时候获取精纬度.(在文本框里面)
<P> double MX,MY;<br>double x1,y1;</P>
<P>float xx,yy;<br> long cunit;<br> CString UnitStr;<br> xx = X;<br> yy = Y;<br><br> // cunit = m_map.DisplayCoordSys.Units<br> m_map.GetDisplayCoordSys();<br> //cunit=m_map.GetNumericCoordSys();<br> // m_map.GetNumericCoordSys();<br>// cunit=m_map.GetCurrentTool();<br> // Map1.NumericCoordSys.Set miLongLat, 0</P> <P> // m_map.ConvertCoord( xx,yy,MX,MY,1) ;<br> m_map.ConvertCoord(;X,;Y,;MX,;MY,miScreenToMap);</P> <P> // Map1.ConvertCoord X, Y, MX, MY, 1<br> x1 = MX;<br> y1 = MY;</P> <P> switch(cunit)<br> {<br> case 0 : UnitStr = "英里";break;<br> case 1 : UnitStr = "公里"; break; //'miUnitKilometer = 1<br> case 2 : UnitStr = "英寸"; //'miUnitInch = 2<br> case 3 : UnitStr = "英尺" ; //'miUnitFoot = <br> case 4 : UnitStr = "码"; //'miUnitYard = 4<br> case 5 : UnitStr = "毫米" ;//'miUnitMillimeter = 5 <br> case 6 : UnitStr = "厘米" ;//'miUnitCentimeter = 6<br> <br> case 7 : UnitStr = "米"; // 'miUnitMeter = 7<br> <br> case 8 : UnitStr = "US Survey Feet" ; //'miUnitSurveyFoot = 8<br> <br> case 9 : UnitStr = "海里" ;//'miUnitNauticalMile = 9<br> <br> case 10 : UnitStr = "缇" ;//'miUnitTwip = 10<br> <br> case 11 : UnitStr = "点" ;//'miUnitPoint = 11<br> <br> case 12 : UnitStr = "Pica" ;//'miUnitPica = 12<br> <br> case 13 : UnitStr = "度" ;//'miUnitDegree = 13<br> <br> case 30 : UnitStr = "令";// 'miUnitLink = 30<br> <br> case 31 :UnitStr = "链";// 'miUnitChain = 31<br> <br> case 32 : UnitStr = "竿"; // 'miUnitRod = 32<br> <br> }</P> [此贴子已经被作者于2006-4-25 14:20:02编辑过]
|
|