Classement

Salut, Pour le mot clé avec valeur par défaut, essaye comme ça : (defun question (msg rep) (initget "Oui Non") (cond ((getkword (strcat msg " [Oui/Non] <" rep ">: "))) (rep) ) ) Pour l'histoire des calques rapprochés (ou pas), ça risque d'être beaucoup plus complexe... D'ailleurs, je ne vois pas l'intérêt de "rapprocher" les calques systématiquement, s'il s'agit juste d'empécher la notification, regarde les variables système LAYEREVALCTL, LAYEREVAL et LAYERNOTIFY.

Bonjour et bienvenu Gjulien Si tu me permet deux ou trois petites remarques pour tes débuts: - Je te conseil d'internationaliser tes commandes et options de commandes, surtout que tu travailles avec une version anglaise. - Pense à localiser tes variables après ton defun ex: (defun c:cscc (/ LaRec Purge Save) -Pour paramétrer tes variables AutoCAD tu peux passer par la fonction lisp setvar Si tu veux t'amuser à comparer, voici comment j'aurais écrit ce code: (defun c:cscc (/ question) (setvar "MSLTSCALE" 0) (setvar "PSLTSCALE" 0) (setvar "LTSCALE" 1) (defun question (msg rep) (initget "Oui Non") (getkword (strcat msg " [Oui/Non] <" rep ">: "))) (alert (strcat "Configuration modifiée: " (if (= "Oui" (question "Voulez-vous rapprocher les calques ?" "Oui")) (progn (command "_-LAYER" "_RECONCILE" "*" "") "\n -> Calques rapprochés") "\n -> Calques non rapprochés" ) (if (= "Oui" (question "Voulez-vous purger votre dessin ?" "Oui")) (progn (command "_-PURGE" "_A" "*" "_N") "\n -> Dessin purgé") "\n -> Dessin non purgé" ) (if (= "Oui" (question "Voulez-vous sauvegarder votre dessin ?" "Oui")) (progn (command "_QSAVE") "\n -> Dessin sauvegardé") "\n -> Dessin non sauvegardé" ) ) ) ) A+ (Ps: code non testé car il n'y a pas l'option rapproché sur ma version 2007 d'AutoCAD)

Salut En général, on met un "" pour terminer une commande quand c'est nécessaire. @+