[AutoCad] Macro plan de repérage

guillaume Ven 27 Juin 2008, 19:36

Bonjour tout le monde,

Alors ce projet est né de la rébarbative phase de création de nos plans de repérage (polyligne pour délimiter le local, nom de la pièce dans un texte et surface).

Alors j'ai développé une macro qui fait presque cela tout seul.

En gros cela fait :

- Création d'un calque "repérage" de couleur magenta,
- Réglage de la hauteur du texte en fonction des textes existant sur le plan,
- Saisie des points de la polyligne (la polyligne est fermée automatiquement),
- Saisie du point de base du texte,
- Saisie du code de la pièce,
- Le code de la pièce est inséré dans un MText avec la surface du local sous forme de champs (si modif de la polyligne alors tapez regen et le champs surface se met à jour)

Vous retrouverez cette macro ici : http://pausebroderie.fr/taz_genie_climatique/plan_reperage.dvb

Une amélioration devrait être apportée sur la méthode de saisie de la polyligne qui est pour l'instant un peu lourde.

Certains paramètres peuvent être personnalisés comme la couleur du calque, le nom... pour cela aller dans le code VBA.

Je diffuse ce code sous licence libre. Toute modifs autorisées à conditions que le code reste libre.

N'hésitez pas à me faire part de vos impressions, retour d'expérience et améliorations possibles...