Cotation

[kohen.g]

Bonjour est ce possible d'additionner des cotations ? et d'extraire celle-ci?

Merci

 

Si oui comment?

[lesourd2]

Salut

 

 

additionner des cotations

 

Oui avec ce petii Lisp (merci a son auteur)

 

 (defun c:tcot(/ sel tot)
(vl-load-com)
(setq tot 0)
(princ "\nVeuillez sélectionner 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)
)

 

Et pour extraire c'est classique

 

=> Outils => extraction de donnees.

 

@+

[kohen.g]

Bonsoir ,

j'ai testé et cela ne fonctionne pas cela prend en compte mes divers cote mais cela ne les additione pas et encore moin cela les extraits