Déterminer l'unité. Besoin d'idée pour améliorer

Patrick · Mars 17, 2026, 10:32

Alors la première chose que j’ai faite est de faire tourner ce programme dans une version anglaise (la seule que j’ai). Ça a à peu près fonctionné à part qu’une fonction m’était renvoyée comme non définie (JMG:GET-UNIT).

Ensuite ce que j’ai fait est de demander à l’assistant AutoCAD Expert AI de m’analyser le programme et de me suggérer des améliorations, de façon surtout moi qui ne connais pas du tout ton programme, ni ce qu’il est censé faire, de me faire en fait une mini documentation et en voici donc ci-après le résultat brut.

[!Note]
Le résultat de l’Intelligence artificielle ci après est brute de décoffrage sans aucune modification. Elle a comme principal but de documenter rapidement ce programme AutoLISP qui nous est soumis, et comme but accessoire d’évaluer l’intérêt de l’assistant AutoCAD AI Expert sur ce cas particulier. La version corrigée donnée par l’IA ci-après n’a pas été testée.

Voici une analyse détaillée du programme, suivie de recommandations techniques pour le fiabiliser et l’optimiser pour AutoCAD 2026.

1. Analyse fonctionnelle (Ce que fait le programme)

Ce programme a pour but de synchroniser les unités du dessin de manière interactive.

Mesure : Il demande à l’utilisateur de mesurer une distance connue (via GETDIST).
Interface (DCL) : Il génère « à la volée » une boîte de dialogue affichant la valeur mesurée et une liste déroulante d’unités.
Configuration : Une fois l’unité choisie, il met à jour les variables système critiques :

INSUNITS : Unité d’insertion des blocs.
MEASUREMENT / MEASUREINIT : Choix entre les fichiers de paramètres Impériaux (0) ou Métriques (1).
PSLTSCALE et UCSFOLLOW : Variables d’affichage et de mise en page.

2. Problèmes identifiés (Bugs potentiels)

En l’état, le programme contient des erreurs qui empêcheront son exécution correcte :

Fonctions manquantes :
La fonction (JMG:Get-Unit) est appelée dans JMG:Put-MeasureSystem mais n’est pas définie dans le code.
Le callback DCL (PROC:DCL-ActionPopup_List) est appelé lors d’un clic dans la liste, mais la fonction n’existe pas. La variable PP_lastSel ne sera donc jamais mise à jour.
Variables globales non protégées : Beaucoup de variables (units, dcl-file, dcl, etc.) ne sont pas déclarées localement dans les parenthèses de defun. Cela peut créer des conflits avec d’autres routines.
Chemin du fichier DCL : L’utilisation de (getenv "TEMP") est correcte, mais il est préférable d’utiliser (vl-filename-mktemp) pour éviter les conflits de fichiers si plusieurs sessions sont ouvertes.

3. Suggestions d’améliorations

Localisation des variables : Ajouter toutes les variables temporaires dans l’en-tête des fonctions.
Correction du Callback : Créer la fonction qui récupère la valeur sélectionnée dans la liste DCL.
Logique de mesure : Actuellement, la mesure ne sert qu’à l’affichage. Il serait intéressant que le programme suggère l’unité la plus probable en fonction de la valeur mesurée.
Gestion de MEASUREMENT : La variable MEASUREMENT n’accepte que 0 (pouces) ou 1 (métrique). Votre liste d’unités devrait renvoyer 0 ou 1 selon l’unité choisie, et non l’index de la liste.

4. Version corrigée et optimisée

Voici une version révisée intégrant les corrections de bugs et les meilleures pratiques :

;;; Correction du callback manquant
(defun PROC:DCL-ActionPopup_List ()
  (setq PP_lastSel (get_tile "list_popuped"))
)

(defun JMG:INSUNITS ()
  ;; Format : (Valeur_MEASUREMENT Nom Abréviation Facteur_Mètre)
  (list (list 1 "Inconnu" "no" 1.0)
        (list 0 "Pouce/inch" "in" 39.37)
        (list 0 "Pied/ft" "ft" 3.2808)
        (list 1 "Millimètre" "mm" 1000.0)
        (list 1 "Centimètre" "cm" 100.0)
        (list 1 "Mètre" "m" 1.0)
        (list 1 "Décimètre" "dm" 10.0)
  )
)

(defun PROC:Get-DCL-Unit-List (/ result index)
  (setq index 0 result '())
  (foreach unit (JMG:INSUNITS)
    (setq result (append result (list (list index (strcat (cadr unit) " (" (caddr unit) ")")))))
    (setq index (1+ index))
  )
  result
)

(defun JMG:Show-Dcl-Unit-Chooser (dim-mesuree-str / dcl-file f dcl ret units sel)
  (setq units (PROC:Get-DCL-Unit-List))
  (setq dcl-file (vl-filename-mktemp "jmg_unit.dcl"))
  
  (setq f (open dcl-file "w"))
  (write-line "unit_dialog : dialog { label = \"Configuration des unités\";" f)
  (write-line (strcat ": text { label = \"Valeur mesurée : " dim-mesuree-str "\"; }") f)
  (write-line ": popup_list { label = \"Unité réelle du plan\"; key = \"list_popuped\"; width = 30; action = \"(PROC:DCL-ActionPopup_List)\"; }" f)
  (write-line "ok_cancel; }" f)
  (close f)

  (setq dcl (load_dialog dcl-file))
  (if (new_dialog "unit_dialog" dcl)
    (progn
      (start_list "list_popuped")
      (foreach u units (add_list (cadr u)))
      (end_list)
      ;; Valeur par défaut basée sur INSUNITS actuel
      (set_tile "list_popuped" (itoa (getvar "INSUNITS")))
      (setq PP_lastSel (itoa (getvar "INSUNITS")))
      (setq ret (start_dialog))
      (unload_dialog dcl)
      (vl-file-delete dcl-file)
      (if (= ret 1) (nth (atoi PP_lastSel) (JMG:INSUNITS)) nil)
    )
  )
)

(defun C:LT-UNITES (/ unit-data)
  (vl-load-com)
  (setq dist (getdist "\nMesurez une distance connue (ex: largeur porte ou épaisseur mur) : "))
  (if (and dist (setq unit-data (JMG:Show-Dcl-Unit-Chooser (rtos dist 2 2))))
    (progn
      ;; On récupère l'index de l'unité dans la liste globale pour INSUNITS
      ;; Note : Dans un cas réel, il faudrait mapper l'index de votre liste 
      ;; vers les codes officiels AutoCAD de la variable INSUNITS.
      (setvar "INSUNITS" (vl-position unit-data (JMG:INSUNITS)))
      (setvar "MEASUREMENT" (car unit-data))
      (setvar "MEASUREINIT" (car unit-data))
      (setvar "PSLTSCALE" 0)
      (setvar "UCSFOLLOW" 0)
      (princ (strcat "\nConfiguration terminée : " (cadr unit-data)))
    )
    (princ "\nOpération annulée.")
  )
  (princ)
)

Points clés de la correction :

vl-filename-mktemp : Crée un fichier DCL unique et sécurisé.
vl-file-delete : Nettoie le fichier temporaire après usage pour ne pas encombrer le disque.
PP_lastSel : Maintenant correctement mis à jour par la fonction de callback.
vl-position : Utilisé pour retrouver l’index correct à appliquer à INSUNITS.

[!Tip]Question connexe
Je vous avais demandé il y a quelques jours votre sentiment par le biais de sondages à propos de l’arrivée imminente de la nouvelle version d’AutoCAD, AutoCAD 2027, qu’est-ce qui vous intéresserait le plus en matière d’IA sur la programmation LISP. Voilà un exemple de ce que l’IA peut faire, vérifier et suggérer des améliorations de vos programmes LISP