kalos

question: comment recupere t'on le point d'insertion XY du bloc. sous quelle forme il est? "X,Y"? information réutilisé comme point de base de la rotation. il est clair qu 'aprés je n'aurai plus qu'à parcourir ma selection, recuperer cette coordonnée à chaque fois pour le bloc, effectuer ma rotation (rotation "X,Y" "Attribut_angle_de_rotation") Attribut_angle_de_rotation étant spécifié dans chaque bloc.

la réponse est dans l'autre sujet rotation et blocs http://www.cadxp.com/sujetXForum-28560.htm

ca marche pour les bbcodes, ce sujet est donc clos!

c bon j'ai trouvé ce qui me convient le mieux: (defun c:attsum (/ sset sum i l name entDef) (setq sset (ssget "_P") ; Selection courante des blocs sum 0 ) (if sset (progn (setq i 0 l (sslength sset) ) (while (< i l) (setq name (ssname sset i) loop T ) ;; Boucle sur les attributs (while loop (setq name (entnext name) entDef (entget name) ) (if (and (= (cdr (assoc 0 entDef)) "ATTRIB") (= (cdr (assoc 2 entDef)) "ETIQUETTE1") ) ;; On a trouvé l'attribut d'étiquette ETIQUETTE1 (setq sum (+ sum (atof (cdr (assoc 1 entDef)))) loop nil ) ) (if (= (cdr (assoc 0 entDef)) "SEQEND") (setq loop nil) ) ; Fin de séquence, on termine la boucle ) ;; Passe à l'insertion de bloc suivante (setq i (1+ i)) ) (prompt (strcat "Somme : " (rtos sum))) ) ) (princ) ) reste à savoir maintenant comment on tourne un bloc avec rot0![Edité le 7/7/2010 par kalos]

Merci beaucoup Patrick!!! Je vais plancher la dessus!

je pense que tu m'as donné la réponse dans l'autre sujet 'rotation de blocs'

je précise que je n'y connais pas grand chose en lisp meme si je peux à peu prés decrypter le code. à part des petits scripts (command), et en utilisant les commandes autocad. pour l'instant je ne sais pas faire grand chose. à priori, mon lisp serait plus simple que le script vers lequel tu m'as envoyé puisque de mon coté j'ai le meme bloc (meme nom, meme étiquette) comment lis t'on un attribut de bloc sur une selection et les passer en revue par la suite?

hé bien c long l'extraction, je prefere attout mais il n'y a pas de commande autocad en ligne de commandes. sinon l'astuce etant de faire une extraction de donnees selon la selection courante. suis je obliger de passer par excel pour établir ma somme? un résultat dans ligne de commandes serait top mais je ne vois pas comment.

et je fais ça comment en lisp? parcourir une sélection de bloc, copier la valeur d'attribut rotation et faire pivoter l'objet par cet angle tout en gardant le texte horizontal!

voila aprés des centaines d'attout à répétition dans excel pour compter mes valeurs, j'aimerai savoir s'il existe un petit lisp permettant juste de faire la somme des valeurs d'une certaine étiquette d'attribut de plusieurs blocs sélectionnés à l'avance. Etant plus que novice en Lisp, je reviens vers vous pour cette requete. Merci d'avance. KaLoS

le probleme reste ouvert! rot_0 marche bien quoique bizarrement axé. "MPT V1.00 Réacteur pour que les coordonnées XYZ d'un bloc correspondent à ses attributs" de Patrick35 pourrait il correspondre à la seconde partie? sachant que j'ai des milliers de blocs à pivoter selon leur valeurs d'attributs.

Merci à vrai dire je ne me souvenais plus qu'il était dans la liste, c'est déjà un pb de régler :) Je vais voir ce que je peux faire avec ROT_0

Bonjour, J'aimerai trouver une solution à mon problème. Pour faire simple, j'aimerai savoir s'il y a pas une solution en Lisp d'effectuer une rotation à des blocs tout en gardant les attributs en mode horizontal, et petite précision ces informations de rotation(94° par ex) sont conservées dans un attribut de ce meme bloc. Je remercie vos neurones. kalos