AE创建各种类型的featureclass代码(5)

''创建 Annotation layer

Dim pAnnoLayerFactory As IAnnotationLayerFactory

Dim pAnnoLayer As IAnnotationLayer

pAnnoLayerFactory = New FDOGraphicsLayerFactory

pAnnoLayer = pAnnoLayerFactory.CreateAnnotationLayer(pWorkspace, Nothing, pAnnoFeatName,

pField.GeometryDef, Nothing, pAnnoPropsColl, pGraphicsLayerScale, pSymbolColl, False, False, False, True, pOverposterProperties, "")

Return CType(pAnnoLayer, IFeatureLayer).FeatureClass End Function

''' <summary>

''' 创建存于 Shapefile 中的 featureclass

''' </summary> ''' <param name="sDir"></param> ''' <param name="sName"></param> ''' <param name="shapeType"></param> ''' <param name="hasM"></param> ''' <param name="hasZ"></param> ''' <param name="pSR"></param> ''' <param name="pFields"></param> ''' <returns></returns> ''' <remarks></remarks>

Public Shared Function CreateShapefile(ByVal sDir As String, ByVal sName As String, ByVal shapeType As esriGeometryType, _

ByVal hasM As Boolean, ByVal hasZ As Boolean, ByVal pSR As ISpatialReference, ByVal pFields As IFields) As IFeatureClass

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新资格考试认证AE创建各种类型的featureclass代码(5)全文阅读和word下载服务。