Sub AnnoFeatureTest() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pLayer As IFeatureLayer Set pLayer = pMxDoc.FocusMap.Layer(0) Dim featureType As esriFeatureType featureType = pLayer.FeatureClass.featureType If (featureType = esriFTAnnotation) Then Debug.Print "It's a feature annotation !" Else Debug.Print "It's some other feature type." End If End Sub
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.