Quelques routines utiles

[PHILPHIL]

hello gile

 

j'utilise ta routine

 

(defun round-prec (num prec /)
 (setq rslt (/ (fix (+ (* num (expt 10.0 prec)) (/ (abs num) (* 2 num))))
               (expt 10.0 prec)
            )
 )
 (if (< 0 prec)
   rslt
   (fix rslt)
 )
)

 

si je ne me trompe pas cette routine retourne

 

exemple

precision : 3 chiffre apres la virgule

 

10.334125 donnerai 10.334

10.076426 donnerai 10.076

 

 

comment doit on changer celle ci pour definir une precision a 0.5 ou autres

 

je voudrais créer un lisp permettant de recaler des lignes d'un plan peu precis

et que toutes les lignes soit replacer a 0.5 ou 0.05 ( pouvant etre une variable ) pres d'un point defini

en relisant toutes les coordonnées ( extremitées ) des lignes et les réinjectant

 

 

 

exemple

precision : 3 chiffre apres la virgule

a 0.05 pres

 

10.334125 donnerai 10.050

10.076426 donnerai 10.100

 

 

exemple

precision : 1 chiffre apres la virgule

a 0.5 pres

 

10.334125 donnerai 10.5

10.076426 donnerai 10.1

 

a moins que ce lisp existe déja

 

merci

 

bonne soirée

 

phil

Modifié le 11 février 2014 par PHILPHIL