ArcMap-VBA开发实习讲义

1、ArcMap VBA 开发实习讲义一、 如何在ArcMap的VBA环境中编程1、写VBA宏Step 1:启动宏编辑器Step 2：选择 Single Documentlicrosoft Visual Basic fioEmal. Mxt = LThisDocu&nt 代码文就£编辑观国®格式调试助运行® 工弟D外按程序曲宙口帮肋也A 电直轴|厂胡 H 蝕|皱囹答交旧|Step 3:运行Microsof t Visual Basic - Horaal. sxt 一 UserForMS (UserFor>)岭文件® 編辑伺视團伯描入恪式 调试运

2、行® 工真外搂慢浮迴 Q - S爲瞩tCB - Horaal-lor-凸-&Frok A血舉刚 中肯定一| 亠_J 11國Controls运行子过程/用尸會体2、创立UIControl 交互式VBA编程Step 1用鼠标右击任何工具栏条，在弹出的上托式菜单中选择<Customize>菜单项Step 2：添加按钮Toolbars Commands OptionsShoYf commands coiktainizkf.：Categori eCompmands：aHew lUControl.lfDConl.i ols 丙 ibirmal VIToolControllKe

3、yboard.Save in: |Norrnal.nnxtTopologyTr&eking AnalystUtility Hetwcrk AnalystVtrsi oniitgVi w刪S LayersMNL SupportMacros M&nuw 讥w .3、获取ArcMap对象Dim pMxDoc As IMxDocume ntDim pMap As IMapDim pFLayer As IFeatureLayerSet pMxDoc = ThisDocume nt 'This is a module-level variable!Set pM ap = pMxDo

4、c.FocusMapSet pFLayer = pMap.Layer(O)MsgBox pFLayer. name用户界面1添加按钮Step 1:点击AZ. ud - ArcBap - Arclnf oInols Window Help:R Editor ToslbarEdi taxExports日L«r-叵ASr&sult(rt SC oil ngkiuipInK>ftct_lrtcrg01虹<七总空Add IT DH£ 馨审毎 E A山1 Ksule Egeitti . 中 ® 蟲.ArcCiali>£AZ_UE_SRuiD

5、4： E Oiila ne Serriic-es"節窃 Ny E14Ci =Op bntr>b4tRunpNNiSLiZr OSRunpIonize.Exisnsi oilsStep 2：添加按钮Toolbars Commands OptionsShow commands containinig：Categari ealJIConl.i ols DeleTopCkloTra亡kiriig AnalystUtility Network AzidLystVers i 心 flingVieWMS LayersXfflL SupportMacros Menus )Hi !Ittw UZ

6、Control.Save ini |Norrnal.m«tCoiftmands：Normal IITqqIC on trollKeyboard.Step 3:将按钮拖至界面要拖到某一个工具条上ArcTflolbow hinalysii To*】* 吧 artogr ftfihy T« Convtrsioa r Data Man蛰创 Ga4co>dinc T Lino ar Etaf*: Spali al SlAi3电 THQ11-RwpI-nEtc-口AZ_US_Rtti»p-B Ranp+F & L&rer匣I fhgjw 町10Step

7、4：更换图标右键1 1Save m: |AZ.mwdKeiiboard. I Add honni file. 1Close0«肯 UICflMrfll .llrlrtTiilMyEutieril?oolboxnalysis Tool: Z art o pr aphy T nvtrsi on 1lt 电 Bui<E«n j-tocotLing Ti Lineal' lefes >pali al StaCustoBizeTalbikrt £wmMds OpUMShew etimkands UBitl 矗imi 血君：Tppolp,gyTrackin

8、g Aoiialys：t Utility B«tw«rk Analyzt Ver si oEkingVi w¥MS LayersEML Supp*r lgw anui qtmi VICoitrolEIICh 綁亀片 gut ton Im&«OnlyIhE* wd TrxtB«gin 宜 j£roupCorTmanJ's:五“ Sown ire一II Jk片al. Tes.t2一I Hora al. TestMySuttonl ITcraal. lUToolControll2、添加工具条Step 1:点击Tools Wi

9、ndw Help iraEditor ToolbarGr A.phEEditor(re sc oi ngHu g)i¥ ay&dd IT IUMAdd Keule Events F回AZresultAf cC4lali>£a JLuipInK'&'i:石 丁芒Online Seryicfis阴M丄皿Pb Op&jtr>b4tRiunpH叵口KmpAZ. Kzd - Arclap Arc InfoEeporlsExt ms i on:File EdLt Vi卉耳 L«rer -叵倚 Ny FlicssStep 2:

10、添加工具条Step 3:添加成功，可以把按钮放在工具条上同上Jew FeaTarget： J3 oxTool: ography T« er si on :Mut<tr oding Ti ar Refei ial SU-访问图层数据定义文档、Map对象、图层Dim pMxDoc As IMxDocume ntDim pMap As IMapDim pFLayer As IFeatureLayerDim pFClass As IFeatureClassSet pMxDoc = ThisDocument 'This is a module-level variable!Set pMap = pMxDoc.FocusMapSet pFLayer = pMap.Layer(0)/定义 Feature 集Set pFClass = pFLayer.FeatureClass/定义选择操作对象Dim pFCursor As IFeatureCursorSet pFCursor = pFClass.Search(N