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
Page 1 sur 1
VBa polyligne
Partager ce sujet :
Page 1 sur 1