#1 Fri 13 June 2003 10:05
- Leaute Gael
- Invité
script generalisation ?
bonjour,
Je recherche un script pour AV3 ou AV8 permettant de generaliser des polygones (en fonction de l'angle forme par les vertex et de la distance les separant).
Est ce que quelqu'un pourrait m'indiquer s'il en existe un ou plusieurs telechargeables sur le net ?
cordialement,
GAEL LEAUTE
#2 Fri 13 June 2003 10:38
- Alain Le-gallou
- Invité
Re: script generalisation ?
voila un script qui doit fonctionner, je l'ai copie sur http://arcobjectsonline.esri.com/
rubrique samples > geometry > generalize a polygone or polyline
Alain
Code:
Option Explicit Public Sub Generalize() ' ' Generalize works on a Path or Polycurve, so first we need to find out the ' Geometry we'll be acting on. ' Dim pMxDoc As IMxDocument, pGraphicsSelect As IGraphicsContainerSelect Set pMxDoc = ThisDocument Set pGraphicsSelect = pMxDoc.ActiveView If pGraphicsSelect.ElementSelectionCount = 1 Then ' ' Get the currently selected item. ' Dim pElement As IElement Set pElement = pGraphicsSelect.SelectedElement(0) Dim pGeom As IGeometry Set pGeom = pElement.Geometry ' ' We can call Generalize on Geometries with a CoClass of Polygon, Polyline or Ring. ' If (pGeom.GeometryType = esriGeometryPolygon) Or (pGeom.GeometryType = esriGeometryPolyline) Then Dim pPolycurve As IPolycurve2 Set pPolycurve = pGeom pPolycurve.Generalize pPolycurve.Length / 50 pElement.Geometry = pGeom End If pMxDoc.ActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing End If End Sub
