Problème de extmin et extmax

[Morgul]

Bonjour,

 

Mon problème de situ au niveau de l'arrondi, lorsque que je tappe : Commande: extmax

 

Résultat : EXTMAX = 0.000000,297.000000,0.000000 (lecture seule)

 

Lorsque je tappe : (getvar "extmax")

 

J'ai le résultat : (5.68434e-015 297.0 0.0) ce qui est difficile à exploiter.

 

Comment faire pour obtenir (0.0 297.0 0.0) avec (getvar "extmax") ?

 

En effet, je souhaite déterminer la taille d'un cartouche pour l'impression automatique de mes présentations à l'aide de cette commande.

 

Merci.

A+.

[Tramber]

(defun killzero (ki ze /  ans ans2);(setq ki -200 ze 2)
 (setq ans 1 sign(minusp ki))  
 (if (         (repeat ze (/ 1.0 (setq ans (* 10 ans)))))
   0.0     ans2   ));(if sign (- )ans2)

;;;(killzeropt '(0 7 0.00000005) 4)

;;;(killzero -200.0 4)

(defun killzeropt (pti n / )
 (cond((= (length pti) 2) (list (killzero (car  pti) n) (killzero (cadr  pti) n)))
      ((= (length pti) 3) (list (killzero (car  pti) n) (killzero (cadr  pti) n) (killzero (caddr pti) n)))
            ))

 

2 fonctions de l'ami Tramber à charger avec tes lisps.

 

 

(killzero 0.00001 12) donnera 1.0e-005

(killzero 0.00001 3) donnera 0, 3 représente le nb de chiffres significatifs (après le virgule)

(killzeropt '(5.68434e-015 297.0 0.0) 5) est une fonction adaptée pour les points

 

J'ai découvert après avoir écrit ces merveilles qu'il y a avait mieux mais ca marche !