# Patrick Dewevre 🖤

**Category:** [AutoLISP](https://dessein-tech.com/c/developpement-programmation-autolisp-lisp-visuallisp-dao-cao/31)
**Created:** 2019-06-25 03:00 UTC
**Views:** 571
**Replies:** 1
**URL:** https://dessein-tech.com/t/patrick-dewevre/23

---

## Post #1 by @Patrick

[date=2019-06-01 timezone="Europe/Paris"]

Depuis quelques mois, ceux d’entre nous qui connaissaient Patrick_35 s’étaient étonnés de son absence sur les forums, et en particulier sur CADxp où il avait l’habitude de nous faire profiter de ses LISP et d’aider la communauté.

Patrick_35, de son vrai nom Patrick Dewevre, nous a quitté en mars 2019 (avis de décès le 8 mars 2019) après une terrible maladie de l’estomac, à l’âge de 53 ans.

Je ne l’ai pas connu, comme sans doute beaucoup d’entre nous qui ne le connaissaient que par son pseudo. Les LISP de Patrick_35, ça voulait dire quelque chose. Je lui avais proposé de les héberger sur ce blog et vous pourrez encore les y trouver.

Son dernier message sur les forums Autodesk date de janvier 2019, et sa femme Annie que j’ai eu au téléphone me disait qu’à Noël il était encore relativement bien. Avec ce type de maladie, l’aggravation peut être subite, c’est ce qui s’est passé.

Patrick était un de nos 29 Expert Elites, et comme c’est bien souvent le cas des personnes toutes entières dédiées à aider leur prochain sans rien attendre en retour, Patrick ne mettait pas en avant ses efforts bénévoles, au point que, et je me permets de le dire ici car je trouve cela très touchant, sa femme ne savait rien de son dévouement à la communauté et m’a remercié de lui avoir appris car cela dit-elle était conforme à ce qu’il était et l’a rendue d’autant plus fière de lui.

S’il est vrai que nous ne sommes pas grand-chose sur cette Terre, Patrick nous aura donné beaucoup et à tellement d’entre nous. Donné mais aussi laissé, et je verrais avec Gilles comment faire en sorte que le travail de Patrick non seulement ne soit pas perdu, mais continue à profiter à la communauté et l’inspire.

C’est ce qu’il aurait souhaité.

---

## Post #2 by @Patrick

Les routines Lisp de Patrick_35 peuvent être trouvées ici:
https://forums.autodesk.com/t5/autocad-tous-produits-francais/lisp-les-lisp-de-patrick-35/m-p/8884693#M60276


| Code | Description |
|------|-------------|
| AST | Afficher le dessin selon le style de tracé. |
| CAT | Recopier les valeurs d’attributs d’un bloc vers un/des autres bloc(s), même si on n’a pas le même nombre d’attributs entre les blocs. |
| CHAT | Créer un champ dynamique à un attribut pour lui indiquer la hauteur Z de l’objet. |
| COUP | Couper des intersections de lignes par une distance donnée. |
| CPL | Importer des calques depuis un dessin Autocad pas forcement ouvert. |
| CPS | Importer des styles de côtes depuis un dessin Autocad pas forcement ouvert. |
| CPSCU | Importer des scu depuis un dessin Autocad pas forcement ouvert. |
| DEF | Définir comme paramètres par défaut selon les caractéristiques d’un objet sélectionné (calque, couleur, épaisseur, etc…). |
| DUC | Mettre tous objets de tous les dessins d’un répertoire complet en couleur ducalque. |
| EPO | Geler des calques apparents dans les fenêtres de présentations et plus en espace objet. |
| EXL v1.11 | Exporter les présentations d’un dessin. L’idée est de créer un nouveau dwg par onglet mais en ne conservant que ce qui est affiché dans la présentation. Le dessin exporté se nomme en reprenant le nom du dessin actuel et en y ajoutant le nom de l’onglet. Fonctionne avec une seule fenêtre par présentations. |
| EXL V3.00 | Exporter les présentations d’un dessin. L’idée est de créer un nouveau dwg par onglet mais en ne conservant que ce qui est affiché dans la présentation. Le dessin exporté se nomme en reprenant le nom du dessin actuel et en y ajoutant le nom de l’onglet. Fonctionne avec plusieurs fenêtres par présentations. Nécessite d’utiliser GEXL (fournit avec EXL) pour geler les calques dans les fenêtres des présentations exportées. |
| EXP | Décomposer complètement une sélection, même les objets imbriqués. |
| FOG | Changer facilement et rapidement de présentation. Quand on a plusieurs présentations, rien de plus fastidieux que de faire un clic sur le bouton de défilement et plusieurs fois de suite tout en faisant une petite pause afin que l’onglet suivant s’affiche. On choisit directement sa présentation. |
| GEF | Gérer les différents calques dans les différentes fenêtres des présentations. Par exemple, si on a ajouté un calque dans notre dessin et que l’on ne souhaite pas le voir apparaître dans plusieurs présentations sur plusieurs fenêtres, GEF le gèle facilement. |
| GRF | Importer plusieurs folios (fichiers) depuis un répertoire dans un dessin unique. Ces folios seront insérés dans les présentations. |
| IAT | Incrémenter des attributs. Permet d’avoir une chaine de caractères avec une numérotation qui se suit. Par exemple : B008-006, B008-007,B008-008. Par exemple : 001AA, 001AB, 001AC. |
| INC | Incrémenter des textes. Un tri est possible avec les coordonnées des textes afin d’obtenir une suite logique. |
| IND | Incrémenter les indices des cartouches. |
| INSEDIT | InsEdit (gile). Redéfinir le point d'insertion des blocs. |
| IXL | Insérer des blocs dans Autocad depuis une feuille Excel. |
| JAV | Nettoyer un dessin en profondeur, des objets difficilement effaçables autrement qu’en programmation. |
| JSD | Créer un jeu de sélection de ce qui a été dupliqué. |
| LATT simplifié | Lier des attributs de manière croissante. Les attributs de mettent à jour de manière dynamiques. Par exemple, si on efface un attribut lié, alors les autres se renumérotent afin que la suite logique reste la même. |
| LATT | Lier des attributs de manière Identique, Croissante ou encore de faire une Somme. Les attributs de mettent à jour de manière dynamiques. Par exemple, si on efface un attribut lié, alors les autres se renumérotent afin que la suite logique reste la même. |
| LSTATT | Décompte des blocs, mêmes les dynamiques avec la possibilité de distinguer les blocs avec attributs (sur autant d’attributs possible). Possibilité aussi d’exporter les résultats dans un fichier texte. Ce fichier, s’il est renommé en .xls sera ouvert sans problème avec Excel. |
| LXL | Lier des Attributs, Textes, Mtexts ou des Rtexts avec Excel. Le principe est de lier à une cellule Excel une valeur. Les données peuvent être transmises depuis Autocad vers Excel, ou dans le sens inverse. On peut travailler avec plusieurs fichiers, feuilles Excel dans plusieurs dessins Autocad. |
| MAT | Propager la valeur d'un attribut. |
| MES | Mesurer en continu et avec cumul des distances directement dans le dessin. |
| MIM | En cas de changement d’imprimante réseau ou tout simplement parce que le service informatique à redéfinit ses serveurs, MIM permet de réaffecter une nouvelle imprimante pour toutes les présentations choisies tout en conservant les paramètres d’impression. |
| MPL | On configure correctement la mise en page d’une présentation. MPL permet la recopie de cette mise en page sur les présentations choisies. |
| ONG | Gérer ses présentations. Reprends tous ce qui est sous le clic droit mais d’une manière plus ergonomique. |
| OOG | Réorganiser les onglets d'une manière simple. |
| OU | Localiser facilement des blocs. Quand on a un grand dessin et qu'on arrive pas à localiser ses blocs, OU dessine un trait de 0,0 au point d'insertion du bloc, ce qui permet d'enfin le localiser. |
| OUA | La même chose que le lisp Ou, sauf qu'on peut différencier les blocs avec une valeur d'attribut. |
| PAT | Changer la valeur d'un attribut dans plusieurs fichiers. Même principe de fonctionnement que MAT. |
| RA | Faire un raccord sans joindre. |
| RB | Refait tous les blocs de la couleur dubloc et sur le calque 0. (gile) à fait un super lisp avec edit_bloc, mais ayant déjà celui-là et qu'il ne pose pas de question... |
| RBLOC | Remplacer un/des bloc(s) par un autre en conservant ou pas ses attributs, son échelle, ses propriétés dynamiques. |
| RECD | Rechercher des blocs superposés. |
| RET | Renommer des étiquettes des blocs. |
| RINS | Redéfinir le point d'insertion d'un bloc simplement. |
| RON | Renuméroter les onglets de 01 à .. |
| ROT_0 | Laisser l'angle constamment à 0 de tous les attributs. |
| ROT | Laisser l'angle de rotation constamment à 0 de certains attributs définit dans ces deux variables (setq Nom_bloc "UN_BLOC" Eti_Bloc '("ETI1" "ETI2" "ETI3")). |
| RXR | Remplacer un xref en déchargeant l'ancien et en conservant les calques qui étaient gelés auparavant. |
| RXREF | Donner un chemin relatif aux xrefs par rapport au dessin courant (s'ils sont sur le même lecteur). |
| SCRIPTOR | Lisp qui créé et lance un script ou un lisp (depuis un lisp/script source) pour traiter tous les fichiers d'un répertoire et de ses sous-répertoires. |
| STRIPMTEXT | Lisp de Steve Doman et Joe Burke. Permet d'enlever au choix, les formats d'un texte. |
| SYN | Synchroniser les attributs tout en conservant (ou pas), la valeur, position, angle et style de texte. |
| TOT | Affiche le résultat du cumul de différentes longueurs (lignes, polylignes, arc, etc…). |
| UNVERR | Déverrouiller toutes les fenêtres des présentations. |
| VERR | Verrouiller toutes les fenêtres de toutes les présentations. |

---


**Canonical:** https://dessein-tech.com/t/patrick-dewevre/23
**Original content:** https://dessein-tech.com/t/patrick-dewevre/23