Cartouche Semi-Automatique

[rebcao]

Voici une Macro destiné à ceux qui souhaitent remplir automatiquement leur cartouche, et tout particulièrement les LTésiens :

 

1. Le cartouche ou bloc doit contenir les attributs

DATE et NOMFICHIER

 

2. Ces attributs doivent avoir une valeur par défaut (exemple un point . )

sinon AutoCAD ne trouve pas l'étiquette.

 

^C^C_.pspace;-attedit;o;*;NOMFICHIER;*;c;

$m=$(getvar,extmin);$m=$(getvar,extmax);;

v;r;$m=$(getvar,dwgname);;

-attedit;o;*;DATE;*;c;

$m=$(getvar,extmin);$m=$(getvar,extmax);;

v;r;$m=$(edtime,$(getvar,date),DD/MO/YYYY);;_.mspace;

 

pour copier cette macro utiliser le lien ci-dessous, ce qui évite les retours chariots de la Macro ci-dessus.

 

http://perso.wanadoo.fr/rebcao/CADxp/cartouche_auto.txt

 

 

Christian

 

[Edité le 18/10/2004 par rebcao]

[dubouchet]

Bonjour à tous,

 

j'aimerais ajouter dans le cartouche le chemin du fichier et le nom de l'onglet de présentation.

 

Es-ce possible ? et si oui avez-vous la formule ?

 

Merci d'avance pour vos précieux conseils.

 

David Zanoni

[dubouchet]

oups j'ai oublié aussi le nom d'utilisateur en fonction du login

 

Merci

[dnalor]

pour le chemin du fichier = variable concernée DCTCUST -> nouvel attribut à créer= CHEMIN

il faut ajouter:

-attedit;o;*;CHEMIN;*;c;-

$m=$(getvar,extmin);$m=$(getvar,extmax);;-

v;r;$m=$(getvar,DCTCUST);

 

///NOTE LE - à la fin de la ligne définit l'emplacement oú la "macro doit être appondue"////

 

pour l'onglet = variable concernée CTAB -> nouvel attribut à créer = ONGLET

-attedit;o;*;ONGLET;*;c;

$m=$(getvar,extmin);$m=$(getvar,extmax);;

v;r;$m=$(getvar,CTAB);

 

pour l'initiale en fonction du login je ne suis pas sûr car je n'ai pas de login sur mon poste

si le login est "fonction" du nom d'utilisateur du programme alors...

 

......= variable concernée USERNAME -> nouvel attribut à créer= INIT

il faut ajouter:

-attedit;o;*;INIT;*;c;

$m=$(getvar,extmin);$m=$(getvar,extmax);;

v;r;$m=$(getvar,CTAB);

 

on peut aussi imaginer de mettre l'initiale dansla macro per exemple dans mon cas "RP"

-attedit;o;*;INIT;*;c;

$m=$(getvar,extmin);$m=$(getvar,extmax);;v;r;RP;

 

de cette façon on peut utiliser toutes les variables suivantes:

sur ligne de commande Modifvar;?;voir liste.....

 

on pourrait imaginer entrer les formats du plan si l'on place les limites sur le cadre

par exemple:

 

= variables concernées LIMMAX,LIMMIN -> nouvel attribut à créer = FORMAT

 

-attedit;o;*;FORMAT;*;c;-

$m=$(getvar,extmin);$m=$(getvar,extmax);;-

v;r;$M=$(-,$(fix,$(index,0,$(getvar,LIMMAX) )),$(fix,$(index,0,$(getvar,LIMMIN) )))-

""X""$M=$(-,$(fix,$(index,1,$(getvar,LIMMAX) )),$(fix,$(index,1,$(getvar,LIMMIN))));

 

ce qui donnerait le format en unités de dessin

 

si l'on veut tenir compte d'une échelle qui peut être definie par l'échelle du dessin:

commande LTSCALE;50;

 

pour un dessin en centimetres et une echelle de sortie traceur 1:50

cela donnerait :

 

= variables concernées LIMMAX,LIMMIN,LTSACLE -> nouvel attribut à créer = FORMAT

 

-attedit;o;*;FORMAT;*;c;-

$m=$(getvar,extmin);$m=$(getvar,extmax);;-

v;r;$M=$(/,$(-,$(fix,$(index,0,$(getvar,LIMMAX))),$(fix,$(index,0,$(getvar,LIMMIN)))),$(getvar,LTSCALE))-

""X""$(/,$(-,$(fix,$(index,1,$(getvar,LIMMAX))),$(fix,$(index,1,$(getvar,LIMMIN)))),$(getvar,LTSCALE));

 

explication:

dessinez un rectangle de 1050,1485;

//mettez les limites dessus//

commande LIMITES;saisir extremités;

//definissez le facteur d'échelle//

commande LTSCALE;50;

le résultat sera FORMAT = 21 x 29.5

[rebcao]

Un détail !

 

Le principe de l'attribut CHEMIN ne peut pas marcher !!! Car toutes les variables qui gèrent des chemins et qui sont utilisées dans des MACROS génèrent des PAUSES à chaque \ (anti slash ) :( c'est embêtant !!!!

 

Christian

[mdsv31]

Avec les champs automatiques c'est possibles.

 

@+

mdsv31

 

PS: A partir de la 2005 si je ne me trompe pas

[rebcao]

OUI les champs existent depuis la 2005...

 

Mais mon sujet s'adressant surtout aux LTsiens ! Pas de CHAMPS dans LT, c'est pourquoi, il n'y a qu'une MACRO qui permette de modifier certains ATTRIBUTS.

 

Avec la bannière de tracé aujourd'hui ça fait un peu double emploi ;) Je ne met plus le NOM du fichier dans un cartouche.

 

Christian

 

[Edité le 21/5/2007 par rebcao]

[kkwet]

Bonjour tout le monde!

Est-il possible de récupérer quelques lettres du nom du fichier dwg et de les insérer dans un attribut?

Exemple:

le nom de mon fichier est sous la forme AAAAA-BBBBB-CCC-DDDDD.dwg

je voudrais récupérer la partie BBBBB et m'en servir pour changer la valeur d'un attribut de mon cartouche (l'attribut se nomme NUMERO).

 

Autre question tant que j'y suis: j'ai voulu ajouter des modifications d'attributs dans les commandes proposées par rebcao mais il semble que mon LT 2008 pédale dans la choucroute et ma commande ne marche plus au dela de 3 changements d'attributs...?

A po compris pourquoi parce que les commandes fonctionnent tres bien si je les fais une par une.

Help merci