Aller au contenu

polyligne en vba


Messages recommandés

Posté(e)

Salut,

 

Je ne connais pas le VBA, mais l'exemple dans laide aux développeurs pour addLightWeigthPolyline me semble explicite :

 

Sub Example_AddLightWeightPolyline()
   ' This example creates a lightweight polyline in model space.
   
   Dim plineObj As AcadLWPolyline
   Dim points(0 To 9) As Double
   
   ' Define the 2D polyline points
   points(0) = 1: points(1) = 1
   points(2) = 1: points(3) = 2
   points(4) = 2: points(5) = 2
   points(6) = 3: points(7) = 2
   points(8) = 4: points(9) = 4
       
   ' Create a lightweight Polyline object in model space
   Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
   ZoomAll
   
End Sub 

 

Les points (2d) sont définis dans le SCO de la polyligne qui peut être modifié avec la propriété Normal

 

Pour ajouter des arcs regarde la méthode setBulge

Gilles Chanteau - gileCAD - GitHub
Développements sur mesure pour AutoCAD

Posté(e)

merci, je vais essayer ce code et voir pour le bidouillé en me servant de l'aide de autocad.

Si je ne trouve pas ce que je veus, je reviendrais poser quelques quesions supplémentaire.

Posté(e)

Mon probleme est de tracer une polyline suivant des point donné et de luis faire faire un offset et lui donner une épaisseur suivant le choix de l'utilisateur (combobox)

Posté(e)

Voilà pour l'offset :

 

Dim offsetvar As Variant
Dim splineObj As AcadSpline
offsetvar = splineObj.Offset(X)

 

C'est la même méthode pour les polylignes...

Pour l'épaisseur, je n'ai jamais utiliser de méthode, mais regarde dans l'aide spécial développeur et tu devrais trouver ton compte....

Bon courage

 

Si tu postes ton code on pourra te donnée des tuyaux pour le rendre plus efficace...

 

Pour le reste je pense que tu retrouveras ce que tu veux ici http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=15860#pid65932

 

[Edité le 10/11/2007 par sechanbask]

ATEGIE - Bureau d'Études Fluides

http://www.ategie.fr/uploads/ategie/ategie-at%C3%A9gie-bureau-%C3%A9tudes-etudes-fluides-logo-100x56.png

Exécution, Synthèse, Conception, Maîtrise d'Oeuvre, Audit, Chiffrage

www.ategie.fr

  • 1 mois après...
Posté(e)

ce sujet est résolu non ?

ATEGIE - Bureau d'Études Fluides

http://www.ategie.fr/uploads/ategie/ategie-at%C3%A9gie-bureau-%C3%A9tudes-etudes-fluides-logo-100x56.png

Exécution, Synthèse, Conception, Maîtrise d'Oeuvre, Audit, Chiffrage

www.ategie.fr

Posté(e)

non, pas encore car je ne sais pas encore comment dessiner un polyligne en lui demandant de selectionner les différent point (variant car c'est l'utilisateur qui dois cliquer sur ces points)

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é