CHANGEMENT ATTRIBUTS

[lili2006]

Bonsoir à toutes et tous,

 

Je dois inverser les deux attributs sur le bloc ci-dessous, et ce, pour environ 50 blocs identiques si ce n'est en valeur.

A savoir, je voudrais faire passer la valeur -0.93 f à la place de -1.00 b.

 

http://images0.hiboox.com/images/4108/41aede45b7bc1fda644f370fff6b2ef5.jpg

 

La valeur de ces attributs peut être quelconque.

 

Une idée ?

 

Merci d'avance,

[(gile)]

Salut,

 

vite fait,

 

(defun c:invatt	(/ ss)
 (vl-load-com)
 (and
   (ssget '((0 . "INSERT") (66 . 1)))
   (vlax-for x	(setq ss (vla-get-ActiveSelectionSet
		   (vla-get-ActiveDocument
		     (vlax-get-acad-object)
		   )
		 )
	)
     ((lambda (l)
 (mapcar
   (function
     (lambda (x1 x2)
       (vla-put-TextString x1 x2)
     )
   )
   l
   (reverse (mapcar 'vla-get-TextString l))
 )
      )
(vlax-invoke x 'GetAttributes)
     )
   )
   (vla-delete ss)
 )
 (princ)
) 

[lili2006]

Re,

 

Merci beaucoup (gile), cela marche parfaitement,

 

J'ai fait sur un plan en 2 clics ce que j'étais en train de faire depuis 1 h00 sur un autre,...

 

Merci encore,