Numérotation blocs avec incrément automatique

[fauxsuisse]

Urgent !

 

Bonjours à tout le monde.

 

Je cherche un moyen de numéroter automatique des blocs lors de leurs insertion.

 

J'ai trouvé ce lisp de didier qui fonctionne bien mais au quel j'aurai aimé avoir 2 modifications si cela est possible.

 

La 1ère c'est que lors du placement du bloc on puisse le tourner avant de passer au suivant, dans son lisp le bloc est toujours posé horizontalement.

 

La 2ème serait de savoir si cela était possible sous Autocad 2010, en effet cela fonctionne sous le 2009 mais sous 2010 il ne numérote pas.

 

Dans l'attente un grand merci à celui qui peut me trouver une solution.

[Tramber]

J'ai trouvé ce lisp de didier qui fonctionne bien

 

Moi je ne l'ai pas trouvé :cool:

[fauxsuisse]

Le lisp que j'avais trouvé était celui-ci

 

(setq num 0)

(setq num (getint "\nNuméro de depart\n\t"))

(setq inc (getint "\nValeur de l'incrémentation\n"))

(princ (strcat "POINT NUMERO " (itoa num) " A FAIRE ...(Echap pour arrêter)"))

(setq pins (getpoint "\nPOINT D'INSERTION\n"))

(command "_INSERT" "NUM" pins "" "" "" (itoa num) )

(while

(setq num (+ num inc))

(princ (strcat "POINT NUMERO " (itoa num)" A FAIRE ...(Echap pour arrêter)"))

(setq pins (getpoint "\nPOINT D'INSERTION\n"))

(command "_INSERT" "NUM" pins "" "" "" (itoa num) )

);while

 

et apparemment il avait été par Didier

[Tramber]

1.

 

Remplace donc (command "_INSERT" "NUM" pins "" "" "" (itoa num) )

par

(command "_INSERT" "NUM" pins "" "" (* 180.0(/(getangle ptins)pi)) (itoa num) )

dans les 2 cas.

 

2.

 

J'ai un doute la variable ATTREQ est-elle bien à 1. C'est bizarre car ca devrait bugger.

 

[fauxsuisse]

Un grand merci ça marche impeccable et de plus ça fonctionne sous 2010, j'ai juste du modifier un mot "getangle ptins" par "getangle pins" et la ça fonctionne parfaitement.

J'ai encore une petite question, ce lisp fonctionne uniquement avec le bloc portant le nom de NUM est il possible d'utiliser un autre bloc sans devoir modifier le fichier lisp.

 

Mis à part ça encore un grand merci, tu m'as fait gagner beaucoup de temps

[Tramber]

(setq num 0)
(setq num (getint "\nNuméro de depart\n\t"))
(setq inc (getint "\nValeur de l'incrémentation\n"))
(setq nomb(getstring "\nNom du bloc : "))
(princ (strcat "POINT NUMERO " (itoa num) " A FAIRE ...(Echap pour arrêter)"))
(setq pins (getpoint "\nPOINT D'INSERTION\n"))
(command "_INSERT" nomb pins "" "" (* 180.0(/(getangle ptins)pi)) (itoa num) )
(while
(setq num (+ num inc))
(princ (strcat "POINT NUMERO " (itoa num)" A FAIRE ...(Echap pour arrêter)"))
(setq pins (getpoint "\nPOINT D'INSERTION\n"))
(command "_INSERT" nomb pins "" "" (* 180.0(/(getangle ptins)pi)) (itoa num) )
);while

 

devrait fonctionner à peu près.

[fauxsuisse]

UN GRAND MERCI

ça marche impeccable c'est exactement ce que j'avais besoin.

 

:)

 

[Patrick_35]

Salut

 

Tu as aussi ce sujet

 

@+