De vrais ligne de repère et un Texte avec échelle automatique (XP)

[rebcao]

voici quelques MACROS afin de créer de vrais lignes de repère et des textes qui s'adaptent automatiquement à l'échelle XP de la/les fenêtre(s).

 

Avant de pouvoir les utiliser, il faut :

 

Créer un style de cote Z_REPERE, dans lequel on choisira la flèche pleine, pas de marque centrale, et dans Ajuster, choisir échelle des cotes selon présentation et ne pas cocher toujours tracer ligne de cote entre ligne d'attache....

 

Créer un style de cote Z_TEXTE_AUTO dans lequel on supprime toutes les lignes de cotes et d'attaches, et choisir un texte HORIZONTAL

 

Pourquoi Z_... ? ça ne surcharge pas ma liste, les éléments se mettent à la fin...

 

Vérifier que le calque DEFPOINTS existe dans le dessin ! Si non ! créer une cote puis l'effacer.

 

Toutes ces "bidouilles" sont à inclure définitivement dans le gabarit bien sur...!!!

 

Macro N° 1 (Ligne de Repère)

*^C^Cpickstyle;1;_-layer;n;defpoints;;cercle;\d;

$m=$(/,$(getvar,textsize),100);chprop;d;;ca;defpoints;;

modemacro;$m=$(getvar,dimstyle);_-dimstyle;r;z_repere;

_dimradius;@;\-groupe;c;*;-;d;p;;cmddia;0;cot1;txtnouv; ;d;;cmddia;1;_-dimstyle;r;$m=$(getvar,modemacro);ecrangra;ddedit;d;;

 

Macro N° 2 (Texte Automatique)

*^C^Cid;\modemacro;$m=$(getvar,dimstyle);_-dimstyle;r;z_texte_auto

;ecrangra;_dimlinear;auc;@;@1,0;auc;@;_-dimstyle;r;

$m=$(getvar,modemacro);ecrangra;cmddia;0;cot1;txtnouv;ZONE-TEXTE;d;;cmddia;1;ddedit;d;;

 

Macro N° 3 (Mettre à jour Ligne de Repère)

^C^C_-dimstyle;r;$m=$(getvar,modemacro);

ecrangra;select;\modemacro;$m=$(getvar,dimstyle);_-dimstyle;r;z_repere;

_-dimstyle;_apply;p;;_-dimstyle;r;$m=$(getvar,modemacro);ecrangra;

 

Macro N° 4 (Mettre à jour Texte AUTO)

^C^C_-dimstyle;r;$m=$(getvar,modemacro);

ecrangra;select;\modemacro;$m=$(getvar,dimstyle);_-dimstyle;r;z_texte_auto;

_-dimstyle;_apply;p;;_-dimstyle;r;$m=$(getvar,modemacro);ecrangra;

 

Les 2 types de cote un peu spéciales, sont adaptablent à l'échelle XP de la fenêtre.

 

Pas question de faire des mises à jour de cotes "BRUTAL".

 

 

Lien pour vos copier-coller :

http:// http://perso.wanadoo.fr/rebcao/CADxp/macro-repere-texte.txt

 

 

voila bon appétit,

 

Christian