Renuméroter un bloc

[MILAS69]

Bonjour

 

J'aimerais vous soumettre un probleme .

J'ai un bloc avec des attributs qui est inserer une centaine de fois sur mon plan, mais la numerotation ne suit pas ( exemple je passe de 40 à 43 ) .

J'aimerais donc renumeroter tous les blocs en incrementant de "1" a chaque fois esce possible ?

Pouvez vous m'aider merci

[Tramber]

T'es donc prêt à les cliquer un par un ?

Il s'agit d'une définition de bloc ou de plusieurs ?

Il n'y a bien qu'un attribut à ton bloc ?

[(gile)]

Salut,

 

Regarde le LISP Increment sur cette page, la commande INCSEL devrait répondre à ta demande.

[MILAS69]

salut tramper

 

Et non justement je ne veux pas les cliqué un à un trop long !!

en réalité ceux sont des etiquettes de réservations donc il y en a bcp

elle contiennent 4 attributs (num, section, arase type ) mais je veux juste renumerote l'ensemble car parfois jai supprimer des etiquettes.

merci de m'aider

[Tramber]

Tramber, c'est Bertrand à l'envers.

 

 (defun c:gloatt()
 (setq sel(ssget "X" '((0 . "INSERT")(2 . "Nomenclature32"))))
 (VL-PRINC-TO-STRING(strcat "il y a "(itoa(sslength sel))" blocs selectionnés"))
;;;  (setq bl(vlax-ename->vla-object(ssname sel 0)))
 (setq compt 0)
 (repeat (sslength sel)
   (setq bl(vlax-ename->vla-object(ssname sel compt)))
   (foreach a (vlax-invoke bl 'GetAttributes); (setq a (nth 0 (vlax-invoke bl 'GetAttributes)))
(if (= (vla-get-TagString a) "NUMERO")
  (vla-put-TextString a (itoa (1+ compt)))
  	))    
   (setq compt(1+ compt))
   )
 )

A charger et lancer GLOATT en changeant "Nomenclature32" nom du bloc et NUMERO en NUM