获得AnnotationFeactureclass的textSymbol

 

Public   Function getTextSymbol() Function getTextSymbol(pFeatureClass As IFeatureClass) As ITextSymbol

    Dim pTextSym As ITextSymbol

    Dim pAnnoClass As IAnnoClass
    Set pAnnoClass = pFeatureClass.Extension

    If Not pAnnoClass.SymbolCollection Is Nothing Then
        Dim pSColl As ISymbolCollection
        Set pSColl = pAnnoClass.SymbolCollection
        pSColl.Reset

        Dim pSymID As ISymbolIdentifier
        Set pSymID = pSColl.Next
        Do Until pSymID Is Nothing
            If TypeOf pSymID.Symbol Is ITextSymbol Then
                Set pTextSym = pSymID.Symbol
            End If
            Set pSymID = pSColl.Next
        Loop
    Else

        Dim pFCur As IFeatureCursor
        Set pFCur = pFeatureClass.Search(Nothing, False)
        Dim pAnnofeat As IAnnotationFeature
        Set pAnnofeat = pFCur.NextFeature
        Do Until pAnnofeat Is Nothing
            If TypeOf pAnnofeat.Annotation Is ITextElement Then
                Set pTextSym = pAnnofeat.Annotation
            End If
            Set pAnnofeat = pFCur.NextFeature
        Loop
    End If


    Set getTextSymbol = pTextSym


End Function

 

转载于:https://www.cnblogs.com/iswszheng/archive/2009/06/22/1508089.html