开发者社区> 橘子红了呐> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

arcEngine 经典代码-编辑

简介:
+关注继续查看

[vc]geo包装1

link: http://blog.csdn.net/gm316/archive/2007/10/07/1813634.aspx

void CagGeometrys::AddTrack(CMapControlDefault &mc, hdcGeometryType gt,long button, long shift, long x, long y, double mapX, double mapY)
{
 //演示rubber的操作,mc中才提供包装结果track,在vba中应该用rubber
 if(e_bUnique)
  e_geos.clear();

 switch(gt)
 {
 case gt_Point:
  {
   IPointPtr pt(__uuidof(Point));
   pt->PutCoords(mapX,mapY);
   IGeometryPtr *g=new IGeometryPtr;
   (*g)=pt;
   e_geos.insert(e_geos.end(),g);
  }
  break;
 case gt_Rectangle:
  {
   IEnvelopePtr env=mc.TrackRectangle();
   IGeometryPtr *g=new IGeometryPtr;
   (*g)=env;
   e_geos.insert(e_geos.end(),g);
  }
  break;

 case gt_Polyline:
  { /*
   IPolylinePtr pl=mc.TrackLine();
   IGeometryPtr *g=new IGeometryPtr;
   (*g)=pl;
   e_geos.insert(e_geos.end(),g);
   */
   
   IActiveViewPtr av;
   IScreenDisplayPtr sd;
   av=mc.GetActiveView();
   av->get_ScreenDisplay(&sd);

   ISymbolPtr sym;
   IGeometryPtr *geo=new IGeometryPtr;
   IRubberBandPtr rp(__uuidof(RubberLine)); 
   rp->TrackNew(sd,sym,&(*geo)); //应该可以在track就有symbol效果
   e_geos.insert(e_geos.end(),geo);

   //转换用QI,应该ok
   //IPolylinePtr line;
   //line=*geo;
  }
  break;

 case gt_Circle:
  {
   IPolygonPtr c=mc.TrackCircle();
   IGeometryPtr *g=new IGeometryPtr;
   (*g)=c;
   e_geos.insert(e_geos.end(),g);
  }
  break;

 case gt_Polygon:
  {
   IPolygonPtr pg=mc.TrackPolygon();
   IGeometryPtr *g=new IGeometryPtr;
   (*g)=pg;
   e_geos.insert(e_geos.end(),g);
  }
  break;

 case gt_Text_Point:
  {

   textInfo *ti=new textInfo;
   IPointPtr pt(CLSID_Point);
   pt->PutCoords(mapX,mapY);
   ti->geo=pt;

   IGetStringDialogPtr gsd(__uuidof(GetStringDialog));
   short res;
   gsd->DoModal(L"title",L"label",L"",NULL,&res);
   CComBSTR bstr;
   CString str;
   gsd->get_Value(&bstr);
   str=bstr;
   strcpy(ti->text,str);
   
   e_texts.insert(e_texts.end(),ti);

  }
  break;

 case gt_Text_Polyline:
  {
   textInfo *ti=new textInfo;
   ti->geo=mc.TrackLine();

   IGetStringDialogPtr gsd(__uuidof(GetStringDialog));
   short res;
   gsd->DoModal(L"title",L"label",L"",NULL,&res);
   CComBSTR bstr;
   CString str;
   gsd->get_Value(&bstr);
   str=bstr;
   strcpy(ti->text,str);
   
   e_texts.insert(e_texts.end(),ti);

  }
  break;

 case gt_Text_Polygon:
  {

   textInfo *ti=new textInfo;
   ti->geo=mc.TrackPolygon(); //可以模拟圆形,矩形等

   IGetStringDialogPtr gsd(__uuidof(GetStringDialog));
   short res;
   gsd->DoModal(L"title",L"label",L"",NULL,&res);
   CComBSTR bstr;
   CString str;
   gsd->get_Value(&bstr);
   str=bstr;
   strcpy(ti->text,str);
   
   e_texts.insert(e_texts.end(),ti);

  }
  break;

 }

 IActiveViewPtr av=mc.GetActiveView();
 av->Refresh();
}

void CagGeometrys::Draw(CMapControlDefault &mc)
{
 //draw geometry
 long i,count;
 count=e_geos.size();
 for(i=0;i<count;i++)
 {
  mc.DrawShape((*e_geos[i]),NULL);
 }

 {
  ISelectionTrackerPtr sk;
  sk.CreateInstance(__uuidof(EnvelopeTracker));

  IActiveViewPtr av=mc.GetActiveView();
  IScreenDisplayPtr sd;
  av->get_ScreenDisplay(&sd);

  IEnvelopePtr env;
  count=e_sels.size();
  for(i=0;i<count;i++)
  {
   (*e_sels[i])->get_Envelope(&env);
   sk->put_Geometry(env);
   sk->Draw(sd,NULL,esriTrackerDominant);
  }
 }

 //文本
 count=e_texts.size();
 for(i=0;i<count;i++)
 {
  IMapPtr map=mc.GetMap();
  IActiveViewPtr av=mc.GetActiveView();
  IScreenDisplayPtr sd;
  av->get_ScreenDisplay(&sd);
/* 屏幕中间
  ITextSymbolPtr t(__uuidof(TextSymbol));
  IFontDispPtr f; //无用途
  t->get_Font(&f);
  t->put_Size(18.0);
  OLE_HANDLE hdc;
  sd->get_hDC(&hdc);
  sd->StartDrawing(hdc,esriNoScreenCache);
  ISymbolPtr s=t;
  sd->SetSymbol(s);
  IAreaPtr a;
  IDisplayTransformationPtr dt;
  sd->get_DisplayTransformation(&dt);
  IEnvelopePtr e;
  dt->get_VisibleBounds(&e);
  a=e;
  IPointPtr pt;
  a->get_Centroid(&pt);
  sd->DrawText(pt,L"test");
*/
  ITextSymbolPtr t(__uuidof(TextSymbol));
  IColorPtr c(__uuidof(RgbColor));
  c->put_RGB(RGB(0,0,255));
  t->put_Color(c);
  IFontDispPtr f; //无用途
  t->get_Font(&f);
  t->put_Size(18.0);
  OLE_HANDLE hdc;
  sd->get_hDC(&hdc);
  sd->StartDrawing(hdc,esriNoScreenCache);
  ISymbolPtr s=t;
  sd->SetSymbol(s);
  USES_CONVERSION;
  //点位置是字符底部中间
  sd->DrawText(e_texts[i]->geo,A2W(e_texts[i]->text));
  sd->FinishDrawing();
 }
}

void CagGeometrys::HitTest(double x, double y)
{
 /*
esriGeometryNull          = 0
esriGeometryPoint         = 1
esriGeometryMultipoint    = 2
esriGeometryPolyline      = 3
esriGeometryPolygon       = 4
esriGeometryEnvelope      = 5
esriGeometryPath          = 6
esriGeometryAny           = 7
esriGeometryMultiPatch    = 9
esriGeometryRing          = 11
esriGeometryLine          = 13
esriGeometryCircularArc   = 14
esriGeometryBezier3Curve  = 15
esriGeometryEllipticArc   = 16
esriGeometryBag           = 17
esriGeometryTriangleStrip = 18
esriGeometryTriangleFan   = 19
esriGeometryRay           = 20
esriGeometrySphere        = 21
*/
/*
HRESULT HitTest( 
  IPoint* QueryPoint, 
  double searchRadius, 
  esriGeometryHitPartType geometryPart, 
  IPoint* hitPoint, 
  double* hitDistance, 
  long* hitPartIndex, 
  long* hitSegmentIndex, 
  VARIANT_BOOL* bRightSide, 
  VARIANT_BOOL* bHit 
);
*/
 e_sels.clear();
 
 esriGeometryType gt;
 long i,count=e_geos.size();
 for(i=0;i<count;i++)
 {
  (*e_geos[i])->get_GeometryType(&gt);
  switch(gt)
  {
  case esriGeometryPoint:
   { //OK,但是被选择的显示方式有问题
    IHitTestPtr ht;
    IPointPtr pt;
    pt=e_geos[i];
    ht=pt;

    IPointPtr qp(__uuidof(Point));
    qp->PutCoords(x,y);

    IPointPtr hp(__uuidof(Point));
    double hd;
    long hpi,hs;
    short rs,h;
    ht->HitTest(qp,5.0,esriGeometryPartBoundary,hp,&hd,&hpi,&hs,&rs,&h);

    if(h==-1)
    {
     e_sels.insert(e_sels.end(),e_geos[i]);
    }
   }
   break;
  case esriGeometryPolyline:
   {
    IHitTestPtr ht;
    IPolylinePtr pl;
    pl=e_geos[i];
    ht=pl;

    IPointPtr qp(__uuidof(Point));
    qp->PutCoords(x,y);

    IPointPtr hp(__uuidof(Point));
    double hd;
    long hpi,hs;
    short rs,h;
    ht->HitTest(qp,5.0,esriGeometryPartBoundary,hp,&hd,&hpi,&hs,&rs,&h);

    if(h==-1)
    {
     e_sels.insert(e_sels.end(),e_geos[i]);
    }
   }
   break;

  case esriGeometryEnvelope:
  case esriGeometryPolygon:
   {
    IPointPtr qp(__uuidof(Point));
    qp->PutCoords(x,y);

    IRelationalOperatorPtr ro;
    ro=e_geos[i];
    short yes;
    ro->Contains(qp,&yes);
    if(yes==-1)
    {
     e_sels.insert(e_sels.end(),e_geos[i]);
    }
   }
   break;
  }
 }

}

long CagGeometrys::GetSelectCount()
{
 return (e_sels.size());
}

void CagGeometrys::ClearSelect()
{
 e_sels.clear();
}

BOOL CagGeometrys::DeleteSelect()
{
 long i,j,count1,count=e_sels.size();
 
 //sel中不一定是用了geos中顺序,并且选择后可能添加了新的geo
 for(i=0;i<count;i++)
 {
  count1=e_geos.size();
  for(j=0;j<count1;j++)
  {
   if(e_geos[j]==e_sels[i])
   {
    e_geos.erase(e_geos.begin()+j);
    break;
   }
  }
 }

 return TRUE;
}

void CagGeometrys::Move(CMapControlDefault &mc)
{
 IActiveViewPtr av;
 av=mc.GetActiveView();

 IScreenDisplayPtr sd;
 av->get_ScreenDisplay(&sd);
 
 ISymbolPtr sym;
 IGeometryPtr geo=(*e_sels[0]);
 IRubberBandPtr rb;
 short c;

 esriGeometryType gt;
// long i,count=e_sels.size();
// for(i=0;i<count;i++) 每次只可以移动一个shape
 {
  (*e_sels[0])->get_GeometryType(&gt);
  switch(gt)
  {
  case esriGeometryPoint:
   rb.CreateInstance(CLSID_RubberPoint);
   break;
  case esriGeometryPolyline:
   rb.CreateInstance(CLSID_RubberLine);
   break;

  case esriGeometryEnvelope:
   rb.CreateInstance(CLSID_RubberEnvelope); //移动后图形消失 
//   rb.CreateInstance(CLSID_RubberPolygon);//无效果
   break;

  case esriGeometryPolygon: //包括了circle
   rb.CreateInstance(CLSID_RubberPolygon);
   break;
  }
 }

 if(rb!=NULL)
  rb->TrackExisting(sd,sym,geo,&c); 
 av->Refresh();

}

BOOL CagGeometrys::AddImportPoint(CString sPathFile)
{
 FILE *f;
 f=fopen(sPathFile,"rt");
 if(f==NULL)
 {
  AfxMessageBox("无法打开指定文件.");
  return FALSE;
 }

 IPointCollectionPtr pc(__uuidof(Multipoint));
 IPointPtr pt;
 double x,y;
 while(1)
 {
  if(fscanf(f,"%lf %lf",&x,&y)!=2)
   break;
  
  pt.CreateInstance(CLSID_Point);
  pt->put_X(x);
  pt->put_Y(y);
  pc->AddPoint(pt);
 }
 fclose(f);

 if(e_bUnique)
  e_geos.clear();

 IGeometryPtr *g=new IGeometryPtr;
 (*g)=pc;
 e_geos.insert(e_geos.end(),g);

 return TRUE;
}


BOOL CagGeometrys::AddImportPolyline(CString sPathFile)
{
 FILE *f;
 f=fopen(sPathFile,"rt");
 if(f==NULL)
 {
  AfxMessageBox("无法打开指定文件.");
  return FALSE;
 }

 double x,y;
 IPointPtr pt;
 IPointCollectionPtr pts(CLSID_Polyline);
 while(1)
 {
  if(fscanf(f,"%lf %lf",&x,&y)!=2)
   break;
  
  pt.CreateInstance(CLSID_Point);
  pt->put_X(x);
  pt->put_Y(y);
  pts->AddPoint(pt);
 }
 fclose(f);

 if(e_bUnique)
  e_geos.clear();

 IGeometryPtr *g=new IGeometryPtr;
 (*g)=pts;
 e_geos.insert(e_geos.end(),g);

 return TRUE;
}

BOOL CagGeometrys::AddImportPolygon(CString sPathFile)
{
 FILE *f;
 f=fopen(sPathFile,"rt");
 if(f==NULL)
 {
  AfxMessageBox("无法打开指定文件.");
  return FALSE;
 }

 IPolygonPtr pg(CLSID_Polygon);

 double x,y;
 IPointPtr pt;
 IPointCollectionPtr pts(__uuidof(Ring));
 while(1)
 {
  if(fscanf(f,"%lf %lf",&x,&y)!=2)
   break;
  
  pt.CreateInstance(CLSID_Point);
  pt->put_X(x);
  pt->put_Y(y);
  pts->AddPoint(pt);
 }
 fclose(f);

 IRingPtr r=pts;
 r->Close();
 IGeometryCollectionPtr gc=pg;
 gc->AddGeometry(r);

 if(e_bUnique)
  e_geos.clear();

 IGeometryPtr *g=new IGeometryPtr;
 (*g)=pg;
 e_geos.insert(e_geos.end(),g);

 return TRUE;
}

BOOL CagGeometrys::AddPoint(double x, double y)
{
 if(e_bUnique)
  e_geos.clear();

 IPointPtr pt(__uuidof(Point));
 pt->PutCoords(x,y);
 IGeometryPtr *g=new IGeometryPtr;
 (*g)=pt;
 e_geos.insert(e_geos.end(),g);

 return TRUE;
}

BOOL CagGeometrys::AddCircle(double x, double y, double r)
{
 if(e_bUnique)
  e_geos.clear();

 IPointPtr pt(__uuidof(Point));
 IConstructCircularArcPtr cca(__uuidof(CircularArc));
 pt->PutCoords(x,y);
 cca->ConstructCircle(pt,r,-1);

 IGeometryPtr *g=new IGeometryPtr;
 (*g)=cca;
 e_geos.insert(e_geos.end(),g);

 return TRUE;
}

 

2 绘制一条polyline

可以使用AE里面的  IRubberBand 接口画在MapControl上:

  IRubberBand rubberLine = new RubberLineClass();
  IPolyline polyLine = (IPolyline)rubberLine.TrackNew(pActiveView.ScreenDisplay, null);

//设置图形的样式
  m_Symbol = SetDisplaySymbol(polyLine);
      
   //画出图形
  pActiveView.ScreenDisplay.StartDrawing(m_QueryMap.ActiveView.ScreenDisplay.hDC, (short)esriScreenCache.esriNoScreenCache);
  pActiveView.ScreenDisplay.DrawPolyline(pGeometry);
  pActiveView.Refresh();
  pActiveView.ScreenDisplay.FinishDrawing();

 

通过point构造Segment,再构造path,再构造polyline

用到ISegmentCollection,IPointCollection等接口,帮助里有个例子

The following subs are demonstrating how to create valid polylines efficiently.

A. Geometry type: Polyline

1. createMultipartPolylinePathSegmentCollection: Create a multipart polyline using path via ISegmentCollection.

2. createMultipartPolylinePathPointCollection: Create a multipart polyline using path via IPointCollection.

private IGeometry CreateShape(int x1,int y1,int x2,int y2)
                {
                        IPoint p1 = this.axMapControl1.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x1,y1);
                        IPoint p2 = this.axMapControl1.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x2,y2);
                        IPolyline line = new PolylineClass();
                        line.FromPoint=p1;
                        line.ToPoint=p2;
                        IGeometry lineGeometry = line as IGeometry;
                          retrun lineGeometry ;

                }
 
利用上面创建好的Line,在grahic上画线,嗯。。里面的代码要改动一下。因为是直接贴的以前写的东西
private void DrawShape(IGeometry line)
                {
                        pgc.DeleteAllElements();
                        //定义颜色
                        //定义线符号
                        IRgbColor lcolor = Utility.GetRGBColor(btnLColor.BackColor);
                        ISimpleLineSymbol outline = new SimpleLineSymbolClass();
                        if(this.txtWidth.Text.Trim()=="")
                                outline.Width=0;
                        else
                                outline.Width=Double.Parse(this.txtWidth.Text);

                        outline.Color = lcolor;
                        outline.Style = (esriSimpleLineStyle)(((StringIntObject)this.cbLineStyle.SelectedItem).i);

                        //定义使用填充符号的面
                        ILineElement LineE = new LineElementClass();
                        LineE.Symbol=outline;
                        IElement pElement = LineE as IElement;
                        pElement.Geometry=line ;
                        pgc.AddElement(pElement,0);
                        axMapControl1.Refresh( esriViewDrawPhase.esriViewGraphics, null,null );

                }





    本文转自wenglabs博客园博客,原文链接:http://www.cnblogs.com/xiexiaokui/archive/2008/07/26/1251960.html,如需转载请自行联系原作者

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
第二十六章:自定义布局(十一)
重叠的子项Layout 类可以在其子项上调用Layout方法,以便子项重叠吗?是的,但这可能会在你的脑海中提出另一个问题:什么决定孩子们的呈现顺序?哪些孩子看似坐在前台,可能部分或完全掩盖了背景中显示的其他孩子?在某些图形环境中,程序员可以访问名为Z-index的值。
275 0
第二十四章:页面导航(十二)
事件在方法调用方法和消息中心通信方法中,信息页面需要知道主页的类型。 如果可以从不同类型的页面调用相同的信息页面,这有时是不合需要的。这个问题的一个解决方案是info类实现一个事件,这就是DataTransfer3中采用的方法。
261 0
第二十四章:页面导航(十一)
消息中心您可能不喜欢两个页面类直接相互调用方法的想法。 它似乎适用于小样本,但对于具有大量类间通信的大型程序,您可能更喜欢一些不需要实际页面实例的更灵活的东西。这样的工具是Xamarin.Forms MessagingCenter类。
318 0
学习在 ArcEngine 中使用 Geoprocessing
http://blog.sina.com.cn/s/blog_4d46bf160100fj8s.html 摘要:Geoprocessing对于ArcGIS使用者来说,是一种非常方便实用的工具,它可以利用ArcToolbox中的各种工具为我们的地理空间工作流进行框架建模,自动执行空间分析与处理。
839 0
文章
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载