Matt666

Sous quelle forme doit-on retourner la liste des longueurs ?

Je ne pense pas qu'il soit possible de faire ce que tu demandes....

Salut ! En lite, non. A bientot. Matt.

Mais j'aimerais bien moi !!!! :P A mon avis tous les produits icad sont concernés...

Regarde ici... Sinon pour ce que tu as à faire, ce ne serait pas mieux avec un script ? Avec SAS, ce serait pas mal, nan ? A bientot. Matt.

Fais une recherche, avant de poser la question, beacoup de sujets ont été traités là dessus ;) Flatten des express Ici, là, ou encore là...

Et skype ? Vachement bien skype...

Désolé c'sest moi qui te répond... En fait je crois que ça dépend du résultat... Pour moi la récursivité (pour cette fonction, eb tout cas), c'est comme un train :P : il commence par un wagon, si ça l'intéresse, il continue en gradant le wagon. S'il c'est le cas contraire, il supprime le wagon. Et c'est pour ça que ta routine doit dire qu'il faut garder ou non l'élément de la liste testé. (cons (cdr (assoc 10 lst)) (Bred4 (vl-remove (assoc 10 lst) lst))) En fin de compte il ne garde pas en mémoire, puisque c'est une sous-fonction bred4 de ta routine bred4. Tu ajoutes l'élément à ta liste à chaque validation de ton test. Comme dis gile : J'espère que tu ne trouveras mon explication trop désobligeante (des wagons...), en tout cas ce n'est pas le cas... J'ai beacoup de mal aussi pour les fonctions récursives... A bientot ! Matt.

Houlà... Va falloir revoir ça au calme !! Je vois pas trop encore ce qu'est un bulge.. On dirait un chiffre magique !! Ok, ça a l'air intéressant... Adtal, comme on dit par chez nous !

Salut ! Je crois que j'ai trouvé, pompant ta fonction remove_doubles !! (defun coord (lst) (cond ((null lst) nil) (T (if (eq (caar lst) 10) (cons (cdar lst) (coord (cdr lst))) (coord (cdr lst)) ) ) ) ) Salut lili ! Mais t'inquiète, tu ne me déçois pas ! Tu vois les choses comme tu le veux ! Après si j'insiste, c'est parce que je reste persuadé que rien ne vaut la pratique du code pour un apprentissage plus rapide et logique. Bah j'espère bien qu'on verra ça !! Et puis comme qui dirait, Il faut donner du temps au temps. A bientot ! Matt.

Ok... (defun coord (lst) (if (eq (caar lst) 10) (cons (cdar lst) (coord (cdr lst)) ) (coord (cdr lst)) ) ) J'ai essayé sur Autocad... Avec ton amélioration, et il me retourne ça : Chu désolé, mais je comprends vraiment pas le problème !! Je dois pas bien comprendre la récursivité ! Merci pour cette précieuse aide, gile !

Pas testé... Mais je doute que ça fonctionne ! (defun coord (lst) (if (eq (caar lst) 10) (cons (cdar lst) (coord (cdr lst)) ) ) ) J'arrive pas à comprendre pk le code ne fonctionne pas sur BricsCAD... Ptet que sur Autocad, ça marche ? [Edité le 11/12/2007 par Matt666]

Salut ! Bon Patrick_35 a proposé un nouveau challenge à la fin du challenge 14, et je permets d'en faire un nouveau post. C'est encore un challenge de niveau assez facile.... Exemple : Liste de base : (setq lst '((-1 . ) (0 . "LWPOLYLINE") (5 . "33EC") (67 . 0) (8 . "0") (62 . 256) (6 . "ByLayer") (370 . -1) (48 . 1.00000) (60 . 0) (90 . 8) (70 . 1) (38 . 0.000000) (39 . 0.000000) (210 0.000000 0.000000 1.00000) (10 0.000000 0.000000 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000) (10 20.0000 0.000000 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000) (10 20.0000 16.0000 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000) (10 -8.88178E-016 16.0000 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000) (10 -1.46953E-015 12.0000 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000) (10 8.00000 12.0000 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000) (10 8.00000 7.00000 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000) (10 -1.77568E-015 7.00000 0.000000) (40 . 0.000000) (41 . 0.000000) (42 . 0.000000))) Fonction : (coor lst) Retourne : ((0.000000 0.000000 0.000000) (20.0000 0.000000 0.000000) (20.0000 16.0000 0.000000) (-8.88178E-016 16.0000 0.000000) (-1.46953E-015 12.0000 0.000000) (8.00000 12.0000 0.000000) (8.00000 7.00000 0.000000) (-1.77568E-015 7.00000 0.000000)) Voilà... Alors, s'il vous plait, faites un peu plaisir à Patrick_35 !!! Pour les pros, on essaie de faire la même en autolisp pur ? (bon je sais c pas très dur...) Allez lili, lovecraft, on ne regarde les codes existants, et on essaie ! Bonne chance. Matt. [Edité le 12/12/2007 par Matt666]

Oui... Mais quand c'est trop dur, Gile trouve ça facile :D Ceci dit ton challenge 15 est très intéressant !! Pas eu le temps de répondre. Dommage... Sinon, Tu ne veux pas poster un nouveau sujet, plutot ? Je n'avais pas vu ton post.... C'est un bon challenge, je pense ! A bientot. Matt. [Edité le 10/12/2007 par Matt666]

Salut ! Je ne sais pas d'où cela vient, mais tu peux essayer de nettoyer ton plan comme tu dis, en faisant une purge de tes calques (layer=calque) tape "purger" dans la ligne de commande, si tu ne connais pas... A bientot. Matt.. [Edité le 7/12/2007 par Matt666]

Salut ! Un truc vite fait, pas testé : ;;;************************************************************************ ;;; Imprime toutes les présentations disponibles (defun c:PRT (/ ctab) (setq ctab (getvar "ctab")) (foreach pt (layoutlist) (setvar "ctab" pt) (command "traceur" "n" "" "" "" "" "" "") ) (setvar "ctab" ctab) (princ) ) Il faut être sûr du paramétrage toutes ses présentations !! Un petit lisp pour voir les imprimantes de toutes tes présentations : ;;;************************************************************************ ;;; Affiche les présentations et les imprimantes (defun c:PRW (/ cmdecho) (setq n 0 cmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (foreach pt (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 350)) (dictsearch (namedobjdict) "ACAD_LAYOUT") ) ) (if (/= "MODEL" (cdr (assoc 1 (entget pt)))) (princ (strcat "\nNom de la présentation : " (cdr (assoc 1 (entget pt))) "\tImprimante : " (cdr (assoc 2 (entget pt))) ".")) ) ) (setvar "cmdecho" cmdecho) (princ) ) Pour imprimer, tape PRT, et pour visualiser tape PRW... A bientot. Matt. [Edité le 7/12/2007 par Matt666]

Aaaaaaaaaaaahhhh !!! Le message n'est pas passé !!!! Salaud de forum !!! j'édite le message !

Salut Eric ! Et bin.. C'est bien la moindre des choses !! Oui ! Dans BricsCAD v7, il ya un bug dans les scripts. Donjc ce que j'ai dit dans le dernier post vient de ça. j'ai essayé de tout faire... slash, double anti-slash, guillemets ou pas. Rien n'y fait. Dans la v8, c'est différent de Autcad, mais ça fonctionne. J'ai juste enlevé les guillemets aux extrémités du chemin du fichier dans ton script. Voilà. Pour que sas fonctionne avec un moteur icad, il faut enlever les guillemets. Très très pénible... Dis moi ce que tu en penses ! A bientot. Matt. [Edité le 7/12/2007 par Matt666]

Merci... :red: C'est marrant pourtant l'utilise un append... Je croyais que c'était plus lent... Vivement un autre challenge (un peu moins balaise que le 15 !!) :o A bientot.. Matt.

Ah oui ok ! Ah bah merci Gile, je comptais le faire, mais tu t'en es occupé, et très efficacement en plus ! (comme d'hab quoi !) :) A bientot. Matt.

C'est vrai que c'est assez hallucinant....

Bon bah je vais faire pareil... (defun lsdel (lst pos nb / nlst) (repeat pos (setq nlst (cons (car lst) nlst)) (setq lst (cdr lst)) ) (repeat nb (setq lst (cdr lst))) (append (reverse nlst) lst) )

Salut Patrick_35 ! Bravo pour tout ça, c'est impressionant !! Petite question, concernant ta routine ONG. Le code ci dessous (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) (setq lst (cons (cons (vla-get-taborder lay) (vla-get-name lay)) lst)) ) n'est pas lisible par un moteur intellicad, et j'aurais aimé (si possible) que tu me donnes un exemple de résultat de ce bout de code... Pour pouvoir le transcrire en autolisp... là je vois que tu as deux variables lay et lst. après je ne comprends plus rien !! Merci d'avance ! A bientot. Matt.

Salut Eric !!! Bon mini bug de SAS pour BricsCAD... Tout s'ouvre bien, ça fonctionne, mais il s'arrête au chemin du plan dwg à ouvrir ! pb de slash, me semble-t-il... Voilà ! A bientot. Matt.

Salut maximilien ! Tu crois que nous aussi on pourrait le voir ??? Paske ça m'intéresse de savoir ce que ça peut donner... Tu passes par inno et acad_intsall ? Merci ! A bientot. Matt