конвертировать прямоугольный полигон

Question

Как конвертировать полигональный  слой прямоугольников в точечный с углами поворота, соотв. углу наклона сторон прямоугольника?

Answer 1

получай! если будут проблемы с углами наклона, разясьни вопрос...

Sub ConvertPolygonToPoints(pPolFL As IFeatureLayer, pPntFL As IFeatureLayer)
   Dim pFC As IFeatureClass
   Dim pFDS As IFeatureDataset
   Dim pWS As IWorkspace
   Dim pWSE As IWorkspaceEdit
  
   Set pFC = pPntFL.FeatureClass
   Set pFDS = pFC.FeatureDataset
   Set pWS = pFDS.Workspace
   Set pWSE = pWS
   pWSE.StartEditing True
  
   Dim pPC As IPointCollection, i As Long
   Dim p1 As IPoint, p2 As IPoint, pGeom As IGeometry
   Dim pFCur As IFeatureCursor
   Dim pFeat As IFeature, pFeatNew As IFeature
   Set pFCur = pPolFL.FeatureClass.Search(Nothing, True)
   Set pFeat = pFCur.NextFeature
  
   Do While Not pFeat Is Nothing
      If Not pFeat.Shape.IsEmpty Then
         Set pPC = pFeat.ShapeCopy
         For i = 0 To pPC.PointCount - 1
            Set pFeatNew = pFC.CreateFeature
            Set p1 = New Point
            p1.PutCoords pPC.Point(i).X, pPC.Point(i).Y
            Set pFeatNew.Shape = p1
            pFeatNew.Store
         Next
      End If
      Set pFeat = pFCur.NextFeature
   Loop
  
   pWSE.StopEditing True
  
End Sub

Sub CCC()
   Dim mxd As IMxDocument
   Set mxd = ThisDocument
   ConvertPolygonToPoints mxd.FocusMap.Layer(2), mxd.FocusMap.Layer(0)
End Sub