mes foutues layers

[dupin]

Re-re-bonjour, (tramber)

Je suis en train de devenir fout, j’ai toujours eu des problème avec (ssget)

Voila ou j’en suis arriver (un programme qui ne fonctionne même pas)

Mais toujours pas de solution.

Je te serais infiniment reconnaissant si tu voulais bien m’éclairer

Mille fois merci d’avance.

 

(defun c:voir_layer ()

(setq jeus (ssget)

jeuTot (sslength jeus)

compt 0)

(repeat

(sslength jeutot)

(setq compt (1+ compt))

(setq ent1 (ssname jeus compt))

(setq ent2 (entget ent1))

(princ(strcat "layer:"(cdr (assoc 8 ent2))))

)

)

 

[Tramber]

Il ya des erreurs comme :

(sslength jeutot)

 

J'ai posté le programme dans le bon forum (!!! :P )

(Le forum lisp)