(defun c:ECLATE_PI ()
 (vl-load-com) ; Charge la bibliothèque COM
 (setvar "CMDECHO" 0) ; Désactive l'écho des commandes
  
  ; Chargement du dialogue
  (setq dcl_id (load_dialog "PI.DCL"))
  (if (not (new_dialog "DialPI" dcl_id)) (exit))
  
  ; Valeurs par défaut
  (setq lst '("Te à 3 emboitements"
            "Te à deux emboitements (Partie haute en RBM)"
            "Te à deux emboitements (Partie haute bride à emboitement)"
            "Te à deux emboitements (Partie haute emboitement droit)"
            "Te (emboitement haut, fin au deux coté)"
            "Te (emboitement haut, rbm gauche, emboitement droite)"
            "Te (emboitement haut, fin gauche, emboitement droite)"
            "Te (emboitement haut,rbm gauche, emboitement droite)"
            "Te (emboitement haut, bride à emboitement gauche .rbm droite)"
            "Te (emboitement haut, bride à emboitement gauche, emboitement droite)"
            "Te (emboitement haut, emboitement gauche .rbm droite)"
            "Te (emboitement haut, emboitement gauche, emboitement droite)"
            "Te (brides à emboitement haut, rbm au deux coté)"
            "Te (brides à emboitement haut, rbm gauche, emboitement droite)"
            "Te (brides à emboitement haut, emboitement gauche, brides à emboitement droite)"
            "Te (brides à emboitement haut, rbm gauche, brides à emboitement droite)"
            "Te (brides à emboitement haut, emboitement gauche .rbm droite)"
            "Te (brides à emboitement haut, emboitement gauche, emboitement droite)"
            "Te (brides à emboitement haut, brides à emboitement gauche, brides à emboitement droite)"
            "Te (rbm haut, fin gauche, emboitement droite)"
            "Te (rbm haut, emboitement gauche .rbm droite)"
            "Te (rbm haut, emboitement gauche emboitement droite)"
            "Te (rbm haut, brides à emboitement gauche .rbm droite)"
            "Te (rbm haut, brides à emboitement gauche emboitement droite)"
            "Te (rbm haut,brides à emboitement gauche, brides à droite)"))
  (setq nom "Te à 3 emboitements")
  
  ; Initialiser la liste déroulante
  (start_list "ECLATE_PI_typekey")
  (mapcar 'add_list lst)
  (end_list)
  
  ; Réponse du dialogue
  (set_tile "ECLATE_PI_typekey" "1")
  (action_tile "ECLATE_PI_typekey" "(setq nom (nth (atoi $value) lst))")
  (action_tile "accept" "(setq return (list nom)) (done_dialog)")
  (start_dialog)
  (unload_dialog dcl_id)
  
  ; Récupérer les informations retournées par le dialogue
  (setq nom (car return))  ;; Nom du matériau sélectionné
  
(setq pt1 (getpoint "\nChoisir le positionnement du point haut gauche  du bloc :"))
(command "-INSERER" "ECLATE_PI 1" pt1 1 "" 0 ""))