Aller au contenu

Dessin de flèches en une polyligne


DenisHen

Messages recommandés

Bonjour à tous.

 

Voilà, pour mes besoins, j'ai créé un lisp (avec une DCL) qui dessine des flèches en une polyligne en 2 clics.

 

J'ai différencié 3 types de flèche : petite, moyenne et grande. Toutes les trois paramétrables, soit au moment du dessin, soit dans une fenêtre dédiée.

 

Voici mon programme : DH_Fleches.zip

 

Les différentes tailles (celle de la flèche, de la base et de la queue) sont exprimées en mm papier.

 

Les commandes sont :

- ConfigFleches : fenêtre de configuration des flèches,

- DHPetiteFleche : dessine une petite flèche selon l'échelle,

- DHMoyenneFleche : dessine une flèche moyenne selon l'échelle,

- DHGrandeFleche : dessine une grande flèche selon l'échelle,

 

Un grand merci à CadXP (notamment à Patrick_35, (gile), VDH-Bruno et j'en oubli...) sans qui, jamais je n'aurais réussi à faire cette routine...

 

En espérant être utile à quelqu'un...

 

Denis...

  • Upvote 1

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

J'ai corrigé un petit "bug"... Les X et Y du tableau étaient inversés...

 

Désolé... C'est la trac des soirs de premières...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Salut

 

Merci pour ton partage, mais pour éviter de s'éparpiller tu pourrais créer un sujet qui regroupe tous tes lisps mis à disposition. C'est plus facile à gérer et à retrouver.

Cela n'empêche pas de nouveaux sujets pour indiquer que tu as ajouté de nouveaux lisps.

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

Je comprend, mais je dois avoir 2 ou 3 lisp patagés, je ne pense pas que ce soit nécessaire de créer un post juste pour ça.

 

Et je laisse cet honneur aux grands du site... Perso, je ne sais même pas si mes lisp seront utilisés par d'autres...

 

Mais je prend ça pour un compliment... ;)

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

On verra bien ce qu'en pense le modo Tramber...

 

Why not...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Oulalah,

Je lis un message ce soir et on parle de moi ;)

Il y a beaucoup de modos, y a pas que moi.

Je dis comme Patrick, comme tu veux :P

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

Bon, ben je créerais le poste "Lisps de DenisH" courant de semaine prochaine (je suis en maxi week-end).

 

J'y posterais mes différents lisp susceptibles d’intéresser le plus grand nombre...

 

Merci à vous tous, car sans vous, les membres de CadXP, jamais je n'aurais "lispé" et avoir mon propre poste...

 

J'espère servir au mieux CadXP... Pour le plus grand plaisir de tous...

 

Denis...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

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é