アノテーション フィーチャの更新

'アノテーション フィーチャは属性値を変更する操作をArcObjectsで操作しても反映されない
'アノテーションに結びつくエレメントを操作する必要がある

'VBA
Dim pAnnotaionFeature As IAnnotationFeature
Set pAnnotaionFeature = pFeature  'フィーチャの取得

Dim pTextElement As ITextElement
Set pTextElement = pAnnotaionFeature.Annotation

Dim pGroupSymbolElement As IGroupSymbolElement
Set pGroupSymbolElement = pTextElement
pGroupSymbolElement.SymbolID = 0    'SymbolIDの変更

Dim pTextSymbol As ITextSymbol
Set pTextSymbol = pTextElement.Symbol
pTextSymbol.Angle = -90     'Angleの変更

'設定の反映
pTextElement.Symbol = pTextSymbol
pAnnotaionFeature.Annotation = pTextElement

'フィーチャのストア
pFeature.Store


'---------------------------------------------------------
'VB
Dim pAnnotaionFeature As IAnnotationFeature = pFeature	'フィーチャの取得

Dim pTextElement As ITextElement = pAnnotaionFeature.Annotation
Dim pGroupSymbolElement As IGroupSymbolElement = pTextElement
pGroupSymbolElement.SymbolID = 0	'SymbolIDの変更

Dim pTextSymbol As ITextSymbol = pTextElement.Symbol
pTextSymbol.Angle = -90		'Angleの変更

'設定の反映
pTextElement.Symbol = pTextSymbol
pAnnotaionFeature.Annotation = pTextElement

'フィーチャのストア
pFeature.Store()

//---------------------------------------------------------
IAnnotationFeature pAnnotaionFeature = pFeature; //フィーチャの取得

ITextElement pTextElement = pAnnotaionFeature.Annotation;
IGroupSymbolElement pGroupSymbolElement = pTextElement;
pGroupSymbolElement.SymbolID = 0; //SymbolIDの変更


ITextSymbol pTextSymbol = pTextElement.Symbol;
pTextSymbol.Angle = -90; //Angleの変更


//設定の反映
pTextElement.Symbol = pTextSymbol;
pAnnotaionFeature.Annotation = pTextElement;


pFeature.Store(); //フィーチャのストア