Aller au contenu

VBa polyligne


Invité maguiz

Messages recommandés

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

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité