(defun c:test-construction-courbe ()
    (setq chemin-bloc "C:\\Temp\\test-bloc.dwg" 
          point-insertion '(0.0 0.0)            
          echelle 1.0                          
          rotation 0.0)                        

    ;; Vérification de l'existence du fichier
    (if (findfile chemin-bloc)
      (progn
        (princ (strcat "Insertion du fichier : " chemin-bloc "\n"))
        ;; Insertion du bloc
        (command "_-INSERT" chemin-bloc point-insertion echelle echelle rotation)
        (command "_.ZOOM" "ET") ; Zoom étendu pour voir le bloc inséré
        (princ "Insertion terminée.\n"))
      (princ (strcat "Erreur : Fichier introuvable -> " chemin-bloc "\n"))
        )
    )