juaze
路人甲
路人甲
  • 注册日期2007-05-09
  • 发帖数7
  • QQ
  • 铜币136枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1313回复:1

VC+MapX鹰眼实现2

楼主#
更多 发布于:2007-05-16 21:06
<P>double dblXMax, dblXMin, dblYMax, dblYMin;<BR>            m_eagleMapX.ConvertCoord(;sngXMin, ;sngYMin, ;dblXMin, ;dblYMin, <BR>            miScreenToMap);<BR>            m_eagleMapX.ConvertCoord(;sngXMax, ;sngYMax, ;dblXMax, ;dblYMax, <BR>            miScreenToMap);</P>
<P>            CMapXRectangle rect;<BR>            rect.CreateDispatch(rect.GetClsid());<BR>            rect.Set(dblXMin, dblYMin, dblXMin, dblYMax);<BR>            m_ctrlMapX.SetBounds(rect.m_lpDispatch);<BR>            }<BR>            strMouseState = "Stop";<BR>            }</P>
<P>            void CMTRSView:nMouseDownEagleMap(short Button, short Shift, float <BR>            X, float Y)<BR>            {<BR>            CMapXFeatures ftrs = <BR>            m_eagleMapX.GetLayers().Item("EagleLayer").AllFeatures();<BR>            for(int i = 1; i <= ftrs.GetCount(); i++)<BR>            {<BR>            m_eagleMapX.GetLayers().Item("EagleLayer").DeleteFeature(ftrs.Item(i));<BR>            }<BR>            if(Button == vbLeftButton)<BR>            {<BR>            strMouseState = "Begin";<BR>            PreX = X;<BR>            PreY = Y;<BR>            }</P>
<P>            }</P>
<P>            void CMTRSView:nMouseMoveEagleMap(short Button, short Shift, float <BR>            X, float Y)<BR>            {<BR>            if(Button != vbLeftButton) return;<BR>            CMapXRectangle rctMap;<BR>            CMapXPoints pntsMap;<BR>            CMapXPoint pntMap1, pntMap2, pntMap3, pntMap4;<BR>            CMapXStyle styLine;<BR>            CMapXFeatures ftrs;<BR>            CMapXFeature ftr;<BR>            Single sngX, sngY;<BR></P>
喜欢0 评分0
whmwxhanshan123
路人甲
路人甲
  • 注册日期2006-06-17
  • 发帖数3108
  • QQ
  • 铜币6445枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2007-05-20 19:48
<img src="images/post/smile/dvbbs/em02.gif" />
举报 回复(0) 喜欢(0)     评分
游客

返回顶部