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
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.