LISP A VOIR !

[lili2006]

Bonsoir à toutes et tous,

 

Tout est dans le titre =>

 

(defun C:AJOUTRAD(/ Sel Nb i txt)
(setq const (getreal "\nEntrez la constante:"))
(setq Sel (SSget '((0 . "TEXT")) ))
(setq Nb (sslength Sel))
(setq i 0)
(while (	(setq e (ssname Sel i))
(setq Ent (entget e))
(Setq txt (cdr (assoc 1 Ent)))
       (setq nomb (substr txt 3))
       (setq nombr (atof nomb))
       (setq deb (substr txt 1 2))
       ;(setq col (cdr (assoc 2 Ent)))
       (setq tot (+ const nombr))
       (setq Ent (subst (cons 1 (strcat deb (rtos tot 2 2)))(assoc 1 Ent) Ent))
       ;(setq Ent (subst  (cons 62 8) (assoc 67 Ent) Ent)) 
(entmod Ent)
(setq i (+ 1 i)) 
)
) 

 

Comme l'ont compris les lispeurs (un de mes étudiants s'essaye !), nous voudrions pouvoir ajouter une constante à un bloc contenant le matricule "z" d'un tampon, par exemple.Et bien sûr, ça marche pas !!!

 

Merci d'avance

[Patrick_35]

Salut

 

Pour ajouter du texte à une valeur, tu as regardé la fonction strcat ?

 

@+

[lili2006]

Re,

 

Merci Patrick_35, je vais tacher de m'y pencher, mais ne soyez pas surpris que je revienne,...

[lili2006]

Bonsoir à toutes et tous,

 

Je ne comprend toujours pas !

 

Sur cette ligne, je suppose ?

 

(setq Ent (subst (cons 1 ( [surligneur] strcat [/surligneur]deb (rtos tot 2 2)))(assoc 1 Ent) Ent))

[lovecraft]

Bonsoir lili2006,

 

Pour t'aider pourrait on avoir un exemple avec un fichier joint.

 

Merci

 

@plus

 

[Edité le 5/2/2008 par lovecraft]

[Patrick_35]

Salut lili

 

Ton lisp fonctionne correctement

Il ajoute un préfixe sur des textes qui contiennent que des chiffres.

Tu travailles qu'avec des réels, pas d'alphanumérique

 

@+

[lili2006]

Bonsoir à toutes et tous,

 

OUI ! L'étudiant m'as dis aujourd'hui qu'il l'avait corrigé avant de me le faire passer par mail,...

 

Des fois, la communication,...

 

Merci tout de même à tous.