Numérotation groupée

[Fruity]

Bonjour

je précise tout de suite que j'ai déjà le lisp Incrément de Giles.

Ma question est un chouilla différente:

Le but du jeu est de sélectionner plusieurs blocs avec attributs (blocs identiques) et de (re)numéroter un de ses attributs automatiquement sur tous les blocs choisis.

Le lisp incatt permet de le faire au moment de poser le bloc.

Le lisp incsuff permet de numéroter mais il faut cliquer sur les attributs un par un.

 

Voila, je demande juste au cas où quelque chose existerait.

Merci

[Patrick_35]

Salut

 

La réponse va être simple.

Le lisp fait comment pour connaitre l'ordre de la numérotation ?

Une sélection multiple correspond rarement au besoin.

 

@+

[GEGEMATIC]

Salut,

Une sélection multiple correspond rarement au besoin.

Ben en fait parfois si, par exemple pour exporter un fichier de pt avec matricule qui est un agrégat de plusieurs levé topographiques différents que l'on a assemblé.

J'ai un très vieux code pour ça, sous forme de plug-in Powerclic tu peu t'en inspirer ou installer PowerClic.

a+

Gégé

 

)
;******************************************************************************
;§/POWERTEXTOOLS/Fonction d' incrémentation numérique pour une selection de bloc /none
;  variable en ballade  pw-dep pw-inc pw-nbex pw-dpx pw-dpy
;
(pw_pluggin_register '("automatic_numbering" (   "INSERT")("Numérotation automatique d'une sélection de blocs" "Automatic numbering of a selection set of blocks"  )))

(defun automatic_numbering ( / tmp sel lselcmdrso attid ebloc lselrso   )
(pw_bydefault "mode-protect" "Non")
(pw_getkwordmem "\nEcraser les valeurs non nulle des numéros ?/Non Oui/" "mode-protect")
(setq sel (pw_select_only_ctab (ssget "_p")))
(setq lselcmdrso (pw_listsel sel))
(setq pw-dep-att (caar  (setq attid (pw_extatt (car lselcmdrso))))) ;; chaine de depart brute, 1er attribut
(pw_setvar1 "cmdecho" 0)
;init incrément
(if (not pw-inc)
  (setq pw-inc 1)
)
(setq tmp pw-dep-att)
(prompt (pw_getxt 'PW137 "\nLa chaine peut être une lettre, un nombre ou les deux. ex: 1, V2P, P, VANNE"))
(pw_getstringmem (pw_getxt 'PW134 "\nNombre ou chaine de départ ?") "pw-dep-att")
(pw_getrealmem (pw_getxt 'PW213 "\nL'incrément actuel est : ") "pw-inc") ;; demande à l'utilisateur de confirmer l'incrément
(if (/= tmp pw-dep-att)
  (pw_mdfatt (car lselcmdrso) pw-dep-att)
)
(setq lselrso (cdr lselcmdrso))
(foreach ebloc lselrso
  (setq cc-lastent ebloc)
  (if (= "Oui" mode-protect)
    (progn
   (setq pw-dep-att (pw_inc_ch pw-dep-att pw-inc));;incrémente
   ;; remplace l'attribut par sa nouvelle valeur
   (pw_mdfatt ebloc pw-dep-att)
     )
    (progn
      (setq valatt (caar (PW_EXTATT ebloc)))
      (if (or (not (SPACE=NIL valatt))
       (wcmatch valatt "`[*`]"))
 (progn
  (setq pw-dep-att (pw_inc_ch pw-dep-att pw-inc));;incrémente
   ;; remplace l'attribut par sa nouvelle valeur
   (pw_mdfatt ebloc pw-dep-att)
	   
 )
 (prompt "\nValeur présente")
)
    )
  )
)
(setq cc-lastent nil)
(pw_setvar2 "cmdecho" )
)

[Patrick_35]

Ben en fait parfois si, par exemple pour exporter un fichier de pt avec matricule qui est un agrégat de plusieurs levé topographiques différents que l'on a assemblé.

Salut

 

Je disais rarement car quand tu fais un dessin d'un trait, tes objets sont dans un certain ordre et une sélection multiple permet d'avoir cet ordre.

Mais comme tout dessin évolue avec l'effacement/l'ajout/copie d'objets, cet ordre n'est plus d'actualité.

 

@+

[(gile)]

Salut,

 

Pour tous ceux qui utilisent AutoCAD 2012 ou ultérieur, je conseille d'utilser plutôt le plugin Increment (gratuit sur Autodesk Exchaange Apps).

L'onglet "Auto" sert à incrémenter une sélection de textes, mtextes ou attributs suivant un ordre croissant ou décroissant des coordonnées X et Y du SCG ou du SCU.