accéder à l\'attribut !

[doua]

salut ,

 

pourriez vous me dicter, la syntaxe en vba et aussi en lsp qui peut m'ecrire une valeur "XXX"

Dans l'etiquette de mon attribut !

 

nb: cette syntaxe je veux l'introduire dans mon programme pour qu'il me l'ecrit automatiquement dans mon bloc à attribut !

 

merci de votre aide !

 

 

 

 

[didier]

Bonjour,

 

Je vais commencer par le Lisp,

c'est assez facile, en effet si c'est à l'insertion que tu renseignes l'attribut,

tu n'as qu'à respecter la ligne de commande, c'est à dire ,

donner

le nom du bloc

le point d'insertion

les échelles

et les attributs...

exemple :

(setq

bloc_ins "MonBloc"

pins '( 0 0 0)

monattribut "tata"

)

(command "_-insert" bloc_ins pins "1" "1" "0" monattribut)

il faut faire attention qu'en cas de valeur numérique dans les attributs il est souvent nécessaire de les transformer en chzînes de caractère (rtos ou itoa)

 

amicalement

 

[didier]

coucou

 

en VBA, c'est une autre façon de faire,

il va falloir insérer le bloc et auusitôt après renseigner le ou les attributs,

comme ceci :

 

Dim blockrefObj As AcadBlockReference

Dim strAttributes As String

Dim varAttributes As Variant

 

Set blockrefObj = ThisDrawing.ModelSpace.InsertBlock(PtInsertion, "NomDuBloc", 1#, 1#, 1#, 0)

 

varAttributes = blockrefObj.GetAttributes

 

varAttributes(0).TextString = strAttributes

 

blockrefObj.Update

 

amicalement

[didier]

re coucou

 

si tu veux EDITER les attributs en cliquant sur un bloc déjà inséré,

c'est ENTMOD qu'il va falloir utiliser,

mais je laisse la main aux autres, car en perpetuel déplacement je n'ai pas accès à ma machine,

et je ne saurai te guider dans ENTMOD de mémoire.

 

un salut amical à Toutes et à Tous,

je suis sur Montpellier et la météo est bien différente de l'Est de la France qui était ma dernière destination.

 

amicalement

 

[winfield]

Bonjour à vous deux,

....heureux de te relire cher Didier

[esbe]

Hello Didier :)

[doua]

salut didier,

 

je te remercie pour ton aide toujours précieuse :)

 

je vais tester ça ! et merci encors didier.

 

grand bonjour à Winfield & esbe !;)

 

 

amicalement ;)