rotation d'attribut d'un bloc

[fiesta13310]

Bonjour,

 

J'ai un bloc dans lequel il y a un attribut.si je fais la rotation du bloc, l'attribut tourne aussi . Donc je rentre dans les propriétés de mon bloc, je sélectionne l'attribut et je lui impose une rotation à 0 de façon à ce qu'il soit toujours dans le sens de la lecture. Mais si je vais dans l'éditeur de bloc pour rajouter ou enlever des trucs, et que j'enregistre mon bloc, tous les attributs reviennent dans leur rotation d'origine. Du coup, je suis obligé de remettre l'attribut dans le sens de la lecture bloc par bloc.

 

n'y a t-il pas une variable ou un truc à changer pour plus avoir ce problème?

 

Merci d'avance

[Patrick_35]

Salut

 

(defun c:ang0(/ nombl blo doc nom sel)

 (defun nombl(bl)
   (if (vlax-property-available-p bl 'effectivename)
     (vla-get-effectivename bl)
     (vla-get-name bl)
   )
 )

 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-startundomark doc)
 (and	(setq blo (entsel))
(setq nom (nombl (vlax-ename->vla-object (car blo))))
(ssget "x" (list (cons 0 "insert") (cons 66 1) (cons 2 (strcat "`**," nom))))
   (progn
     (vlax-for blo (setq sel (vla-get-activeselectionset doc))
(and (eq (nombl blo) nom)
  (mapcar '(lambda(x)(vla-put-rotation x 0)) (vlax-invoke blo 'getattributes))
)
     )
     (vla-delete sel)
   )
 )
 (vla-endundomark doc)
 (princ)
)

 

@+

[fiesta13310]

C'est un très bon LISP, mais encore une fois, il faut que je sélectionne bloc par bloc, du coup je gagne pas plus de temps... ce LISP est trop compliqué pour moi pour que je le modifie, on pourrait le modifier pour que je puisse sélectionner plusieurs bloc en même temps? ou simplement au lieu qu'il prenne que le bloc visé, il pourrait prendre tous les blocs qui ont le même nom...c'est possible?

 

Merci

[fiesta13310]

PPPAAARRRDDDOOONNN!!! 1000 excuses, c'est exactement ce qu'il fait, j'avais pas vu , il est tout simplement parfait ce LISP, c'est exactelent ce que je recherchais... encore désolé, merci infiniment! :)

 

Très bonne journée Patrick

[fiesta13310]

Bonjour,

 

Encore une petite question : Comment on fait pour rajouter un attribut dans un bloc déjà créé?

 

Merci

[Steven]

Bonjour Fiesta,

 

Pour ajouter un ou des attributs dans un bloc avec existant, sélectionne le bloc, fais un clic droite et dans le menu contextuel, tu as sur Editeur de bloc.

Tu ajoutes ensuite ton ou tes étiquettes d'attributs, tu fermes l'éditeur de bloc en enregistrant les modifications apportéesx sur le bloc puis dans la ligne de commande, tu tapes BATTMAN (Block ATTribute MANager), rien à voir avec Bruce Wayne ;), pour synchroniser les attributs de ton bloc.

Ton bloc se mettra à jour. Toutefois, les attributs de ton bloc, vont se remettre dans leurs position d'origine, il va donc falloir leurs remettre un petit coup de ang0.

[Patrick_35]

Salut

 

rien à voir avec Bruce Wayne

Tu as juste un T de trop ;)

 

Ton bloc se mettra à jour. Toutefois, les attributs de ton bloc, vont se remettre dans leurs position d'origine

Voir même la valeur des attributs. Pour y remedier, tu as SYN

 

@+

[fiesta13310]

ok, donc j'ai réussi à rajouter un attribut, mais par contre maintenant tout les autres attributs se sont un peu éparpillé à droite à gauche... il ne sont pas restés là où je les avais placé... pk?

[Steven]

Salut

 

 

Tu as juste un T de trop ;)

 

 

Voir même la valeur des attributs. Pour y remedier, tu as SYN

 

@+

 

J'avais un lisp du genre de celui-ci, il y a quelques années, je crois même que c'est toi qui l'avait fais, peut-être même que c'était celui-ci, mais je ne sais plus. J'en avais fais la demande sur Cadxp entre 2006 et 2007, il me semble. Bref, je l'ai paumé avec le temps.

Celui-là, je le conserve bien au chaud ;)

 

 

 

 

ok, donc j'ai réussi à rajouter un attribut, mais par contre maintenant tout les autres attributs se sont un peu éparpillé à droite à gauche... il ne sont pas restés là où je les avais placé... pk?

 

Justement, as-tu utilisé le lisp SYN, que nous a mis Patrick_35, à disposition, pour éviter ce genre de galère?

Ce lisp sert à synchroniser les attributs de manière à conserver leurs positions si ceux-ci ont été déplacés manuellement et à conserver leur angle.

[fiesta13310]

Non parce que j'ai pas reçu toute la conversation en temps et en heure... :) maintenant oui, je vois que j'ai loupé une étape, je vais essayer et si ca marche pas je reviendrais vers vous! :)

 

Merci

[fiesta13310]

Bon ben ça n'a pas marché...

 

Vous trouverez ci-joint le fichier DWG pour voir le résultat de mon expérience... :)

Dessin1.zip

[Patrick_35]

Bon ben ça n'a pas marché...

 

Vous trouverez ci-joint le fichier DWG pour voir le résultat de mon expérience... :)

Ah oui, c'est des attributs sur des blocs dynamiques.

Le lisp ne fonctionne pas sur ce type de bloc actuellement

 

Je regarde ça dès que j'ai un moment.

 

@+

[Patrick_35]

Salut

 

Le lisp modifié

 

@+

[lecrabe]

Hello

 

Tiens, Tiens, P35 a joue avec "effectivename" !

 

Bye, lecrabe

[Patrick_35]

Hello

 

Tiens, Tiens, P35 a joue avec "effectivename" !

 

Bye, lecrabe

Salut

 

Et toi qui te dis une buse en lisp ;)

Tu me semble "prêt" :D

 

@+