Cet article répond à une question posée sur le forum Autodesk France. Il s’agit d’une problématique récurrente : comment créer des présentations rapidement et efficacement.

Vous pouvez retrouver la discussion originale ici :
https://forums.autodesk.com/t5/autocad-tous-produits-francais/creation-de-plusieurs-presentation/td-p/13271439

;;
;; Script créé par Didier LOURDELLE
;; Création Le 17/10/2005
;; Modification le 30/05/2007
;;
;; Instructions :
;; 1. Ouvrez le Bloc-notes (ou tout autre éditeur de texte, comme Notepad++).
;; 2. Collez le code dans le fichier.
;; 3. Enregistrez-le avec l'extension .scr, par exemple : PresentationAuto.scr
;; 4. Glissez-déposez le fichier dans AutoCAD ou utilisez la commande SCRIPT.
;;
;; Lecture des vues
;;
(if (not strVue) (setq strVue (cdr (assoc 2 (tblnext "view" T)))))
;;
;; Initialise la variable contenant le nom de la présentation
;; étant copier
;;
(setq strNomPresentationExemple "PageModel")
;; __________________________________________________________________
;; _______________Ligne modifiable ci dessous________________________
;; __________________________________________________________________
;;
;; Copie de la présentation
;;
-PRESENTATION c
!strNomPresentationExemple
!strVue
;;
;; Active la nouvelle présentation
;;
ctab !strVue
;;
;; passage en espace objet
;;
_.MSPACE
;;
;; Rappel de la vue
;;
-VUE r !strVue
;;
;; passage en espace papier
;;
_.PSPACE
;; _______________________________________________________________________
;; ____________________Ligne modifiable ci dessus________________________
;; _______________________________________________________________________
;;
;; Changement de vue
;;
(setq strVue (cdr (assoc 2 (tblnext "view"))))
;;
;; Test si il y a tjs une vue relance le script si tjs une vue
;;
(if strVue (command "_rscript"))
;; fin