Classement

Salut, Si j'ai bien compris la demande, ça devrait faire l'affaire : EDIT : code corrigé (CF plus bas) (vl-load-com) (or *acad* (setq *acad* (vlax-get-acad-object))) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument *acad*))) (or *blocks* (setq *blocks* (vla-get-Blocks *acdoc*))) (defun c:steven (/ setProps ss att) (defun setProps (o) (vla-put-Layer o "0") (vla-put-Color o 0) (vla-put-Linetype o "ByBlock") (vla-put-Lineweight o -2) ) (vlax-for o (vla-Item *blocks* "TRAMES") (if (= (vla-get-ObjectName o) "AcDbAttributeDefinition") (setProps o) ) ) (if (ssget "_X" '((0 . "INSERT") (2 . "TRAMES"))) (progn (vlax-for b (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (foreach att (vlax-invoke b 'GetAttributes) (if (= (vla-get-TagString att) "N°TRAMES") (progn (vla-put-TrueColor b (vla-get-TrueColor att)) (setProps att) ) ) ) ) (vla-Delete ss) ) ) (princ) )

Salut, Voir cette discussion. Plutôt que de m'en remettre à une (in)intelligence artificielle, je préfère essayer de continuer à cultiver ma modeste intelligence naturelle...