Ajout de valeur

[mittoo]

Bonjour,

y a t il un moyen sur autocad pour ajouter 0.50 à toute une série de texte chiffrés sans se les taper un par un??

Par exemple j'ai des textes altimétriques (pas des points, juste des textes), et je désirerais leur ajouter à tous 0.50m...Et il y en a beaucoup...

Help...

 

[Fraid]

bonjour,

 

voici un lisp concocter grace à nos cher cadxpiens

 

(defun c:inc()

(setq mi (getreal "\nValeur mini des Z : "))

(setq ma (getreal "\nValeur maxi des Z : "))

(setq inc (getreal "\nValeur à incrementer : "))

(setq sel (ssget '((0 . "TEXT"))))

(setq cont 0)

(repeat(sslength sel)

(setq ent(vlax-ename->vla-object (ssname sel cont)))

(if(and(>=(atof(vla-get-textstring ent))mi)(<=(atof(vla-get-textstring ent))ma))

(progn

(setq ed (entget (ssname sel cont)))

(if (eq (type (read (cdr (assoc 1 ed)))) 'REAL)

(progn

(setq ed(subst(cons 1(VL-PRINC-TO-STRING(rtos (+ inc(atof(vla-get-textstring ent))) 2 3)))(assoc 1 ed)ed))

(entmod ed)))))

(setq cont(1+ cont))

)

)

 

bon courage

[mittoo]

Oh pu**** je ne sais pas creer un lisp...

 

[Tramber]

Y a TCOUNT dans les express mais il ne fait pas les chiffres à virgules.

 

Tous les 50 (cm), ca peut le faire, il suffit de coter en cm.

 

[Fraid]

pour charger un lisp ce n'est pas difficile

 

tu copie le code

tu le colle dans un fichier texte

tu l'enregistre en lui donnant le nom situé apres defun c:

avec l'extention .lsp

avec le lisp que je t'ai donné cela donne inc.lsp

tu peux le ranger ou tu veux mais il est préferable de les mettre au meme endroi a chaque fois pour les retrouvé facilement

inc sera la commande a tapper dans autocad pour t'en servir

mais avant cela tu devra aller dans outil/charger une application (ou tapper appload)

et selectionner inc.lsp et cliquer sur charger

et voila

 

mais il y a surement des explication plus clair sur le forum

n'hesite pas a faire des recherches

 

 

[mittoo]

ça maaaaarche !!!!!

merci tu m'a sauvé 2-3h de ma journée...