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

pGraphicsLayerScale = New GraphicsLayerScale

pGraphicsLayerScale.ReferenceScale = pRefeScale

pGraphicsLayerScale.Units = esriUnits.esriMeters

''创建 Symbolcollection

Dim pSymbolColl As ISymbolCollection2

Dim pSymbolIdent As ISymbolIdentifier2 = New SymbolIdentifier

pSymbolColl = New SymbolCollection

pSymbolColl.AddSymbol(pTextSymbol, "Default", pSymbolIdent)

If pSymbolID = 1 Then pSymbolColl.AddSymbol(pTextSymbol, "Default 1", pSymbolIdent)

''创建 Label 的相关属性

Dim pOverposterProperties As IOverposterProperties Dim pAnnoPropsColl As IAnnotateLayerPropertiesCollection

Dim pLabelEngineLP As ILabelEngineLayerProperties Dim

pAnnotateLayerProps As IAnnotateLayerProperties

pOverposterProperties = New BasicOverposterProperties

pAnnoPropsColl = New AnnotateLayerPropertiesCollection

pLabelEngineLP = New LabelEngineLayerProperties

pAnnotateLayerProps = pLabelEngineLP

pAnnotateLayerProps.Class = "Default"

pLabelEngineLP.Symbol = pTextSymbol

pLabelEngineLP.SymbolID = pSymbolIdent.ID

pAnnoPropsColl.Add(pLabelEngineLP)

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