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
Les membres connectés peuvent publier, suivre les mises à jour, et plus encore. Nouveau ici ? Inscrivez-vous gratuitement.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.