Un Gain de Temps Inestimable

Dans le monde du dessin technique, chaque minute compte. Que vous soyez concepteur, ingénieur ou dessinateur-projeteur, l’optimisation des tâches répétitives dans AutoCAD LT peut faire toute la différence en termes de productivité.

Dans cet article, je vous présente une solution efficace pour automatiser la création de présentations à partir de vues nommées dans AutoCAD LT. Grâce à un script pensé pour s’adapter à différentes versions du logiciel, vous pourrez générer vos mises en page en un clic, sans perte de temps.

Découvrez comment ce processus peut transformer votre façon de travailler et vous permettre de vous concentrer sur l’essentiel : la conception.

🔍 Au programme :
✅ Explication du besoin et des enjeux
✅ Présentation du script et de son fonctionnement
✅ Avantages et applications concrètes

Prêt à booster votre efficacité sur AutoCAD ? Suivez le guide ! 🚀

Mode d’emploi (nouvelle version)

Avant d’exécuter ce script, assurez-vous d’avoir créé des vues nommées dans votre dessin. Le nom de la présentation générée correspondra au nom de votre vue nommée.

Pré-requis :

✔ Avoir une ou plusieurs vues nommées définies dans le dessin.
✔ Disposer d’au moins une présentation existante avec un nom spécifique.

Exemples de noms valides :
✅ EDWGPROS
✅ EDWGPROS_A3_PAYSAGE_PDF
✅ EDWGPROS_A4_PAYSAGE_PDF

Étapes :

1️⃣ Activez le modèle de présentation qui vous convient ou celui que vous avez créé.
2️⃣ Lancez le script en le glissant-déposant dans votre dessin, comme illustré dans la vidéo ci-dessous.

;;; $Author: DidierL $
;;; $Date: 11/02/25 17:11 $
;;; $Revision: 3 $
;;;
;;; Origine :
;;; - Ce projet s'inspire d'une idée que j'avais mise en ligne en 2005, 
;;;   enrichie et adaptée pour répondre aux besoins actuels.
;;;
;;; Pré-requis :
;;; - AutoCAD ou AutoCAD LT installé
;;;
;;; Compatibilité :
;;; - Les scripts sont disponibles sur toutes les versions d'AutoCAD.
;;; - Le langage de programmation AutoLISP est supporté :
;;;   * Sur AutoCAD LT, depuis la version 2024.
;;;   * Sur AutoCAD, dès les premières versions du logiciel.
;;; ------------------------------------------------------------
;;; Instructions :
;;; 1. Assurez-vous d'utiliser une version d'AutoCAD compatible. 
;;; 2. Ouvrez le Bloc-notes (ou tout autre éditeur de texte, comme Notepad++).
;;; 3. Collez le code dans le fichier.
;;; 4. Enregistrez-le avec l'extension .scr, par exemple : PresentationAuto.scr.
;;; 5. Glissez-déposez le fichier dans AutoCAD ou utilisez la commande SCRIPT pour l'exécuter.
;;;
;;;
;;; Création rapide d'une fonction AutoLISP
(defun starts-with-edwgpros (str) (if (and str (>= (strlen str) 8) (equal (substr (strcase str t) 1 8) "edwgpros")) T nil))
;;;
;;; Lecture de la première vue disponible dans le dessin
;;;
(if (not strVue) (setq strVue (cdr (assoc 2 (tblnext "view" T)))))
;;;
;;; Initialise la variable contenant le nom de la présentation
;;; qui est en train d'être copiée.
;;; Lecture de la présentation active comme modèle de présentation.
;;;
(if (not strNomPresentationExemple) (setq strNomPresentationExemple (getvar "ctab")))
;;; Test si la présentation commence par "EDWGPROS"
(if (= (starts-with-edwgpros strNomPresentationExemple) nil) (setq strNomPresentationExemple nil))
(if (not strNomPresentationExemple) (alert "\nMerci d'activer une présentation commençant par EDWGPROS"))
;;;
;;; Copie de la présentation
;;;
(if strNomPresentationExemple (command "_layout" "_c" strNomPresentationExemple strVue))
;;;
;;; Active la nouvelle présentation
;;;
(if strNomPresentationExemple (setvar "ctab" strVue))
;;;
;;; Passage en espace objet
;;;
(if strNomPresentationExemple (command "_.MSPACE"))
;;;
;;; Rappel de la vue
;;;
(if strNomPresentationExemple (command "-VUE" "r" strVue))
(if strNomPresentationExemple (command "_zoom" "0.99x"))
;;;
;;; Passage en espace papier
;;;
(if strNomPresentationExemple (command "_.PSPACE"))
;;;
;;; Changement de vue
;;;
(if strNomPresentationExemple (setq strVue (cdr (assoc 2 (tblnext "view")))))
;;;
;;; Test s'il y a toujours une vue, relance le script s'il y a encore une vue
;;;
(if (and strVue strNomPresentationExemple) (command "rscript"))
;;; fin