ArcMap擴(kuò)展開發(fā)實(shí)習(xí)指導(dǎo)書

1、者 PageLayoutControl 中都可以使用新建的插件。ArcMap拓展開發(fā)實(shí)習(xí)指導(dǎo)書1、以 ArcGIS C#插件開發(fā)使用 C#和 ArcObject 10.1 開發(fā) ArcGIS 插件，開發(fā)的電腦上必須安裝ArcGIS 基礎(chǔ)平臺，同時(shí)必須安裝支持.NET 的開發(fā)庫。在這里我們使用Visual Studio 2010 作為開發(fā)環(huán)境。開發(fā)步驟如下：1、啟動 Visual Studio 2010，創(chuàng)建 Visual C# 的類庫項(xiàng)目，名稱為 BufferExSolution，如 圖 2_1所示。2_1 創(chuàng)建項(xiàng)目2、在解決方案資源管理器中，選擇BufferExSolution 項(xiàng)目，右鍵添

2、加新建項(xiàng)目，選在ArcGIS 模板下的 Base Comma nd 模板，將名稱設(shè)置為 BufferEx，如圖 2_2 所示，點(diǎn)擊添加”按鈕，出現(xiàn)如圖 2_3 所示的選擇項(xiàng)，選擇第二項(xiàng)，其意義為在ArcMap、MapControl 或2_2Wht kind of conmAinddo yot腫n t to cr片汐AnzGIobe or GlobeControl CorrmandArcScene or ScaneConiol CommandEElank CommandDesktop AicCdtJog CcnimandDedrtop AroSobe ComiardOesMc ArcMao CQ

3、mmnent categories.3、添加名為BufferDIg ”的 Windows 窗體，如圖 2_4 所示。這樣在資源管理器中就出貞MapCstrol & PzgeLa#ciijtCi3rilT打Cicinnn帖rdl現(xiàn)了ArcGIS New Item Wizard Optio圖 2_44、為 BufferDIg 窗體添加控件，控件布局如圖2_5 所示?？丶傩匀绫?2_1 所示。圖 2_5表 2_1控件類型Name 屬性Text 屬性其它屬性LabelIbIChoseLayer選擇圖層LabelIblRadio緩沖區(qū)半徑LabelIblOutPath輸出路徑ComboxcboLaye

4、rsTextBoxtxtBufferDista neeText=0.1Comboxcbo Un itsItems=UnknownInchesPoi ntsFeetYardsMilesNauticalMilesMillimetersCen timetersMetersKilometersDecimalDegreesDecimetersTextBoxtxtOutputPathEn able=falseButtonbtnO utputLayerButtonbtn Buffer輸出GroupBoxgpbTips提示TextBoxtxtMessagesMultiLi neButtonbtnCancel關(guān)

5、閉5、為修改 BufferCmd 類，首先修改其構(gòu)造函數(shù):public BufferCmd()base .m_caption =緩沖區(qū)創(chuàng)建” base .m_message = This should work inArcMap/MapControl/PageLayoutControlbase .m_toolTip =緩沖區(qū)創(chuàng)建 ;base .m_name = BufferCmd ;base .m_category =緩沖區(qū)創(chuàng)建工具”;trystring bitmapResourceName = GetType().Name + .bmp ; base.m_bitmap =new Bitmap

6、 (GetType(), bitmapResourceName);catch ( Exception ex)System.Diagnostics. Trace .WriteLine(ex.Message, InvalidBitmap );6、為 OnClick 函數(shù)添加如下代碼：public override void OnClick()if ( null = m_hookHelper)return ;if (m_hookHelper.FocusMap.LayerCount 0)BufferDlg bufferDlg =new BufferDlg(m_hookHelper);bufferDlg

7、.Show();其中，IHookHelper m_hookHelper 主要在用在自定義類型于 AO/AE 帶的的 IComman(或 ITool 等。在BufferCmd類中， On Create函數(shù)將object類型的參數(shù)hook傳遞給m_hookHelper， 而 m_hookHelper又可以作為參數(shù)在 On Click 函數(shù)中傳遞給 BufferDIg 類，這樣就實(shí)現(xiàn)了 ArcMap 中數(shù)據(jù)向插件傳遞，從而實(shí)現(xiàn)插件對宿主程序中數(shù)據(jù)的操作、拓展了宿主程序的功能。OnCreate 函數(shù)的代碼如下：public override void OnCreate( object hook)if

8、(hook = null )return ;trym_hookHelper = new HookHelperClass (); m_hookHelper.Hook = hook;if (m_hookHelper.ActiveView = null ) m_hookHelper = null ;catchm_hookHelper = null ;if (m_hookHelper = null ) base.m_enabled = false ;elsebase.m_enabled = true ;On Click 函數(shù)的作用就是：當(dāng) ArcMap 中加載了該插件，只要點(diǎn)擊該插件的按鈕，則就執(zhí)行

9、On Click 函數(shù)，也就是將 BufferDIg 窗體調(diào)出來。下面，我們將為BufferDIg 窗體添加控件響應(yīng)事件。7、修改 BufferDlg 類的構(gòu)造函數(shù)，使構(gòu)造函數(shù)有一個類型為 IHookHelper 的參數(shù)，實(shí)現(xiàn) 從BufferCmd 類中接收宿主程序的數(shù)據(jù)。public BufferDlg( IHookHelper hookHelper)InitializeComponent();m_hookHelper = hookHelper;通過 IHookHelper 類型的實(shí)例將宿主程序的對象傳到插件中的機(jī)制如下：IHookHelper m_hookHelper = new Hook

10、HelperClass();m_hookHelper.Hook = this.axMapControl1.Object ; 這樣就可以把 AxMapControl 傳遞給其 它要用到的地方 , 再通過 IHookHelper.ActiveView 和 IHookHelper.FocusMap 屬性來獲取 lActiveView 和 IMap對象，通過這兩個接口進(jìn)行更一步的操作。8、完善 BufferDlg 類，為其添加相應(yīng)的字段，同時(shí) 依次為表 2_1 中列出的控件添加相 應(yīng)的事件響應(yīng)， BufferDlg 類實(shí)現(xiàn) 代碼如下：public partialclass BufferDlg : Fo

11、rm/委托機(jī)制，目的是在.Net環(huán)境中使用Win32函數(shù) DllImport (user32.dll )privatestatic extern int PostMessage( IntPtr wnd, uint Msg,IntPtr wParam,IntPtr lParam);privateIHookHelper m_hookHelper = null ;privateconst uint WM_VSCROLL = 0 x0115;privateconst uint SB_BOTTOM = 7;public BufferDlg( IHookHelper hookHelper)Initiali

12、zeComponent();m_hookHelper = hookHelper;private void bufferDlg_Load( object sender, EventArgs e)if ( null = m_hookHelper | null = m_hookHelper.Hook | 0 =m_hookHelper.FocusMap.LayerCount)return ;/將 ArcMap 中的圖層名稱顯示到 combox 中IEnumLayer layers = GetLayers();layers.Reset();ILayer layer = null ;while (lay

13、er = layers.Next() !=null )saveDlg.OverwritePrompt =true ; cboLayers.Items.Add(layer.Name);/ 設(shè)置默認(rèn)圖層if (cboLayers.Items.Count 0) cboLayers.SelectedIndex = 0;string tempDir = System.IO. Path.GetTempPath(); txtOutputPath.Text = System.IO.Path.Combine(tempDir,( string )cboLayers.SelectedItem + _buffer.s

14、hp );/ 設(shè)置默認(rèn)的緩沖半徑單位int units = Convert .ToInt32(m_hookHelper.FocusMap.MapUnits);cboUnits.SelectedIndex = units;private void btnOutputLayer_Click( object sender, EventArgs e)/設(shè)置輸出 shp 文件路徑SaveFileDialog saveDlg = new SaveFileDialog (); saveDlg.CheckPathExists =true ;saveDlg.Filter =Shapefile (*.shp)|*

15、.shp;saveDlg.Title = 輸出圖層 ;saveDlg.RestoreDirectory =saveDlg.FileName = ( string )cboLayers.SelectedItem + _buffer.shpDialogResult dr = saveDlg.ShowDialog();if (dr = DialogResult .OK)txtOutputPath.Text = saveDlg.FileName;private void btnBuffer_Click( object sender, EventArgs e)double bufferDistance;

16、/ 獲取緩沖區(qū)半徑double .TryParse(txtBufferDistance.Text, out bufferDistance);if (0.0 = bufferDistance)MessageBox.Show( 緩沖區(qū)半徑不合法 ! );return ;/ 檢查輸出路徑合法性if(!System.IO. Directory .Exists(System.IO.Path .GetDirectoryName(txtOutputPath.Text) |.shp != System.IO. Path .GetExtension(txtOutputPath.Text)MessageBox.S

17、how( 輸出文件名不正確 ! );return ;/檢測宿主程序(ArcMap)中是否存在圖層if (m_hookHelper.FocusMap.LayerCount = 0)true ;return/從 ArcMap 中獲得圖層IFeatureLayer layer =GetFeatureLayer( string )cboLayers.SelectedItem);if ( null = layer)txtMessages.Text+= Layer + ( string )cboLayers.SelectedItem +不能被找到 !rn;return ;/ 設(shè)置消息框有滾動條Scroll

18、ToBottom();txtMessages.Text +=rn 分析開始，這可能需要幾分鐘時(shí)間 , 請稍候.rn;txtMessages.Update();/ 獲得 geoprocessor 實(shí)例gp.OverwriteOutput =true/ 創(chuàng)建緩沖區(qū)生成工具/ 執(zhí)行緩沖區(qū)生成工具IGeoProcessorResult results = tryGeoprocessor gp =new Geoprocessor ();ESRI.ArcGIS.AnalysisTools.Buffer buffer = newESRI.ArcGIS.AnalysisTools. Buffer(layer,

19、 txtOutputPath.Text,Convert .ToString(bufferDistance) +II II+ ( string )cboUnits.SelectedItem);buffer.dissolve_option =ALL; /這個要設(shè)成 ALL,否則相交部分不會融合/buffer.line_side = FULL;/默認(rèn)是 FULL, 最好不要改否則出錯/buffer.li ne_en d_type = ROUND;/默認(rèn)是ROUND最好不要改否則出錯null ;results = (IGeoProcessorResult )gp.Execute(buffer,null

20、 );catch ( Exception ex)txtMessages.Text +=Failed to buffer layer: + layer.Name +rn ;if (results != null &results.Status !=esriJobStatus .esriJobSucceeded)txtMessages.Text +=ScrollToBottom();private string ReturnMessages( Geoprocessor gp)StringBuilder sb = new StringBuilder ();if (gp.MessageCount 0)

21、for ( int Count = 0; Count = gp.MessageCount - 1; Count+)Trace .WriteLine(gp.GetMessage(Count);rntxtMessages.Text +=Failed to buffer layer: + layer.Name +ScrollToBottom();txtMessages.Text +=rn 分析完成 .rnrnSystem.Diagnostics.sb.AppendFormat(0n , gp.GetMessage(Count);return sb.ToString();/ / 根據(jù)名稱獲取圖層對象/ / / private IFeatureLayer GetFeatureLayer( string/ 從 ArcMap 中獲得 layersIEnumLayer layers = GetLayers();layers.Reset();ILayer layer = null ;while (layer = layers.Next() !=null )if (layer.Name = layerName)return layer as IFeatureLayer ;return null ;private IEnumLayer GetLayers()UID uid = new UIDCla