Classement

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) )