sommets d une polyligne

[rahim853]

bonjour a tous,

je cherche comment faire , pour recuperer les coordonnées des sommet d une polyligne( on la selectionnant sur ecran) puis inserer un tableau contenant ces coordonnées dans le dessin

merci

[rahim853]

j ai pu trouver un petit code mais j ai encore des probleme avec les dimension de la table

voila ce que j ai fais

 

 

 

Dim objPoly As AcadLWPolyline

Dim varPoint As Variant

Dim dbCorner(0 To 2) As Double

Dim strText As String

Dim dbWidth As Double

Dim objMText As AcadMText

Dim basePnt As Variant

Dim NbPoints As Integer

ThisDrawing.Utility.GetEntity objPoly, basePnt, "Selectionner une polyligne :"

 

For Each Coordinate In objPoly.Coordinates

NbPoints = NbPoints + 1

Next

TableauCoord = objPoly.Coordinates

For i = 0 To NbPoints - 1

 

Next

Dim MyModelSpace As IAcadModelSpace2

Set MyModelSpace = ThisDrawing.ModelSpace

Dim Pt As Variant

Dim MyTable As AcadTable

Pt = ThisDrawing.Utility.GetPoint

'Set MyTable = MyModelSpace.AddTable(Pt, NbPoints / 2 + 1, 2, 0.7, 1)

Set MyTable = MyModelSpace.AddTable(Pt, NbPoints / 2 + 1, 2, 1, 30)

MyTable.TitleSuppressed = False

MyTable.SetText 0, 0, "coordonnées"

k = -2

j = -1

For i = 1 To NbPoints / 2

MyTable.SetText i, 0, FormatNumber(TableauCoord(k + 2), 2)

MyTable.SetText i, 1, FormatNumber(TableauCoord(j + 2), 2)

k = k + 2

j = j + 2

Next

ZoomExtents

aire = objPoly.Area

MsgBox "Cette polyligne à : " & NbPoints / 2 & " pts(x,y)" & aire

End Sub