AO例程
文章平均质量分 65
hongbo163
这个作者很懒,什么都没留下…
展开
-
关于工作空间, ShapeFile工作空间,图元工作空间,图元类
Function OpenFeatureClass2(ByVal strPath As String, ByVal strName As String) As IFeatureClassOn Error GoTo ErrHandle /定义 工作空间 接口 Dim pWorkSpace As IWorkspaceFactory /用ShapeFile原创 2006-08-03 16:35:00 · 850 阅读 · 0 评论 -
在当前地图窗口添加一个Shape文件为一个图层(VBA)
Sub AddShapeFileLayer()/添加一个ShapeFile为一个图层 /定义一个图元层接口,并用FeatureLayer类来实现该接口 Dim pFeatrueLayer As IFeatureLayer Set pFeatrueLayer = New FeatureLayer /定义一个图元类接口,用OpenFeatureClass打开指原创 2006-08-03 17:31:00 · 1335 阅读 · 0 评论 -
关于接口的实现,只能低层实现高层
Public Sub MyTest() Dim pMxDocument As IMxDocument Dim pActiveView As IActiveView Dim pMap As IMap Set pMxDocument = ThisDocument /用Map实现IActiveView接口 /Set pMap = pMxDocu原创 2006-08-09 17:30:00 · 836 阅读 · 0 评论 -
显示当前Map的所有图层名称(VBA)
Public Sub ShowLayerName()/显示当前Map中的图层 Dim pFeatureLayer As IFeatureLayer Dim pLayer As ILayer Dim pDocument As IMxDocument Dim pMap As IMap Set pDocument = ThisDocument原创 2006-08-07 11:16:00 · 887 阅读 · 0 评论 -
添加一个Field字段(ZZ)
Public Sub AddField()/为FeatureLayer添加一个字段 Dim pMxDocument As IMxDocument Dim pMap As IMap /实现IMxDocument和IMap接口 Set pMxDocument = ThisDocument Set pMap = pMxDocument.FocusMap转载 2006-08-09 16:42:00 · 973 阅读 · 0 评论 -
显示指定图层的所有字段信息(VBA)
Public Sub ShowAllField()/显示指定图层的所有字段名称 Dim pMxDocument As IMxDocument Dim pFeatureLayer As IFeatureLayer Set pMxDocument = ThisDocument Set pFeatureLayer = pMxDocument.FocusMap.La原创 2006-08-10 09:15:00 · 1113 阅读 · 0 评论 -
显示当前Map的所有图层名称(VBA)
Public Sub ShowLayerName()/显示当前Map中的图层 Dim pFeatureLayer As IFeatureLayer Dim pLayer As ILayer Dim pDocument As IMxDocument Dim pMap As IMap Set pDocument = ThisDocument S原创 2006-08-07 11:15:00 · 978 阅读 · 0 评论 -
显示当前ActiveView类型(VBA)
Public Sub ShowActiveKind()/显示当前Active的是数据窗口还是布局窗口 Dim pMxDocument As IMxDocument Dim pActiveView As IActiveView Set pMxDocument = ThisDocument Set pActiveView = pMxDocument.ActiveV原创 2006-08-09 17:14:00 · 854 阅读 · 0 评论