Dim pFWS As IFeatureWorkspace Dim pWSF As IWorkspaceFactory Set pWSF = New ShapefileWorkspaceFactory Set pFWS = pWSF.OpenFromFile("C:\Temp", 0) Dim pfeatureclass As IFeatureClass Set pfeatureclass = pFWS.OpenFeatureClass("PolyShapefileName") Dim pgeodataset As IGeoDataset Set pgeodataset = pfeatureclass x1 = pgeodataset.Extent.XMax 'this is the right most point of the polygon extent
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.