Additionner des longueur de polylignes

[Anonymous]

Bonjour,
pour des réseaux électrique j'additionne plusieurs longueurs de polyligne.
J'aimerais automatiser cette manip. Je suis sur LT, il me faudrait donc une
macro (en diesel) que j'associerais à un bouton.
Je ne connais pas trop la procédure ... mais je pense qu'avec une pose dans
la macro après
chaque mesure et le calcul du total à la fin, c'est à peu près ce qu'il
faudrait.
Le petit problème .... je ne connais pas le "diesel" ! Alors est-ce trop
abusé de demander si quelqu'un de sympa
voudrait se pencher sur mon problème ?
d'avance merci de votre attention
chg

[Anonymous]

Bonjour,

Difficile de faire cela en une seule macro en diesel, je ne sais pas faire.

Voici ce que je te propose:
* 1er bouton d'initialisation pour commencer, ou faire une nouvelle somme.

^C^C_.userr1;0.0;_.text;_justify;_right;\\0.0;Récapitulatif;^Z

* 2ème bouton pour le calcul (macro répétée indéfiniment jusqu'à l'appui de la touche ESC ou sélection du 3ème bouton)

*^C^C_.area;_object;\_.userr1;$M=$(+,$(getvar,userr1),$(getvar,perimeter));_.text;;$(rtos,$(getvar,perimeter),2,2);

NB: PAS d'espace en fin de la ligne (après le dernier ";")

* 3éme bouton pour le total

^C^C$M=$(if,$(!=,$(getvar,userr1),0.0),_.text;;Total=$(rtos,$(getvar,userr1),2,2);)^Z

[Anonymous]

Lors du postage en HTLM, des espaces se sont glissés dans les lignes des boutons, LES ENLEVER. Il ne doit y avoir aucun espace dans la macro

[Anonymous]

Houaa super ! merci Bruno
Je vais essayer tout ça et te tiens au courant.
Si tu passe en Rhône Alpes je t'offre volontiers l'apéro pour ce tu as fais,
il y a de la matière grise et j'imagine pas mal de temps de travail.
_________________

Lors du postage en HTLM, des espaces se sont glissés dans les lignes des
boutons, LES ENLEVER. Il ne doit y avoir aucun espace dans la macro

[Anonymous]

Bonjour,
j'ai essayé, tout marche bien pour les 2 premiers boutons : les longueurs
s'affichent en colonne, c'est magique
Pour le total je n'ai peut-être pas tout compris, il m'affiche "Total=" et
après que faut-il faire ?
Fallait-il insérer dans un tableau avant ? Comment fonctionne la macro à
partir de ce moment là ?
Dans la zone de commande il n'y a plus de directive.
Cordialement
chg


_________________
Houaa super ! merci Bruno
Je vais essayer tout ça et te tiens au courant.
Si tu passe en Rhône Alpes je t'offre volontiers l'apéro pour ce tu as fais,
il y a de la matière grise et j'imagine pas mal de temps de travail.
_________________

Lors du postage en HTLM, des espaces se sont glissés dans les lignes des
boutons, LES ENLEVER. Il ne doit y avoir aucun espace dans la macro

[Anonymous]

J'ai mis longtemps à trouver l'erreur, car pour moi cela fonctionnait.

J'ai construit les macros sous une version pleine, et j'avais "zappé" que pour une version LT, seules les variable USERS1-5 sont accessibles.

Voici la correction présumée, sans pouvoir tester sous une LT

^C^C_.users1;0.0;_.text;_justify;_right;\\0.0;Récapitulatif;^Z

*^C^C_.area;_object;\_.users1;$M=$(+,$(getvar,users1),$(rtos,$(getvar,perimeter),2,2));_.text;;$(rtos,$(getvar,perimeter),2,2);

^C^C$M=$(if,$(!=,$(getvar,users1),0.0),_.text;;Total=$(getvar,users1);)^Z

NB:Toujours sur 1 seule ligne, et bien vérifier qu'aucun espace ne s'est glissé lors du copié-collé.

[Anonymous]

Géniale votre macro, mais pourrait-on faire une sélection par fenêtre ou capture pour le choix des éléments à additionner...

Merci à vous, très intéressant votre astuce...

[Anonymous]

Re-moi,
Ou bien, une chose qui me serait toppppp, ça serait que dès qu'un objet a été sélectionné, qu'il change de couleur, afin de ne pas le sélectionner à nouveau...???

[Anonymous]

Les 2 souhaits sont irréalisables en diesel.

Pourquoi? La commande "AIRE" avec l'option "Objet" n'accepte qu'une seule entité, donc difficile de faire une sélection multiple, et en plus en réponse du choix des objets (notez le pluriel irréaliste) seul un click sur une entité ou l'option "Dernier" peut être valide et ce choix contrairement aux autres commandes ne place pas ce choix dans le dernier jeux de sélection que l'on pourrait rappeler avec "Précédent" ultérieurement, pour changer de couleur par exemple.

[Anonymous]

Merci Bruno,
Nickel, tout à fait ce que je désirais
chg
____________

Les 2 souhaits sont irréalisables en diesel.

Pourquoi? La commande "AIRE" avec l'option "Objet" n'accepte qu'une seule
entité, donc difficile de faire une sélection multiple, et en plus en
réponse du choix des objets (notez le pluriel irréaliste) seul un click sur
une entité ou l'option "Dernier" peut être valide et ce choix contrairement
aux autres commandes ne place pas ce choix dans le dernier jeux de sélection
que l'on pourrait rappeler avec "Précédent" ultérieurement, pour changer de
couleur par exemple.

[Anonymous]

Merci Bruno pour ces infos... On s'est débrouillée artisanalement...

C'était sympa de trouver ces infos...

Bonne semaine à toi

Fourgui

[emilie.heche]

Très utile merci beaucoup!

[Y.AUBRY · Accepted solution]

Bonjour,

Sinon c'est également possible avec le lisp LongT (Longueur Totale) de feu @patrick_35 ci-joint.

Commande LONGT

A+ Yoan

[_Steven_ · Accepted solution]

Bonjour @Anonymous,

Du fait que vous travailliez sur AutoCAD LT, avez-vous essayez SCANDF de Bryce ?

[mirada2000]

Bonjour, je me permet de détérré ce topic, car intéréssé par ces macros, sur la version 2024.

Je ne parvient pas a les faires.

[braudpat · Accepted solution]

Hello @mirada2000 

Tu peux utiiser cette superbe routine VLisp "TLEN_PL_LAY" de notre Grand Maitre Gilles

pour avoir les longueurs totales des Polylignes 2D et 3D par Calque + Total general ...

Cela fonctionne sur ACAD LT 2024 et bien sur sur Tous les ACADs

Bye, Patrice (The Old French EE Froggy)

[mirada2000]

Super 👌