Classement

Bonjour à tous, Voilà je vous expose mon problème. Je souhaite comparer une valeur rentrée par l'utilisateur avec d'autres valeurs (réelles) que j'ai préalablement rentrer dans des variables. Je souhaite en récupérer la valeur la plus proche. Ex : l'utilisateur rentre 100 Mes variables sont 1000, 200 , 120 L'outil me sort le 120. Je vous remercie par avance

Bonsoir Patrick et merci pour ta réponse :) Je clos le sujet. Bonne soirée !

Salut (setq mavar1 50.00 mavar2 70.00 lst (mapcar 'eval '(mavar1 mavar2)) ) @+

Salut, Ci-dessous, une fonction qui implémente un algorithme simple : pour un nombre donné et une liste de nombres (arguments), on cherche la plus petite différence entre ce nombre et chacun des termes de la liste. pseudo code arguments : input = le nombre dont on cherche le plus proche dans une liste lst = la liste dans laquelle on cherche le nombre le plus proche procédure : result = premier terme de lst delta = valeur absolue de input - result Pour chaque n, terme suivant de la liste si valeur absolue de input - n est inférieur à delta alors result = n et delta = valeur absolue de input - n (defun nearest (;; arguments input ;; le nombre dont on cherche le plus proche lst ;; la liste des nombres à comparer / ;; variables delta ;; la valeur absolue de la plus petite différence result ;; la nombre de la liste le plus proche du nombre en argument ) ;; initialisation des variables avec le premier terme de la liste (setq result (car lst) delta (abs (- input result)) ) ;; pour chaque terme suivant dans la liste... (foreach n (cdr lst) ;; ...si la différence entre ce terme et le nombre en argument est inférieure à delta... (if (< (abs (- input n)) delta) ;; ... on affecte à result ce terme et à delta la différence (setq result n delta (abs (- input n)) ) ) )

Bonjour à tous et désolé de ne répondre que maintenant. Je vous remercie Didier et VDH-BRUNO pour vos réponses ! Je me rappelle que j'allais sur ce site, il y a maintenant deux ans car je devais faire un petit outil pour mon école. Aujourd'hui en revenant ça fait plaisir de voir que vous êtes toujours abonné à la chaine ! <img src='http://cadxp.com/public/style_emoticons/<#EMO_DIR#>/laugh.gif' class='bbc_emoticon' alt=':(rires forts):' /> J'ai vraiment perdu le peu je connaissais en AUTOLISP donc j'essaie de m'y remettre petit à petit, simplement par plaisir et envie. Didier : Ma question est : est ce qu'il existe une autre fonction que Vl-sort qui puisse faire le même travail sur des versions d'Autocad plus anciennes? Bruno : Honnêtement je penche un peu sur ton bout de code ainsi que la réponse élémentaire de notre fameux Gilles ! Je sèche un peu, mais c'est bon :) Je ne comprends pas le programme donc j'essaie de revoir avant toutes les petites sous fonctions qu'il y a à l'intérieur pour me réaménager le cerveau :unsure: J'essaie de faire un test et ma question comment utiliser une fonction dans une autre fonction, mon code d'essai : (defun c:multip(mavar) (* mavar mavar) ) (defun c:addi(multip val1) (setq val1 2) (setq ValeurMultiplie (addi(multip(val1)))) (setq result (+ ValeurMultiplie val1)) (princ result) ) A bientôt et merci encore !

Coucou S'il te plaît, fais attention aux titres des messages : C'est une coïncidence mais deux messages sortent en même temps L'un portant sur les comparaisons d'entiers mais intitulé : Comparaison de valeurs réelles Et l'autre : Comparaison de valeurs Ce dernier portant sur les réels ... Bel imbroglio... Amicalement

Bonsoir, Très rapidement une autre façon de faire et un prétexte pour venir vous faire un petit coucou, (defun proche (val l) (defun reduce (fun lst) (if (cdr lst) (reduce fun (cons ((eval fun) (car lst) (cadr lst)) (cddr lst))) (car lst) ) ) (reduce '(lambda (x y) (if (< (abs (- val x)) (abs (- val y))) x y ) ) l ) ) _$ (proche 1020 '(1040 110 109 95 212 99 1019)) 1019 Voir cette discussion pour plus d'explication sur le procédé http://cadxp.com/topic/34706-trier-une-liste-de-dates/page__view__findpost__p__188141 Bonne continuation à tous Bruno

Il écoute rien, je lui est déjà expliqué hier... nous sommes dans le même bureau... Et oui il s'agit bien d'une commande Covadis module VRD projet multi plateforme. Merci pour vos réponses.

Bon j'ai trouvé la solution Déja vérifié dans voter répértoire ou est installé autocad si les dico sont présents. C: \autocad2010\Support la vous devez avoir des fichier en .dct Ce sont les dictionnaires Si comme moi lorsque vous allez dans option>fichier >nom de l'éditeur de texte, du dico ect.............> dictionnaire picnipal il n'y a rien il faut alors dans chemin de recherche de fichiers de support rajouté une ligne qui amene sur le dossier support donc chez moi C: \autocad2010\Support La normalement vous n'aurez plus de message d'erreur. @+