Dim pFeat As IFeature Dim pRep As IRepresentation '------- IRepresentationClass::PrepareFilter Dim pGeodataset As IGeoDataset Dim pQf As IQueryFilter Dim pCur As IFeatureCursor Dim pMapContext As IMapContext Dim dScale As Double Dim pFC As IFeatureClass Set pQf = New QueryFilter pRepClass.PrepareFilter pQf 'Prepare QueryFilter Set pMapContext = New MapContext dScale = 25000 Set pFC = pRepClass.FeatureClass Set pGeodataset = pFC pMapContext.Init pGeodataset.SpatialReference, dScale, pGeodataset.extent Set pCur = pFC.Search(pQf, False) 'Get a reference to featurecursor Set pFeat = pCur.NextFeature 'Iterate through all features Do Until pFeat Is Nothing 'Get each feature representation Set pRep = pRepClass.GetRepresentation(pFeat, pMapContext) 'do something with representation here Set pFeat = pCur.NextFeature Loop
Přihlášení členové mohou přispívat, sledovat aktualizace a další. Jste tu noví? Zaregistrujte si bezplatný účet.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.