Archives de l’auteur : Didier Lourdelle

À propos Didier Lourdelle

🚀 Consultant | Formateur | Développeur AutoCAD 📌 Spécialiste des schémas 2D (DWG) issus de DATA 3D Avec une solide expertise dans la CAO/DAO, je suis spécialisé dans l’automatisation et l’optimisation des workflows AutoCAD. Mon savoir-faire couvre : ✅ Schémas 2D à partir de modèles 3D – Valorisation des DATA pour une production plus rapide et fiable ✅ Programmation AutoLISP & .NET – Automatisations sur AutoCAD & AutoCAD LT ✅ Formation et accompagnement – Montée en compétences des équipes sur AutoCAD et AutoCAD Electrical ✅ Développement sur mesure – Création d’outils spécifiques pour les bureaux d’études et l’industrie 🎯 Mon objectif ? Accélérer et fiabiliser la conception technique grâce à des solutions adaptées aux besoins de mes clients. 📩 Intéressé par une collaboration ? Discutons-en !

Configuration de AutoCAD – astuce N°01

Laisser un commentaire

Saviez-vous que vous pouvez rapidement configurer certains paramètres et éviter de nombreux clics, même sur une version AutoCAD LT à partir de la version 2024 ?

Les langages de programmation AutoLISP et Visual LISP, malgré leurs limitations sur la version AutoCAD LT, permettent d’obtenir des gains rapides dans la configuration et l’adaptation du logiciel.

Voici un exemple de code AutoLISP simple pour modifier rapidement certaines variables AutoCAD qui sont sauvegardées dans la base de registre :

(setvar "proxynotice" 0)
;; Affiche un avis quand un objet externe est créé.
;; Par défaut 1 
;; Enregistré dans:	Registre
;; 1 = Les avertissements concernant les objets externes sont affichés.
;; 0 = Aucun avertissement concernant les objets externes n'est affiché.
La variable proxynotice à 0 désactive l'affichage de cette boîte de dialogue.
La variable proxynotice à 0 désactive l’affichage de cette boîte de dialogue.
Continuer la lecture →
Autolisp Notepad visual lisp visual code

Votre premier programme Autolisp avec AutoCAD LT

Laisser un commentaire

Instructions pour créer un fichier AutoLISP avec le Bloc-notes :

1. Ouvrir le Bloc-notes :

Lancez le Bloc-notes sur votre ordinateur. Vous pouvez le trouver dans le menu Démarrer sous “Accessoires” ou en recherchant “Bloc-notes”.

2. Écrire le code AutoLISP pour AutoCAD LT :

Copiez le code AutoLISP que vous souhaitez utiliser et collez-le dans le Bloc-notes. Assurez-vous que chaque ligne de code commence par un point-virgule (;;) pour les commentaires ou par une parenthèse ouvrante (..) et fermante pour les instructions.

3. Adapter le code :

Sur ce site, vous trouverez des lignes de code que vous pouvez adapter à vos besoins. Il vous suffit de copier et coller le code dans votre fichier.

Continuer la lecture →

Création automatique d’une présentation

Laisser un commentaire

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