Probleme sur une routine....

[couma-co]

Salut, Voila quelque mois, j'avais grace à vos conseils, recuperé un prog. qui permettait de coter une longueur total d'une plolyligne sur un dessin.

Aprés avoir changé d'ordi, de version, voilà ce que me dit AutoCad lorsque je charge le prog.

 

Commande: ; erreur: no function definition: TYP

 

 

voilà le prog :

 

defun mkfilt (typ / bdd lstflt)
(setq bdd '(8 6 0))
(if (assoc 210 typ)
(if (not (equal (assoc 210 typ) '(210 0.0 0.0 1.0)))
(progn
(initget "Oui Non")
(if
(eq
(getkword
(strcat
"\nRécupérer les entités "
(cdr (assoc 0 typ))
" non construites dans le SCG [Oui/Non]: "
)
)
"Oui"
)
(setq bdd
(cons -4
(append (list (cons -4 "*") '(210 0.0 0.0 1.0)) bdd)
)
)
(setq bdd
(cons -4
(append (list (cons -4 "=") '(210 0.0 0.0 1.0)) bdd)
)
)
)
)
)
)
(setq bddtyp bdd)
(repeat (length bdd)
(cond
((assoc (car bdd) typ)
(setq lstflt (cons (assoc (car bdd) typ) lstflt))
)
((= (car bdd) -4)
(setq lstflt (cons (cadr bdd) (cons (caddr bdd) lstflt)))
(setq bdd (cddr bdd))
)
)
(setq bdd (cdr bdd))
)
(print lstflt)
(initget "Toutes Sélectionnées")
(cond
((eq (getkword "\nMode de récupération des polylignes [Toutes/Sélectionnées] :? ") "Sélectionnées")
(ssget lstflt)
)
(T
(ssget "X" lstflt)
)
)
)
(defun c:METREPL ( / sav_dim sav_lup typent typ_l js cmpt nbr ent)
(setvar "CMDECHO" 0)
(setq sav_dim (getvar "DIMZIN"))
(setq sav_lup (getvar "LUPREC"))
(setvar "DIMZIN" 0)
(if (not precision)
(progn
(initget 4)
(setq precision
(getint
(strcat
"\nEntrer la précision désiré <"
(itoa (getvar "LUPREC"))
">: "
)
)
)
)
)
(if (not precision) (setq precision (getvar "LUPREC")))

 

 

 

 

 

Mais connaissances en Lisp sont presque inexistante, mais il fonctionnait trés bien avant!!!!

 

en gros SOS!!! :(

bon merci, si qlq'un peu me renseigner ce serait top! :D

bonne journée...

 

[Edité par gile : balises]

[(gile)]

Salut,

 

Il manque une parenthèse ouvrante au début et une fermante à la fin.

 

PS : Quand on poste du code, il est préférable de le coller entre 2 balises :

 

 ici, le code 

 

ça facilite le copier/coller.

[couma-co]

merci, c'etait exactement ça!!! :)

Pour les conseils, je tacherai de les suivre, promis :cool: