Remi83600

Bonjour, Je sais que le sujet est vieux, mais cette solution que donne Carboleum, ma bien aidé. Analyse rétrospective: [0.170] (VL-BT) [1.166] (*ERROR* "quitter / sortir abandon") LAP+7 [2.160] (_call-err-hook #<USUBR @000000003115c570 *ERROR*> "quitter / sortir abandon") [3.154] (sys-error "quitter / sortir abandon") :ERROR-BREAK.149 "quitter / sortir abandon" [4.146] (EXIT) [5.142] (C:RES) LAP+111 [6.137] (#<USUBR @0000000031231138 -top->) LAP+7 [7.133] (al-top-funcall #<USUBR @0000000031231138 -top->) [8.128] (alide-load-stream #<FILE internal> T) [9.122] (al-load-stream #<FILE internal> T) [10.116] (#<SUBR @0000000031231bb0 -unwind-protect->) [11.113] (rep-cntx.apply #<rep-cntx :AUTOLISP> al-load-stream (#<FILE internal> T)) [12.106] (rep-cntx.sys-str-top nil #<rep-cntx :AUTOLISP> "(c:Res)") [13.99] (sys-str-top #<rep-cntx :AUTOLISP> "(c:Res)") [14.93] (console.terminal-entered! (terminal.terminal-entered!) #<console "Console Visual LISP">) [15.87] (terminal-entered! #<console "Console Visual LISP">) [16.82] (!accept-enter #<console "Console Visual LISP">) [17.77] (#<SUBR @0000000031231bb0 -unwind-protect->) [18.74] (rep-cntx.apply #<rep-cntx :AUTOLISP> #<SUBR @000000003cb73bd8 !accept-enter> (#<console "Console Visual LISP">)) [19.67] (rep-cntx.funcall #<rep-cntx :AUTOLISP> #<SUBR @000000003cb73bd8 !accept-enter> #<console "Console Visual LISP">) :TOP-COMMAND.60 (((:USER-INPUT "(c:Res)")) "(c:Res)") [20.57] (#<SUBR @000000003cc35638 _sys-top-loop>) [21.54] (_catched-apply (#&2) #<SUBR @000000003cc35638 _sys-top-loop> nil) [22.47] (sys-top) [23.43] (#<SUBR @000000003111f458 -callback-envelope->) :CALLBACK-ENTRY.40 (:CALLBACK-ENTRY) [24.37] (#<SUBR @000000003111f520 -unwind-protect->) [25.34] (_lisplet-apply #<Document-LISPLET> #<SUBR @000000003111f458 -callback-envelope-> nil :CALLBACK-ENTRY) [26.26] (_lisplet-callback-apply #<Document-LISPLET> sys-top nil) [27.19] (C:VLIDE) [28.15] (#<SUBR @0000000031118570 -rts_top->) [29.12] (#<SUBR @0000000031118700 veval-str-body> "(C:VLIDE)" T #<FILE internal>) :CALLBACK-ENTRY.6 (:CALLBACK-ENTRY) :ARQ-SUBR-CALLBACK.3 (nil 0) Voilà j'ai juste du mal à comprendre l'erreur, pourriez-vous m'aider? Merci d'avance.

Bonjour, Voilà actuellement j'ai un projet pour mon école à faire. J'ai rencontré un petit problème sur mon lisp. Je transforme une spline en polyligne puis récupère tous ces points. La liste a comme forme: ((0.1 1 10)(...)...) Je voudrais rentrer ces points qui sont infinis, dans une seule commande _pline pour n'avoir qu'une seule entitée. Avec: - Long qui est mon nombre de point (la longueur de ma liste) - N qui est un indice qui est égal à 0 (repeat Long (setq PDébut (nth N Lidessin)) (setq PFin (nth (+ N 1) Lidessin)) (command "_pline" PD "la" 0.5 0.5 PF ) (setq N (+ N 1)) ) Sauf que je ne connais pas la bonne syntaxe. Merci d'avance pour vos réponses.