ArcGIS VBA
文章平均质量分 71
McDelfino
这个作者很懒,什么都没留下…
展开
-
ArcGIS VBA - IMxDocument & IMap & ILayer
IApplication接口:》》》点击查看《《《 移动选中图层,使用IMap接口的MoveLayer方法Sub MapIndex() Dim pDoc As IMxDocument Dim pMap As IMap Dim pLayer As ILayer Set pDoc = ThisDocument Set pMap = pDoc.原创 2011-11-08 17:16:09 · 3134 阅读 · 0 评论 -
ArcGIS VBA - VBA+AO入门15例完全注释版
1.Sub MyMacro() Dim pMxDocument As IMxDocument '地图文档 Set pMxDocument = Application.Document '获取当前应用程序的文档 MsgBox pMxDocument.FocusMap.name '显示当前地图的名称End Sub2.Sub MyMacro(转载 2011-11-10 15:51:23 · 6330 阅读 · 2 评论 -
ArcGIS VBA - 字段名提取
字段名提取用Collection对象方法:Private Sub UIButtonFields_Click() ' Part 1: Get the feature class and its fields. Dim pMxDoc As IMxDocument Dim pMap As IMap Dim pFeatureLayer As IFe原创 2011-11-09 22:18:56 · 4072 阅读 · 0 评论 -
ArcGIS VBA - 学习
改变点要素符号和颜色:Sub sdkjflsdjfldj() Dim pColor As IRgbColor Set pColor = New RgbColor pColor.Red = 255 pColor.Green = 100 pColor.Blue = 100 Dim fnt As New StdFont fnt.name =原创 2011-11-11 19:18:59 · 3546 阅读 · 1 评论