1．ArcMap的定制與開(kāi)發(fā)A、單擊命令，打開(kāi)定制對(duì)話框后，可以對(duì)ARCMAPVBA程序、DLL命令等。B、定制VBA程序。Tools—>VisualBasicEditor...打開(kāi)編輯器：在Project（NewMap.mxd）下插入一個(gè)新的UserForm1鈕，CaptionVB雙擊命令按鈕為其添加點(diǎn)擊事件程序。C、打開(kāi)宏對(duì)話框。并新建一個(gè)名為MyMacro的宏，其中加載宏選擇Project(NewMap.mxd)VBAMyMacro1直接運(yùn)行上面的VBA窗體DCustomize對(duì)話框，選擇Commands欄。通過(guò)NewUIcontrol4命令，按鈕、編輯框、工具命令、組合框。在此先創(chuàng)建一個(gè)NewToolbar：將剛才的宏拖到新建的工具條即可。E、編寫VB的DLL動(dòng)態(tài)鏈接庫(kù)。上面介紹的定制方法必須在ARCMAP環(huán)境下進(jìn)行，離不開(kāi)環(huán)境，且代碼隨文檔保存，難以進(jìn)行深層次開(kāi)發(fā)，代碼解釋執(zhí)行，效率差，保密性差，但相對(duì)容易些，ARCMAP已經(jīng)提供了現(xiàn)成的對(duì)象與接口。下面開(kāi)始介紹通過(guò)DLL操作ArcObjects定制ARCGIS命令。這種開(kāi)發(fā)模式，最好通過(guò)改寫已做好的示例程序來(lái)實(shí)現(xiàn)，不必要自己編寫所有的代碼。建議用VB編寫DLL，其他語(yǔ)言也可，但范例代碼少。打開(kāi)VB，新建ActiveXDLL工程。在工程菜單下打開(kāi)引用對(duì)話框ESRIESRIObjectlibrary項(xiàng)一定要引用。工程中加入一VB窗體frmresources，放置一圖片框，圖片框內(nèi)容為一個(gè)圖標(biāo)。加入一類模塊，該模塊包含了ARCOBJECTS接口ICOMMAND。接口是ARCGIS定制與開(kāi)發(fā)的關(guān)鍵，通過(guò)引用不同的接口，類可以實(shí)現(xiàn)不同的功能，不同的功能組成了ARCGIS的程序框架。類的實(shí)現(xiàn)代碼如下：OptionExplicitImplementsICommandPrivatem_pAppAsIApplicationPrivatePropertyGetICommand_BitMap()AsesriSystem.OLE_HANDLEICommand_BitMap=frmResources.Picture1.PictureEndPropertyPrivatePropertyGetiCommand_Caption()AsStringiCommand_Caption="VBSoultion"EndPropertyPrivatePropertyGetiCommand_Category()AsStringiCommand_Category="MyVBSolution"EndPropertyPrivatePropertyGetICommand_Checked()AsBooleanICommand_Checked=FalseEndPropertyPrivatePropertyGetICommand_Enabled()AsBooleanICommand_Enabled=TrueEndPropertyPrivatePropertyGetICommand_HelpContextID()As'該命令的幫助索引EndPropertyPrivatePropertyGetICommand_HelpFile()As'該命令的幫助文檔EndPropertyPrivatePropertyGetICommand_Message()AsICommand_Message="EndPropertyPrivatePropertyGetICommand_Name()AsICommand_Name="test"EndPropertyPrivateSubICommand_OnClick()m_pApp.Caption=地理信息系統(tǒng)實(shí)習(xí)DimpMxDocumentAsIMxDocumentSetpMxDocument=DimpMapAsIMapSetpMap=pMxDocument.FocusMapDimpContViewAsIContentsViewSetpContView=pMxDocument.CurrentContentsViewpMap.Layer(2).Visible=NotpMap.Layer(2).VisiblepMxDocument.ActiveView.RefreshpContView.Refresh(2)EndSubPrivateSubICommand_OnCreate(ByValhookAsObject)Setm_pApp=hookEndSubPrivatePropertyGetICommand_Tooltip()AsStringICommand_Tooltip="地信實(shí)習(xí)，ArcObjects示例程序"EndProperty編譯生成DLL文件，注意在有多個(gè)生成版本時(shí)，工程選項(xiàng)中最好選擇該DLL為二進(jìn)制兼容，這樣保證每次生成的DLL具有同一注冊(cè)值，這樣，可以多次編譯，但在ARCGIS中只需加載一次。不必重復(fù)加載：打開(kāi)定制對(duì)話框，使用addfromfile命令，將上面生成的DLL文件加入：工具條中的圓按鈕是剛才生成的UIButtonControl命令，現(xiàn)在一起把它加到我的工具條上在上面自己創(chuàng)建的工具條上也可以添加ArcMap的標(biāo)準(zhǔn)菜單項(xiàng)。例如平移、前一視圖等。F、VB應(yīng)用程序中如何控制ArcGIS的客戶端組件。打開(kāi)VB新建一EXE工程，在工程—>引用中添加ESRI的類庫(kù)。創(chuàng)建一個(gè)窗體，再在窗體上添加一個(gè)命令按鈕，Caption屬性為“VB操作ArcMap示例”。以上代碼實(shí)現(xiàn)的功能是：當(dāng)應(yīng)用程序開(kāi)始運(yùn)行進(jìn)行窗體的加載時(shí)，對(duì)當(dāng)前是否有ArcGIS客戶端正在運(yùn)行進(jìn)行檢ArcCatalog或是ArcScenceArcCatalog/ArcScenceisrunning”；如果檢查到ArcMapG、開(kāi)發(fā)自動(dòng)添加外業(yè)測(cè)量數(shù)據(jù)的程序。下面開(kāi)發(fā)的程序具有添加外業(yè)數(shù)據(jù)的功能慢，當(dāng)ArcGISGEODATABASE