Longueur cumulée cotations

[mathieu]

Bonjour,

 

Je post ce sujet aujourd'hui pour trouver une fonction ou routine (en espérant qu'elle existe) pour connaitre la longueur cumulée de cotation.

 

Je m'explique, ci-dessous une image qui représente en rouge des cloisons et en bleu les cotes de celle-ci. Plutôt que de prendre ma calculette et d'additionnée toutes ces cotes à la manuellement (c'est un risque d'erreur) je chercher une fonction pour une fois toutes les côtes sélectionnées avoir directement la longueur cumulée de celle-ci !!

 

En espérant que vous pourrez m'aider.

 

 

 

Nota : impossible d'insérer l'image ("inserer une image avec le lien Url ne s'affiche pas)

 

voici donc le liens de l'image : http://imagik.fr/uploads/20076

[lecrabe]

Hello

 

Voila la routine "TCOT.lsp" ... D'ailleurs c QUI l'auteur ?

 

lecrabe

 

 

;;; Totalisation de COTEs (ou Somme de COTEs) - Routine : TCOT 
;;; Rappel : Utilisation surtout sur les Cotes Lineaires et Alignees 
;;; Attention : sur les Cotes Angulaires, le resultat est en RADIANS ! 

(defun c:TCot(/ sel tot)
(vl-load-com)
(setq tot 0)
(princ "\nVeuillez selectionner des Cotes : " )
(and (ssget (list (cons 0 "DIMENSION")))
(progn
(vlax-map-collection (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
'(lambda (x) (setq tot (+ tot (vla-get-measurement x))))
)
(vla-delete sel)
(princ (strcat "\nCumul des Cotes : " (rtos tot)))
)
)
(princ)
) 

[mathieu]

Extra, exactement ce que je voulais =)

 

Un grand merci à toi !

 

Le sujet peux être mis en "résolu"

[lecrabe]

Hey Mathieu

 

Aie, Aie, je viens de supprimer ton nouveau sujet et ma reponse sur les epaisseurs de ligne

et ta question de visibilite / invisibilite !!!

 

J'ai crapote "grave" car j'avais fais une reponse en double

et en voulant supprimer mon doublon, j'ai supprime TOUT le sujet !

 

Je suis desole, SVP pourrais tu resaisir ton sujet !

 

SORRY, lecrabe

[-Olivier-]

La pince du crabe a serrée trop fort. :(rires forts):

[mathieu]

Hey Mathieu

 

Aie, Aie, je viens de supprimer ton nouveau sujet et ma reponse sur les epaisseurs de ligne

et ta question de visibilite / invisibilite !!!

 

J'ai crapote "grave" car j'avais fais une reponse en double

et en voulant supprimer mon doublon, j'ai supprime TOUT le sujet !

 

Je suis desole, SVP pourrais tu resaisir ton sujet !

 

SORRY, lecrabe

 

Le message demandait si il est possible d'afficher une épaisseur précise, par exemple si j'ai un trait en 0.30 un en 0.20 et un en 0.60 je veux en cliquant sur "afficher masquer l'epaisseur de ligne" que par exemple seulement les épaisseur en 0.30 ressortent =)

 

Ca m'arrangerai si tu pouvait retrouver ta réponse :P

[lecrabe]

Hello

 

En fait j'avais repondu que par la selection rapide

puis jouer avec les nouvelles fonctions "Isoler / Masquer" d'AutoCAD 2011,

tu pouvais peut etre arriver a qq chose ...

 

Mais je pense qu'il te faut une routine Lisp/VLisp specifique

qui jouerait avec le flag d'invisibilite DXF 60 !

 

C pourquoi je te propose de RESAISIR un nouveau sujet dans "Routines Lisp" ...

 

lecrabe

[FRAXA]

Bonjour à tous,

Je relance ce sujet car je souhaite additionner la valeur "Remplacement de texte" de mes cotations (isométrie).

J'ai remplacé " vla-get-measurement x " par " vla-get-TextOverride x "

mais j'obtiens un message d'erreur " erreur: type d'argument incorrect: numberp:..."

Est-il possible d'additionner les valeurs de "Remplacement de texte"?

[didier]

Bonjour @FRAXA

Relancer un sujet si vieux n'est pas toujours une bonne idée.
Les liens vers les images sont morts et on ne sait pas vraiment quel est le résultat à atteindre.
Ni ce qu'on a comme entité au départ.

Merci de commencer un nouveau sujet, ou de compléter celui-ci pour qu'on puisse s'y mettre.

Amicalement