编程实现Google Earth和ArcGIS的联动(9页).doc

《编程实现Google Earth和ArcGIS的联动(9页).doc》由会员分享，可在线阅读，更多相关《编程实现Google Earth和ArcGIS的联动(9页).doc（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-编程实现Google Earth和ArcGIS的联动-第 9 页编程实现Google Earth和ArcGIS的联动demo 这个DEMO实现的功能就是在google earth中用鼠标获取地理坐标，然后自动定位到ARCGIS对应的区域影像中。前段时间因项目引导，在师兄的启发下，做了一个这样的Demo，后来因为各种原因一直没有进行下去。现在感觉还是有些用处的，现在抽空整理一下。 Google Earth是一款优秀的Map Explorer，它的优秀在于使用普及和方便，虽然DigitalGlobe影像数据更新速度慢，但分辨率是还是很高的，最高可达到0.5m。如果忽略其误差，可以利用Google

2、 Earth的影像资源进行定位参考、解译参考、数字化等。 Google Earth继Google Map API之后推出的Google Earth COM API ，提供的功能相对比较弱，一些功能据说似乎还存在着Bug。网址： earth的二次开发有两种方法：（1）使用windows API控制两个进程的调用，利用google earth api实现核心功能。（2）使用做好的务功能重点放在GE API开发上。这个demo使用的是GEVContorl(GEVC)，它是一个完全COM的控件,对截止目前所有版本的GoogleEarth都支持,具有很高的兼容性和可用性,能够将GE视图(地球视图)集成到

3、开发人员的应用系统中,并且支持滚轮功能。下载地址：一、安装完GE后，系统会自动拷贝一个EARTHLib.dll，添加Google Earth 1.0 Type Library到库应用.二、.NET中新建Arcgis command类。将生成一个dll，可以被ARCGIS自动添加到组件库中。三、部分代码，主窗口中：1ImportsEARTHLib2ImportsESRI.ArcGIS.Controls3ImportsESRI.ArcGIS.Geometry4ImportsESRI.ArcGIS.Carto5ImportsESRI.ArcGIS.SystemUI6ImportsESRI.ArcGI

4、S.ArcMapUI7ImportsESRI.ArcGIS.esriSystem8ImportsESRI.ArcGIS.Framework9ImportsESRI.ArcGIS.Geodatabase10ImportsESRI.ArcGIS.Display11ImportsSystem.Windows.Forms.Cursor12ImportsSystem.Drawing13ImportsSystem.Drawing.Drawing2D141516PublicClassForm217Publicg_GeHelperAsEARTHLib.ApplicationGEGE的主应用API18Publi

5、chookhelperAsIHookHelperhookhelper19PubliclongitudeAsDouble经度20PubliclatitudeAsDouble维度21DimpAppAsIApplication22DimpEnableAsBoolean23DimpDocAsIMxDocument24DimpWorkspaceAsIWorkspace25DimpMapAsIMap26DimpLayerAsILayer27DimpWorkEAsIWorkspaceEdit28DimpFeaLayerAsIFeatureLayer29PrivateStructurePOINTAPI30Di

6、mxAsDouble31DimyAsDouble32EndStructure3334PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click35初始化应用GE36g_GeHelper=NewEARTHLib.ApplicationGE37AxGEViewer1.HookGE(g_GeHelper.GetMainHwnd,g_GeHelper.GetRenderHwnd)38EndSub394041PrivateSubAxGEViewer1_MouseDownE

7、vent(ByValsenderAsSystem.Object,ByValeAsAxGEVControl._GEViewer_MouseDownEvent)HandlesAxGEViewer1.MouseDownEvent42IfCheckBox1.Checked=TrueThen43DimGePtAsPointOnTerrainGE44DimptAsPOINTAPI45屏幕坐标到GE屏幕坐标的转换46pt.x=e.evtArgs.X*2/Me.Width-147pt.y=-e.evtArgs.Y*2/Me.Height+148GE屏幕坐标到地理坐标的转换49GePt=g_GeHelper.G

8、etPointOnTerrainFromScreenCoords(CDbl(pt.X),CDbl(pt.Y)5051MsgBox(点击屏幕坐标：&pt.x&,&pt.y&获得ge坐标：&GePt.Longitude&,&GePt.Latitude)52longitude=GePt.Longitude53latitude=GePt.Latitude54pMap=hookhelper.ActiveView5556arcmap中绘制点57DimpointAsIPoint58point=NewESRI.ArcGIS.Geometry.Point59point.PutCoords(longitude,l

9、atitude)6061DimpMarkerElementAsIMarkerElement62pMarkerElement=NewMarkerElement6364DimpMarkerSymbolAsESRI.ArcGIS.Display.ISimpleMarkerSymbol65pMarkerSymbol=NewESRI.ArcGIS.Display.SimpleMarkerSymbol66pMarkerSymbol.Size=367pMarkerSymbol.Style=ESRI.ArcGIS.Display.esriSimpleMarkerStyle.esriSMSDiamond6869

10、DimpElementAsIElement70pElement=pMarkerElement71pElement.Geometry=point72pMarkerElement.Symbol=pMarkerSymbol7374DimpGraphicsContainerAsIGraphicsContainer75DimpActiveViewAsIActiveView76pActiveView=pMap77pActiveView.Extent.CenterAt(point)7879arcmap中点的定位80DimpEnvelopAsIEnvelope81pEnvelop=pActiveView.Ex

11、tent82pEnvelop.CenterAt(point)83pActiveView.Extent=pEnvelop84pActiveView.Refresh()85pGraphicsContainer=pMap86pGraphicsContainer.AddElement(pMarkerElement,0)87pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics,Nothing,Nothing)88EndIf8990EndSub91PublicWriteOnlyPropertyhook()AsIHookHelper92S

12、et(ByValvalueAsIHookHelper)93hookhelper=value94EndSet95EndProperty9697PrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load9899EndSub100EndClasscommand.cs中实现组件注册：63Privatem_hookHelperAsIHookHelper646566AcreatableCOMclassmusthaveaPublicSubNew()67withnoparameters,

13、otherwise,theclasswillnotbe68registeredintheCOMregistryandcannotbecreated69viaCreateObject.70PublicSubNew()71MyBase.New()7273TODO:Definevaluesforthepublicproperties74MyBase.m_category=testlocalizabletext75MyBase.m_caption=tool1localizabletext76MyBase.m_message=ThisshouldworkinArcMap/MapControl/PageL

14、ayoutControllocalizabletext77MyBase.m_toolTip=localizabletext78MyBase.m_name=uniqueid,non-localizable(e.g.MyCategory_MyCommand)79Try80TODO:changebitmapnameifnecessary81DimbitmapResourceNameAsString=Me.GetType().Name+.bmp82MyBase.m_bitmap=NewBitmap(Me.GetType(),bitmapResourceName)83CatchexAsException

15、84System.Diagnostics.Trace.WriteLine(ex.Message,InvalidBitmap)85EndTry868788EndSub899091PublicOverridesSubOnCreate(ByValhookAsObject)92Ifm_hookHelperIsNothingThenm_hookHelper=NewHookHelperClass9394IfNothookIsNothingThen95Try96m_hookHelper.Hook=hook97Ifm_hookHelper.ActiveViewIsNothingThenm_hookHelper

16、=Nothing98Catch99m_hookHelper=Nothing100EndTry101102Disableifhookfails103Ifm_hookHelperIsNothingThen104MyBase.m_enabled=False105Else106MyBase.m_enabled=True107EndIf108109TODO:Addotherinitializationcode110EndIf111EndSub112113PublicOverridesSubOnClick()114TODO:AddCommand1.OnClickimplementation115DimceAsIEnvelope=m_hookHelper.ActiveView.Extent116ce.Expand(0.5,0.5,True)117m_hookHelper.ActiveView.Extent=ce118m_hookHelper.ActiveView.Refresh()119MsgBox(asdasd)120DimfrmAsForm2121frm=NewForm2122frm.hookhelper=m_hookHelper123frm.Show()124EndSub125126EndClass127生成dll后，即可直接在arcmap中添加自定义的comand按钮进行调用了。