Aide à la modification d'un LISP

[barbichette]

Bonjour,

Un collègue a créé un lisp (avec l'aide de l'"IA") pour dessiner les courbes de charge d'une grue.

Mais je souhaiterait améliorer ce lisp.

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXXXX  MDT219   XXXXXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

(defun c:GRUE_DIAG219 ()
  (setq choix-fleche (getstring "\nEntrez la longueur de flèche installée (ex: 30m, 35m, ...): "))
  
  ;; Définition des capacités de levage selon la longueur de flèche et le rayon de travail
  (setq capacites '(

("25" (20 20) (25 8.4))
("30" (20 10) (25 8.6) (30 7))
("35" (21 10) (25 8.5) (30 6.9) (35 5.8))
("40" (20 10) (25 8.4) (30 6.9) (35 5.8) (40 5))
("45" (20 10) (25 8.3) (30 6.8) (35 5.7) (40 4.9) (45 4.3))
("50" (20 10) (25 8.3) (30 6.7) (35 5.6) (40 4.7) (45 4) (50 3.5))
("55" (20 10) (25 7.9) (30 6.4) (35 5.4) (40 4.5) (45 3.9) (50 3.3) (55 2.95))
("60" (20 9.4) (25 7.3) (30 6) (35 4.6) (40 4.2) (45 3.6) (50 3.1) (55 2.6) (60 2.2))
("65" (20 8.88) (25 6.9) (30 5.6) (35 4.6) (40 3.9) (45 3.3) (50 2.85) (55 2.4) (60 1.95) (65 1.6))
  ))
  
  ;; Récupération des valeurs disponibles pour la flèche choisie
  (setq valeurs (cdr (assoc choix-fleche capacites)))
  
  (if valeurs
    (progn
      (foreach item valeurs
        (setq rayon (car item)
              charge (cadr item))
        ;; Dessiner un cercle pour chaque rayon de travail
	;; la partie (command "_circle" '(x x) défini le centre des cercles
        (command "_circle" '(0 0) (rtos rayon 2 2))
        ;; Ajouter un texte avec la charge au bon emplacement
	;; (list rayon x) défini la coordonnée y du texte de charge noté
    ;;    (command "_text" (list rayon 0) "1" "90" (strcat (rtos charge 2 2) "t ")))
        (command "_text" (list rayon 0) "1" "90" (strcat (rtos rayon 2 2) "m - " (rtos charge 2 2) "t")))
      (princ "\nDiagramme de levage cree avec toutes les charges affichees."))
    (princ "\nFleche non disponible."))
  (princ))

Je souhaiterai que
- Le lisp interroge et demande le lieu où les courbes de charge soient insérées
- Les courbes de charge soient crée dans un bloc

Dans un deuxième temps, ce lisp comporte les courbes de charge de plusieurs grues
(defun c:GRUE_DIAG219 ()
(defun c:GRUE_DIAG218 ()
(defun c:GRUE_DIAG178 ()

Comment faire pour que le lisp nous interroge sur la grue à installer

Quelles sont les modification à apporter au lisp.

D'avance, je vous remercie