Создаю полигон:
Dim pFeatureClass As IFeatureClass
Set pFeatureClass = pFeature.Class
Dim pNewFeature As IFeature
Set pNewFeature = pFeatureClass.CreateFeature
Set pNewFeature.Shape = pPoints 'Collection.Geometry(0)
pNewFeature.Store
Полигон создаётся замечательно, вот только поля SHAPE_area и SHAPE_length равны нулю, почему?
