Classement

Ah bah, @lecrabe et sa bibliothèque de 3001 (?) routines sont toujours plus rapides 🙂 Bisous, Luna

Coucou @OlivierR, Si je comprends bien ton programme, il permet de faire un "Enregistrer sous" de ton dessin courant, c'est bien cela ? Si c'est le cas, première question : pourquoi ne pas utiliser "Enregistrer sous" directement plutôt que de passer par un programme ? Si toutefois il faut passer par le programme, techniquement parlant tu crées un nouveau fichier à l'emplacement choisi, donc la fonction (getfiled) avec les bits 4 (nom/extension arbitraire) et 1 (créer un nouveau fichier) devrait te permettre de faire ce que tu désires. En effet il te suffit ensuite de supprimer le nom de fichier du retour de (getfiled), ce qui te donnera le nom du dossier, puis d'y greffer le nom de ton fichier en cours (ou tout autre nom si tu le souhaites) afin de créer le nouveau fichier à l'emplacement spécifié. Par exemple (setq str (getfiled "" "" "" 5)) (setq pos (vl-string-position 92 str 0 T)) (setq dos (substr str 1 pos)) ;; Retourne le nom du dossier (sans les \\ séparateur pour le nom du fichier), remplacer 'pos' par '(1+ pos)' pour ajouter le \\ (setq dwg (getvar "DWGNAME")) (setq fil (strcat dos "\\" dwg)) Pour info le 92 correspond au code ascii pour le caractère \ (permettant de séparer les dossiers). La variable 'dos' aura pour valeur quelque chose comme cela : "C:\\Users\\username\\AutoLISP" La variable 'dwg' : "Dessin1.dwg" Et donc 'fil' : "C:\\Users\\username\\AutoLISP\\Dessin1.dwg" Bisous, Luna