[原创]在线等,用CreateAnnotationLayer创建标注图层时总是提示:自动化错误

楼主^#

更多发布于：2006-06-22 08:15

arcengine一个自带的例子.我想建一个标注图层,程序运行到CreateAnnotationLayer总提示自动化错误,请高手指点
代码如下:
Public Sub ConvertLabels2Anno(pFeatLayer As ILayer) 'pFeatLayer为一个点图层,我要将它转为标注图层. 'Interface Pointers necessary for accessing basic information about the map Dim pMap As IMap Dim pAView As IActiveView 'Interface Pointers necessary for getting information about the layer being labeled Dim pLayer As ILayer Dim pDataset As IDataset Dim pAnnotationLayer As IAnnotationLayer Dim pGeoFeatureLayer As IGeoFeatureLayer Dim pFClass As IFeatureClass Dim pAnnoLayer As IAnnotationLayer Dim pWorkspace As IWorkspace Dim pGeoDataset As IGeoDataset Dim pESRILicenseInfo As IESRILicenseInfo Dim bIsArcView As Boolean
 'Interface Pointers necessary for setting up the labeling properties for conversion Dim pAnnotateLayerPropertiesCollection As IAnnotateLayerPropertiesCollection Dim pMapAnnoPropsColl As IAnnotateLayerPropertiesCollection Dim pAnnotateLayerProperties As IAnnotateLayerProperties Dim pLabelEngineLayerProperties As ILabelEngineLayerProperties2 Dim pOverposterLayerProperties As IOverposterLayerProperties2 Dim propsIndex As Long Dim pSymbolClone As IClone 'Interface Pointers necessary for creating the annotation feature class Dim pRefScale As IGraphicsLayerScale Dim pSymCol As ISymbolCollection2 Dim pSymbolIdentifier As ISymbolIdentifier2 Dim pAnnotationLayerFactory As IAnnotationLayerFactory Dim pAnnoFeatureClassDesc As IFeatureClassDescription Dim pAnnoObjectClassDesc As IObjectClassDescription Dim pFields As IFields 'pointer needed for pointer needed Dim pField As esriGeoDatabase.iField Dim pGeomDefEdit As IGeometryDefEdit 'Interface Pointers necessary for performing labeling Dim pScreenDisplay As IScreenDisplay Dim pGraphicsLayer As IGraphicsLayer Dim pAnnotateMapProps As IAnnotateMapProperties Dim pAnnotateMap2 As IAnnotateMap2 Dim pTrackCancel As ITrackCancel Dim pMapOverposter As IMapOverposter Dim pOverposterProperties As IOverposterProperties
 On Error GoTo ConvertErr: 'setup the document, map, and get the first layer Set pMap = g_MapControl.Map Set pLayer = pFeatLayer 'check to make sure map is valid If pMap Is Nothing Then MsgBox "There is not an active map", vbCritical Exit Sub End If 'see if the first layer is the proper type If TypeOf pLayer Is IGeoFeatureLayer Then Set pGeoFeatureLayer = pLayer Else 'throw an error if the first layer is not a GeoFeatureLayer because only layers implementing this interface can be labeled MsgBox "First layer in map must be feature layer", vbCritical End If
 'check to see if we are beginning with a GDB based layer. This sample creates an annotation 'feature class in the same workspace and we can only create annotation in GDB workspaces Set pDataset = pGeoFeatureLayer Set pWorkspace = pDataset.Workspace If pWorkspace.Type = esriFileSystemWorkspace Then MsgBox "The layer being labeled is not a layer for a Geodatabase Feature Class.", vbCritical Exit Sub End If 'see what license we are working with Set pESRILicenseInfo = New ESRILicenseInfo If pESRILicenseInfo.DefaultProduct = esriProductCodeViewer Then bIsArcView = True End If 
 'get a reference to the layers feature class and QI to IGeoDataset to get spatial reference information Set pFClass = pGeoFeatureLayer.FeatureClass Set pGeoDataset = pFClass 'cocreate a new objects Set pAnnotationLayerFactory = New FDOGraphicsLayerFactory 'Factory for creating annotation feature classes Set pSymCol = New SymbolCollection 'the symbol collection needed for the annotation feature class Set pMapAnnoPropsColl = New AnnotateLayerPropertiesCollection 'a new properties collection which will be populated 'loop through the properties collection of the layer 'for each item, copy it to the new properties collection, 'pull the symbol out for the SymbolCollection, and setup the ID Set pAnnotateLayerPropertiesCollection = pGeoFeatureLayer.AnnotationProperties For propsIndex = 0 To (pAnnotateLayerPropertiesCollection.Count - 1) pAnnotateLayerPropertiesCollection.QueryItem propsIndex, pAnnotateLayerProperties If Not pAnnotateLayerProperties Is Nothing Then pMapAnnoPropsColl.Add pAnnotateLayerProperties Set pLabelEngineLayerProperties = pAnnotateLayerProperties Set pSymbolClone = pLabelEngineLayerProperties.Symbol
 Debug.Print propsIndex ; "个符号大小:" ; pLabelEngineLayerProperties.Symbol.SIZE Debug.Print propsIndex ; "个符号文本:" ; pLabelEngineLayerProperties.Symbol.Text Debug.Print propsIndex ; "个符号角度:" ; pLabelEngineLayerProperties.Symbol.Angle
'在此,symbol的大小、文本、角度都有内容。 pSymCol.AddSymbol pSymbolClone.Clone, pAnnotateLayerProperties.Class ; " " ; propsIndex, pSymbolIdentifier pLabelEngineLayerProperties.SymbolID = pSymbolIdentifier.id End If Next propsIndex 'clear the pointers for later use in the sub Set pAnnotateLayerProperties = Nothing Set pLabelEngineLayerProperties = Nothing 'setup GraphicsLayerScale for use in creating the annotation feature class Set pRefScale = New GraphicsLayerScale If pMap.ReferenceScale = 0 Then pRefScale.ReferenceScale = pMap.MapScale Else pRefScale.ReferenceScale = pMap.ReferenceScale End If pRefScale.Units = pMap.MapUnits 'Use AnnotationFeatureClassDescription to get the list of fields needed for the annotation feature class 'Also, pull out the shape field and setup the spatial reference to equal the base feature layer
 Set pAnnoFeatureClassDesc = New AnnotationFeatureClassDescription Set pAnnoObjectClassDesc = pAnnoFeatureClassDesc Set pFields = pAnnoObjectClassDesc.RequiredFields 
 Dim lGeomIndex As Long lGeomIndex = pFields.FindField(pAnnoFeatureClassDesc.ShapeFieldName) Set pField = pFields.Field(lGeomIndex) 'get the field definition for the shape field Set pGeomDefEdit = pField.GeometryDef 'get the geometry defintion for the field Set pGeomDefEdit.SpatialReference = pGeoDataset.SpatialReference 'set the spatial reference on the field
 Set pMapOverposter = pMap Set pOverposterProperties = pMapOverposter.OverposterProperties Debug.Print "标注图层中标注个数" ; pMapAnnoPropsColl.Count Debug.Print "标注号符个数:" ; pSymCol.Count Debug.Print "Dataset名称:" ; pFClass.FeatureDataset.Name Debug.Print "图层名称:" ; pFeatLayer.Name Debug.Print "overposter名称:" ; pOverposterProperties.Name '在此，各变量的内容都有。 Set pAnnoLayer = pAnnotationLayerFactory.CreateAnnotationLayer(pWorkSpace, pFClass.FeatureDataset, _ "testannonation", pGeomDefEdit, Nothing, pMapAnnoPropsColl, pRefScale, pSymCol, True, True, False, True, pOverposterProperties, "") '程序运行到这里，提示“自动化错误”
....................
 在立即窗口中结果：
0个符号大小:21.5788786109562 0个符号文本:53.50 0个符号角度:0 1个符号大小:21.5788786109562 1个符号文本:53.30 1个符号角度:318.83 标注图层中标注个数2 标注号符个数:2 Dataset名称:sde.SDE.ydhx 图层名称:ydhx_002_001 overposter名称:ESRI Standard Label Engine

喜欢0 评分0

举报回复

发帖回复

« 返回列表

您需要登录后才可以回帖，登录或者注册

返回顶部

[原创]在线等,用CreateAnnotationLayer创建标注图层时总是提示:自动化错误

最新喜欢：