VBa polyligne

[Invité maguiz]

bonjour j'ai fais une petite methode pour tracer une polyligne en fonction des points choisis par l'utilisateur mais la j'ai un petit probleme la polyligne n'apparait pas

voici le code si quelqu'un vois où est le probleme ça m'arrangerai

merci d'avance

 

Private Sub CommandButton18_Click()

Dim b(0 To 100) As Variant

Dim p As Variant

Dim i, k As Integer

Dim l As AcadLine

 

UserForm1.Hide

 

On Error GoTo GestErrCdG

k = 0

Do

p = ThisDrawing.Utility.GetPoint(, "choisir points")

b(k) = p(0)

b(k + 1) = p(1)

k = k + 2

Loop

 

 

 

Set l = ThisDrawing.ModelSpace.AddLightWeightPolyline(b)

 

GestErrCdG: 'Gestionnaire d'erreur : sort de la macro quand ECHAP est actionné

 

UserForm1.Show

 

End Sub