aibogis

路人甲

注册日期2006-06-28
发帖数7
QQ
铜币130枚
威望0点
贡献值0点
银元0个

加关注写私信

阅读：3754回复：12

请教一个engine中实现捕捉功能的问题

楼主^#

更多发布于：2006-06-28 20:18

各位大侠，请教一个捕捉的问题。
我现在通过hittest已经得到了捕捉点，我想像arcmap的sketch工具一样，通过一个小圆圈表示当前捕捉到的点。
请问通过什么方法绘制这个小圆圈比较好？多谢！
我现在是通过element来绘制的，但对鼠标轨迹的擦除不是很好，总是有些痕迹的残留。代码如下：
捕捉鼠标绘制 Dim pCurrentSymbol As ISimpleMarkerSymbol pCurrentSymbol = New SimpleMarkerSymbol With pCurrentSymbol .Outline = True .OutlineSize = 0.2 .OutlineColor = GetRGBColor(0, 0, 0) .Color = GetRGBColor(0, 200, 240, 0) .Style = esriSimpleMarkerStyle.esriSMSSquare .Size = 6 End With
Dim pPointGeo As IGeometry pPointGeo = m_pPoint 'm_pPoint是捕捉到的点，从窗体传入类中的 Dim pElement As IElement Dim pME As IMarkerElement pME = New MarkerElement pElement = pME pElement.Geometry = pPointGeo pME.Symbol = pCurrentSymbol
Dim pGraphicsContainer As IGraphicsContainer pGraphicsContainer = GetMap() pGraphicsContainer.DeleteAllElements() pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, pElement, Nothing) pGraphicsContainer.AddElement(pElement, 0)
Dim pEnve As IEnvelope ’用于擦除鼠标轨迹的矩形区域 If m_pOldPoint Is Nothing Then m_pOldPoint.PutCoords(m_pPoint.X, m_pPoint.Y) End If pEnve = m_pOldPoint.Envelope pEnve.Height = 10 pEnve.Width = 10 pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, Nothing, pEnve)
pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, pElement, Nothing)
m_pOldPoint = m_pPoint

喜欢0 评分0

举报回复

aibogis 路人甲注册日期2006-06-28 发帖数7 QQ 铜币130枚威望0点贡献值0点银元0个加关注写私信	1楼^# 发布于：2006-07-05 21:42 Dim pSymbol As ISymbol<BR>pSymbol = pCurrentSymbol<BR>pSymbol.ROP2 = esriRasterOpCode.esriROPNotXOrPen <P>通过这个Symbol重绘小圆圈，即可实现擦除！</P> <P>这是一个很好的方法，大家可以试试。呵呵！</P>
	举报回复(0) 喜欢(0) 评分

aibogis 路人甲注册日期2006-06-28 发帖数7 QQ 铜币130枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2006-07-05 09:54 <P> Dim pSymbol As ISymbol<BR> pSymbol = pCurrentSymbol<BR> pSymbol.ROP2 = esriRasterOpCode.esriROPNotXOrPen</P> <P>通过这个Symbol重绘小圆圈，即可实现擦除！</P> <P>这是一个很好的方法，大家可以试试。呵呵！</P>
	举报回复(0) 喜欢(0) 评分

wanilyer 路人甲注册日期2004-12-29 发帖数43 QQ 铜币60枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2006-07-03 11:52 <P>你可以在移动之前就是绘制小圆圈之前先擦掉原来已经画的圆圈</P>
	举报回复(0) 喜欢(0) 评分

semon1981

路人甲

注册日期2006-06-04
发帖数28
QQ
铜币198枚
威望0点
贡献值0点
银元0个

加关注写私信

4楼^#

发布于：2006-07-02 11:47

在使用的时候发现在扑获以后不能移动鼠标，所以隔一段时间进行扑获
全局变量：
const int internalTime = 10;//时间间隔
int snapTime =10;//初始值
在ｍａｐ　ｍｏｕｓｅｍｏｖｅ中的代码
 IPoint iPt = null;
 snapTime+++;
 snapTime = snapTime%internalTime ; //鼠标自动扑获顶点 
 if(snapTime ==0) iPt = Snapping(e.x, e.y, m_iFeatureLyr); if (bCreateElement) { CreateMarkerElement(e.x, e.y); bCreateElement = false; } else if (iPt != null) ElementMoveTo(iPt); else m_featEdit.ElementMoveTo(pt12); if (iPt != null) { map.ActiveView.ScreenDisplay.DisplayTransformation.FromMapPoint(iPt, out x1, out y1); System.Drawing.Point pt1 = PointToScreen(new System.Drawing.Point(x1, y1));
 System.Drawing.Point pt11 = map.PointToScreen(new System.Drawing.Point(x1, y1)); SetCursorPos(pt11.X, pt11.Y); 
 }

举报回复喜欢评分

aibogis

路人甲

注册日期2006-06-28
发帖数7
QQ
铜币130枚
威望0点
贡献值0点
银元0个

加关注写私信

5楼^#

发布于：2006-06-30 22:17

semon1981，多谢！
我用了另一个方法，大家研究一下：
 ''捕捉鼠标绘制 If m_pIfSnap Then Dim pCurrentSymbol As ISimpleMarkerSymbol pCurrentSymbol = New SimpleMarkerSymbol
 With pCurrentSymbol .Outline = True .OutlineSize = 0.2 .OutlineColor = GetRGBColor(0, 0, 0) .Color = GetRGBColor(0, 200, 240, 0) .Style = esriSimpleMarkerStyle.esriSMSSquare .Size = 6 End With
 Dim pPointGeo As IGeometry pPointGeo = m_pPoint With pScreenDisplay .ActiveCache = -1 .StartDrawing(0, -1) .SetSymbol(pCurrentSymbol) .DrawPoint(pPointGeo) .FinishDrawing() End With Else pScreenDisplay.Invalidate(pActiveView.Extent.Envelope, True, -1) End If

举报回复喜欢评分

semon1981

路人甲

注册日期2006-06-04
发帖数28
QQ
铜币198枚
威望0点
贡献值0点
银元0个

加关注写私信

6楼^#

发布于：2006-06-30 14:13

我的实现方法，先建立一个element，同时用IDisplayFeedback 随着鼠标移动该元素：
 //移动elment对象 public IDisplayFeedback m_iElementFeedBack; public IElement m_element;
 public void CreateMarkerElement(int x,int y) { IActiveView iView = map.ActiveView; //清除选择 map.Map.ClearSelection(); //x,y鼠标位置 IPoint iPt = iView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y); IGraphicsContainer iGraphContainer = map.Map as IGraphicsContainer; //IElement iElement; //建立一个ｍａｒｋｅｒ元素 IMarkerElement iMarkerElement = new MarkerElement() as IMarkerElement; ISimpleMarkerSymbol iSym = new SimpleMarkerSymbol(); //符号化元素 IRgbColor iColor = new RgbColor(); iColor.Red = 0; iColor.Blue = 100; iColor.Green = 255; iSym.Color = iColor; IRgbColor iColor2 = new RgbColor(); iColor2.Red = 0; iColor2.Blue = 0; iColor2.Green = 0; iSym.Outline = true; iSym.OutlineColor = iColor2 as IColor; iSym.OutlineSize = 1; iSym.Size = 5; iSym.Style = esriSimpleMarkerStyle.esriSMSCircle;
 iMarkerElement.Symbol = iSym; m_element = iMarkerElement as IElement; m_element.Geometry = iPt as IGeometry; iGraphContainer.AddElement(m_element, 0); iView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, m_element, null); //iView.Refresh(); //m_element = iElement;
 IGeometry iGeo = m_element.Geometry; m_iElementFeedBack = new MovePointFeedback(); m_iElementFeedBack.Display = iView.ScreenDisplay; IMovePointFeedback iMovePtFdBack = m_iElementFeedBack as IMovePointFeedback; //ｆｅｅｄｂａｃｋ具有与该元素有相同的ｓｙｍｂｏｌ iMovePtFdBack.Symbol = iSym as ISymbol; iMovePtFdBack.Start(iGeo as IPoint, iPt); }
 public void ElementMoveTo(IPoint iPt) { map.Map.ClearSelection(); //移动元素 m_iElementFeedBack.MoveTo(iPt); IGeometry iGeo1 = null; IGeometry iGeoResult; if (m_element != null) { iGeo1 = m_element.Geometry; IMovePointFeedback iPtFeedback; iPtFeedback = m_iElementFeedBack as IMovePointFeedback; iGeoResult = iPtFeedback.Stop(); //map.ActiveView.Refresh(); m_element.Geometry = iGeoResult; //更新该元素的位置 map.ActiveView.GraphicsContainer.UpdateElement(m_element); //重新移动元素 iPtFeedback.Start(iGeo1 as IPoint, iPt); //map.ActiveView.Refresh(); map.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, null, null); } }
在ｍａｐ　ｍｏｕｓｅｍｏｖｅ中的代码
IPoint iPt = null; //鼠标自动扑获顶点 iPt = Snapping(e.x, e.y, m_iFeatureLyr); if (bCreateElement) { CreateMarkerElement(e.x, e.y); bCreateElement = false; } else if (iPt != null) ElementMoveTo(iPt); else m_featEdit.ElementMoveTo(pt12); if (iPt != null) { map.ActiveView.ScreenDisplay.DisplayTransformation.FromMapPoint(iPt, out x1, out y1); System.Drawing.Point pt1 = PointToScreen(new System.Drawing.Point(x1, y1));
 System.Drawing.Point pt11 = map.PointToScreen(new System.Drawing.Point(x1, y1)); SetCursorPos(pt11.X, pt11.Y); 
}

public IPoint Snapping(int x, int y, IFeatureLayer iFeatureLyr) { //扑获顶点vertex IPoint iHitPoint = null; IMap iMap = map.Map; IActiveView iView = map.ActiveView; IFeatureClass iFClss = iFeatureLyr.FeatureClass;
 SelectFeature(x, y, iFeatureLyr,false); IEnumFeature iSelected = (IEnumFeature)map.Map.FeatureSelection; iSelected.Reset(); IFeature iF = iSelected.Next(); if (iF == null) return null;
 IPoint iPt = iView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y); IPoint iHitPt = new ESRI.ArcGIS.Geometry.Point(); IHitTest iHitTest = iF.Shape as IHitTest; double hitDist = 0; int partIndex = 0; int vertexIndex = 0; bool bVertexHit = false; // Tolerance in pixels for line hits double tol = ConvertPixelsToMapUnits(iView, 3);
 if (iHitTest.HitTest(iPt,3, esriGeometryHitPartType.esriGeometryPartVertex, iHitPt, ref hitDist, ref partIndex, ref vertexIndex, ref bVertexHit)) { iHitPoint = iHitPt; } map.ActiveView.Refresh(); return iHitPoint; }

举报回复喜欢评分

aibogis 路人甲注册日期2006-06-28 发帖数7 QQ 铜币130枚威望0点贡献值0点银元0个加关注写私信	7楼^# 发布于：2006-06-30 08:46 <P>就是ArcMap的Sketch工具中的鼠标显示。</P> <P>研究好几天了，还是没搞出来。：（</P>
	举报回复(0) 喜欢(0) 评分

semon1981 路人甲注册日期2006-06-04 发帖数28 QQ 铜币198枚威望0点贡献值0点银元0个加关注写私信	8楼^# 发布于：2006-06-29 21:28 <P>我跟你一样的问题</P> <P>在快速移动鼠标时候，扑获出现很多的小圆圈，停止鼠标移动才会消失多余的小圆圈。</P> <P>我用sleep及一个耗时的循环，同样出现这个问题，问题出在用hittest扑获速度太慢，而鼠标移动太快就会出现很多的小圆圈。</P> <P>望高手解答</P>
	举报回复(0) 喜欢(0) 评分

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

9楼^#

发布于：2006-06-29 17:30

跟随鼠标的小圆圈？
最简单的方式就是更改鼠标的icur了：）

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

您需要登录后才可以回帖，登录或者注册

请教一个engine中实现捕捉功能的问题

最新喜欢：