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
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.