usegomme

Salut, A partir de rediso.lsp j'ai fait une autre version pour les réductions acier pour tuyauterie 3D , il y a les principaux DN et pour l'instant la forme n'est pas réaliste puisque c'est juste un tronc de cône creux. ; Réduction ACIER en 3D version 1 ; à partir d'autocad 2007 ; usegomme le 31/03/2009 (defun c:RedAcier (/ pd pdir pf pfd r r2 r3 a h d1 d2 e) (command "_undo" "_be") (setq pd (getpoint "\nPoint de départ de la reduction :")) (if pd (setq pdir (getpoint pd "\n direction de la réduction <>: "))) (cond ((and pd pdir) (command "_ucs" "_zaxis" "_none" pd "_none" pdir) (setq pd '(0. 0. 0.)) ) ) (cond (pd (setq sv_mnu (getvar "SHORTCUTMENU")) (setvar "SHORTCUTMENU" 11) (setq d1 nil d2 nil) (while (not d1) (initget "20 25 32 40 50 65 80 100 125 150") (setq dn (getkword "\n DN [20/25/32/40/50/65/80/100/125/150]:")) (cond ((= dn "20") (setq d1 26.9)) ((= dn "25") (setq d1 33.7)) ((= dn "32") (setq d1 42.4)) ((= dn "40") (setq d1 48.3)) ((= dn "50") (setq d1 60.3)) ((= dn "65") (setq d1 76.1)) ((= dn "80") (setq d1 88.9)) ((= dn "100") (setq d1 114.3)) ((= dn "125") (setq d1 139.7)) ((= dn "150") (setq d1 168.3)) ((= dn "200") (setq d1 219.1)) ((= dn "250") (setq d1 273)) ((= dn "300") (setq d1 323.9)) (t (princ)) ) ) (while (not d2) (cond ((= dn "20") (initget "25 32 40") (setq dn (getkword "\n DN [25/32/40]:")) (cond ((= dn "25")(setq d2 33.7 h 35 e 2.3))((= dn "32")(setq d2 42.4 h 51 e 2.3))((= dn "40")(setq d2 48.3 h 67 e 2.6)) ) ) ((= dn "25") (initget "20 32 40 50") (setq dn (getkword "\n DN [20/32/40/50]:")) (cond ((= dn "20")(setq d2 26.9 h 35 e 2.6))((= dn "32")(setq d2 42.4 h 39 e 2.6))((= dn "40")(setq d2 48.3 h 55 e 2.6)) ((= dn "50")(setq d2 60.3 h 77 e 2.9)) ) ) ((= dn "32") (initget "20 25 40 50 65") (setq dn (getkword "\n DN [20/25/40/50/65]:")) (cond ((= dn "20")(setq d2 26.9 h 51 e 2.6))((= dn "25")(setq d2 33.7 h 39 e 2.6))((= dn "40")(setq d2 48.3 h 38 e 2.6)) ((= dn "50")(setq d2 60.3 h 61 e 2.9))((= dn "65")(setq d2 76.1 h 95 e 2.9)) ) ) ((= dn "40") (initget "20 25 32 50 65 80") (setq dn (getkword "\n DN [20/25/32/50/65/80]:")) (cond ((= dn "20")(setq d2 26.9 h 67 e 2.6))((= dn "25")(setq d2 33.7 h 55 e 2.6))((= dn "32")(setq d2 42.4 h 38 e 2.6)) ((= dn "50")(setq d2 60.3 h 50 e 2.9))((= dn "65")(setq d2 76.1 h 84 e 2.9))((= dn "80")(setq d2 88.9 h 108 e 3.2)) ) ) ((= dn "50") (initget "25 32 40 65 80 100") (setq dn (getkword "\n DN [25/32/40/65/80/100]:")) (cond ((= dn "25")(setq d2 33.7 h 77 e 2.9))((= dn "32")(setq d2 42.4 h 61 e 2.9))((= dn "40")(setq d2 48.3 h 50 e 2.9)) ((= dn "65")(setq d2 76.1 h 63 e 2.9))((= dn "80")(setq d2 88.9 h 86 e 3.2))((= dn "100")(setq d2 114.3 h 143 e 3.6)) ) ) ((= dn "65") (initget "32 40 50 80 100") (setq dn (getkword "\n DN [32/40/50/80/100]:")) (cond ((= dn "32")(setq d2 42.4 h 95 e 2.9))((= dn "40")(setq d2 48.3 h 84 e 2.9))((= dn "50")(setq d2 60.3 h 63 e 2.9)) ((= dn "80")(setq d2 88.9 h 65 e 3.2))((= dn "100")(setq d2 114.3 h 114 e 3.6)) ) ) ((= dn "80") (initget "40 50 65 100 125 150") (setq dn (getkword "\n DN [40/50/65/100/125/150]:")) (cond ((= dn "40")(setq d2 48.3 h 108 e 3.2))((= dn "50")(setq d2 60.3 h 86 e 3.2))((= dn "65")(setq d2 76.1 h 65 e 3.2)) ((= dn "100")(setq d2 114.3 h 90 e 3.6))((= dn "125")(setq d2 139.7 h 135 e 4))((= dn "150")(setq d2 168.3 h 189 e 4.5)) ) ) ((= dn "100") (initget "50 65 80 125 150") (setq dn (getkword "\n DN [50/65/80/125/150]:")) (cond ((= dn "50")(setq d2 60.3 h 143 e 3.6))((= dn "65")(setq d2 76.1 h 114 e 3.6))((= dn "80")(setq d2 88.9 h 90 e 3.6)) ((= dn "125")(setq d2 139.7 h 88 e 4))((= dn "150")(setq d2 168.3 h 141 e 4.5)) ) ) ((= dn "125") (initget "80 100 150") (setq dn (getkword "\n DN [80/100/150]:")) (cond ((= dn "80")(setq d2 88.9 h 135 e 4))((= dn "100")(setq d2 114.3 h 88 e 4))((= dn "150")(setq d2 168.3 h 94 e 4.5)) ) ) ((= dn "150") (initget "80 100 125") (setq dn (getkword "\n DN [80/100/125]:")) (cond ((= dn "80")(setq d2 88.9 h 189 e 4.5))((= dn "100")(setq d2 114.3 h 141 e 4.5))((= dn "125")(setq d2 139.7 h 94 e 4.5)) ) ) ) ) (setvar "SHORTCUTMENU" sv_mnu) ) ) (cond (d2 (setq pf (list (car pd)(cadr pd) h)) (command "_circle" "_none" pd (setq r (/ d1 2))) (setq b (entlast)) (command "_circle" "_none" pf (setq r2 (/ d2 2))) (setq b2 (entlast)) (initget "Aucun") (setq a (getangle pf "\nSi excentrique TANGENT de quel coté?[]:")) (if (= a "Aucun")(setq a nil)) (if a (setq pfd (polar pf a (- r r2)))) (if pfd (command "_move" b2 "" "_none" pf "_none" pfd)) (command "_loft" b b2 "" "") (setq trc (entlast)) (setq r (- r e)) (command "_circle" "_none" pd r) (setq b (entlast)) (setq r3 (- r2 e)) (if pfd (setq pf pfd)) (command "_circle" "_none" pf r3) (setq b2 (entlast)) ;;; pour conserver par défaut le dernier rayon valable (command "_circle" "_none" pf r2) (entdel (entlast)) ;;; (command "_loft" b b2 "" "") (command "_subtract" trc "" "_L" "") ) ) (if pdir (command "_ucs" "_p")) (command "_undo" "_e") (princ "Longueur ")(princ h) (princ) )

:D Celle-là est bonne, merci pour le fou rire .

Ah ! J'oubliai , un vrai spectacle en direct nécessite un grosse préparation fort coûteuse ce qui serait autant d'argent en moins dans les caisses des restau , et aussi probablement incompatible avec l'emploi du temps des artistes à cause des répétitions. Mais bon ça n'excuse probablement pas tout.

Ne noircissons pas les choses, personne n'est parfait (il y a un h à synchro ), ceux qui ont du talent s'amusent et les mulets portent les cageots, c'est la vie ! Et ce genre de commentaire : est l' oeuvre de malfaisant dont le seul plaisir est de nuire, vaut mieux éviter de les lire. Eh oui, c'est quand même plutôt bien pour les pauvres, surtout que je ne fais rien et donc que je suis mal placé pour donner des leçons. A+

Mais qu'est-ce qu'il m'a fait le Philou ! J'ai complété le lisp avec menu diamètre en "DN" . C'est plus pratique. Je n'ai guère testé mais ça semble bien fonctionné. ; Réduction Inox Iso en 3D version 2.3 ; usegomme le 07/04/09 24/04/09 (defun c:RedIso (/ pd pdir pf pfd r1 r2 r3 a h d1 d2 sv_dm dm) (command "_undo" "_be") (setq pd (getpoint "\nPoint de départ de la reduction :")) (if pd (setq pdir (getpoint pd "\n direction de la réduction <>: "))) (cond ((and pd pdir) (command "_ucs" "_zaxis" "_none" pd "_none" pdir) (setq pd '(0. 0. 0.)) ) ) (cond (pd (setq sv_dm (getvar "DYNMODE")) (cond ((< sv_dm 0) (setq dm (* sv_dm -1)) (setvar "DYNMODE" dm)) (t (setq sv_dm nil dm nil)) ) (setq d1 nil d2 nil) (while (or (not d1)(not d2)) (initget "Autre 10 15 20 25 32 40 50 65 80 100 125 150 200 250 300") (setq dn (getkword "\n DN [Autre/10/15/20/25/32/40/50/65/80/100/125/150/200/250/300]:")) (cond ((= dn "10") (setq dn 17.2)) ((= dn "15") (setq dn 21.3)) ((= dn "20") (setq dn 26.9)) ((= dn "25") (setq dn 33.7)) ((= dn "32") (setq dn 42.4)) ((= dn "40") (setq dn 48.3)) ((= dn "50") (setq dn 60.3)) ((= dn "65") (setq dn 76.1)) ((= dn "80") (setq dn 88.9)) ((= dn "100") (setq dn 114.3)) ((= dn "125") (setq dn 139.7)) ((= dn "150") (setq dn 168.3)) ((= dn "200") (setq dn 219.1)) ((= dn "250") (setq dn 273)) ((= dn "300") (setq dn 323.9)) ((= dn "Autre") (setq dn (getdist "\nDiamètre de la reduction en mm:"))) (t (princ)) ) (if d1 (setq d2 dn) (setq d1 dn)) ) (if sv_dm (setvar "DYNMODE" sv_dm)) ) ) (cond (d2 (if (= d1 d2) (setq h d1) (setq h (* 3 (if (> d1 d2)(- d1 d2) (- d2 d1)))) ) (if (< 0.7 (- h (fix h)))(setq h (+ (fix h) 1))(setq h (fix h))) (setq pf (list (car pd)(cadr pd) h)) (command "_circle" "_none" pd (setq r1 (/ d1 2))) (setq b (entlast)) (command "_circle" "_none" pf (setq r2 (/ d2 2))) (setq b2 (entlast)) (initget "Aucun") (setq a (getpoint pf "\nSi excentrique TANGENT de quel coté?[]:")) (if (= a "Aucun")(setq a nil)) (if a (if (and (= 0 (car a))(= 0 (cadr a)))(setq a nil))) (if a (setq a (angle pf a) pfd (polar pf a (- r1 r2)))) (if pfd (command "_move" b2 "" "_none" pf "_none" pfd)) (command "_loft" b b2 "" "") (setq trc (entlast)) (setq epr 2) ;;;;;;;;;;;;;;;;;;;;;;;;;; EPAISSEUR PAR DEFAUT (setq r1 (- r1 epr)) (command "_circle" "_none" pd r1) (setq b (entlast)) (setq r3 (- r2 epr)) (if pfd (setq pf pfd)) (command "_circle" "_none" pf r3) (setq b2 (entlast)) ;;; pour conserver par défaut le dernier rayon valable (command "_circle" "_none" pf r2) (entdel (entlast)) ;;; (command "_loft" b b2 "" "") (command "_subtract" trc "" "_L" "") ) ) (gc) (if pdir (command "_ucs" "_p")) (command "_undo" "_e") (princ "Longueur ")(princ h) (princ) ) [Edité le 7/4/2009 par usegomme] [Edité le 7/5/2009 par usegomme]

Est-ce que c'est ça qu'on appelle "intronisation" ?

Bonjour , il me semble que tu as la dent dure car leurs but est bien de ramasser un maximum d' argent. Sinon super le "boeuf" , je me demande comment ils font pour être pil poil syncro. En communication téléphonique avec le Québec j'ai un léger décalage qui fait qu'on a tendance à se couper la parole involontairement. Mais peut être que ma connection n'est pas terrible.

La capacité d'adaptation est bien réelle , mais c'est une aptitude incluse dans le potentiel de l'animal et autres, ce n'est pas sortie du chapeau , ceux sont les différentes adaptations qui font croire à l'évolution mais "le chainon manquant" ... on ne le trouve pas. On voit bien que l'ADN est un codage , au même titre qu'un programme informatique et ceux sont les lattitudes autorisées par cette programmation qui permettent l'adaptation. Récemment, j'ai lu un article disant qu'il avait fallu cent ans à la science pour éliminer la croyance en la génération spontanée. Seulement ils ne s'aperçoivent pas qu'ils recréent le même schéma , simplement déplacé dans le temps à l'origine de la vie et aussi à l'origine de notre univers. Effectivement c'est très intrigant toute cette ingéniosité du hasard. Nous en sommes ravis ! [Edité le 20/3/2009 par usegomme]

En fait j'ai cru que tu était croyant lorsque tu t 'es exprimé sur l'excommunication dans l'autre post puis j'ai compris le contraire dans celui-ci ,et dans cette phrase le croyant c'est moi et je m' amuse de dire que tu es dogmatique , comme quoi on a vite fait de se comprendre de travers. [Edité le 20/3/2009 par usegomme]

D'un point de vue "athé" c'est une logique à priori normale , mais je ne crois pas que se soit réaliste. Sans intelligence particulière l'homme est une proie trop facile . Du règne animal nous sommes les plus démunis , pas de griffe, pas de croc, pas de fourrure ou autre protection que notre peau bien fine et douce. Peu véloce et d'un tonus musculaire qui fait se tordre de rire n'importe quel singe . Une odorat limite et une vision nocturne déplorable. Il est vrai qu'on peut être de grand amoureux mais je ne suis pas sur que ça aide. Bref ! Le tableau n'est pas brillant c'est le moins qu'on puisse dire, et donc ton point de vue ne me parait pas cartésien mais plutôt dogmatique. C'est marrant qu'un croyant fasse ce genre de remarque non ?

Bonjour Si par "foi" tu veux dire religion je suis d'accord avec toi , dans le cas contraire il y a confusion des genres car Descartes était croyant ça me fait plaisir de le rappeller et voici ce qui est fort bien dit sur wikipédia Je pense que "du livre" veut dire de la bible. Et pour la " référence savante" vous devriez penser un peu plus à ne pas vous laisser enfermer par elle.

Moi ce qui m'étonne c'est que l'on trouve normal , voire banal que les merveilles de la nature se soient faites toutes seules , sans le concours de l'intelligence , on peut même dire à l'aveuglette. Le bon point du Darwinisme c'est d'avoir ébranlé les vieilles croyances et donné à réfléchir. Et ça permet d'avoir une école laïque , qui d'ailleurs , avait fait de moi un athé. Mais pour dire que la logique c'est l'évolutionnisme c'est loin d'être une évidence et d'abord parce qu'en tant que lecteur assidu de science&vie, je sais que pour que la vie soit possible sur terre et qu 'elle s'y développe , il a fallu une somme impressionnante de "heureux hasards" qui fait que l'ensemble relève du miracle ou presque. Vaste sujet , au risque de choquer encore une fois je vais essayer qlq réponses selon ce que je sais et crois savoir. Le but terrestre est l'épanouissement de l'âme .Dieu veut obtenir des fils et pas des esclaves. Pour que ce soit possible , il nous faut être libre , Dieu n'intervient donc pas directement. Si c'est souvent douloureux pour nous , pour Dieu c'est une création complexe. Mais il vaut voir ce qui est dans la balance , l'éternité dans l' amour de Dieu avec toute liberté de création dans le bien. Et c'est là que la difficulté commence , pour agir dans le bien naturellement et en permanence , il faut devenir de la même nature que Dieu. Sur terre c'est le tout commencement du boulot ,l'endroit où nous devons choisir entre le bien et le mal trés souvent et où nous devons subir les conséquences de nos choix individuel et collectif , c'est formateur , sa responsabilise et fait prendre conscience etc.. et l'amour n'est pas quelque chose qui s'impose. A notre stade il n' y a que l'âme qui soit "réelle ,vivante"(c'est quand même le plus important de ce que nous sommes) , un décés prématuré ou une exitance "raté" donnera lieu à une recréation . Quand les choix humains sont trop mauvais , l'existence ne sert plus à rien par rapport à l'objectif de vie éternelle et il peut y avoir des "déluges " localisés ou généralisé. En réalité personne n'est tué puisque c'est l' âme qui est vivante , ceux qui avaient vraiment choisi le mal étaient déjà des morts (mais en sursit) en ayant réduit à rien leur âme parcelle de Dieu Amour. [Edité le 19/3/2009 par usegomme]

oh la la! Bonuscad où est-ce qu'on va ! Je te rappelle que je me positionne et raisonne en tant que croyant en un Dieu Amour et ce que je dis sur la souffrance n'est pas une question de nourriture mais de raison d'être et surtout de ce que peut vouloir dire "Dieu Amour" . Je reconnais que j'ai fait un sacré raccourci sur la vie animale , je sais trés bien que les animaux , insectes , bactéries et les poissons etc.. sont indispensables à la vie sur terre et qu'ils ont d'innombrables fonctions autre que finir comme casse-croute. Et si je finis manger par un ours ou par des asticots j'aurai moi aussi donné ma petite contribution à la terre. :) L' homme n'a jamais été un animal , la science connait extrèmement mal la préhistoire , les découvertes sont une chose, l'interprétation qui en est faite une autre. Et pour le coup je suis d'accord avec autospeed et les vidéo qu'il nous a fait découvrir sur dailymotion concernant la légende du déluge et qui remettent en cause les thèses officielles . Et si je ne crois pas au créationnisme biblique , je ne suis pas pret non plus d'admettre les croyances speudo scientifique qui sont surtout constitué d'ignorance et d'idées préconçues issues de la thèse évolutionniste . L 'homme a toujours été sans défence naturelle ou si peu , et a toujours eu les moyens de s'épanouir sur la terre dans les périodes normales bien entendu , parce que Dieu existe et que la raison d'être humaine n'est pas celle des animaux et ce n'est pas une question de race dominante. S'il avait fallu attendre qu'il devienne intelligent de lui-même , l'homme aurait été exterminé avant d'avoir l'idée de s'armer. La terre aussi aura une fin et même la galaxie ? Alors ? Ah oui et non je n'adhère pas à la croyance de la terre éternelle ça n'a aucune logique quoiqu'en dise les TJ. Pour monsieur Charon ce sera 3 paters chaque soir et confesse dimanche :) ça t'apprendra à faire dans la dentelle ! [Edité le 17/3/2009 par usegomme]

Aie! aie! ouille! Il me faut sortir couvert... d'un casque lourd. Je ne suis pas étonné de choquer mais je regretterais que mes propos déservent la cause animale , si je suis c...ça m'arrive, ce n'est pas dans la catégorie des c.. qui maltraitent les animaux. chasse, pêche et corrida n'ont jamais fait parti de mes loisirs et je me suis mis au végétarisme il y a 30 ans.Si je me suis assoupli sur ce chapitre , l'alimentation carnée ne fait néanmoins pas partie de mon ordinaire, contrairement à d'autres qui s'émeuvent du sort des pauvres bêtes et s'en régalent quotidiennement. Evidemment si Dieu n'existe pas , je n'aurais dit que des c....ries et je n'aurais plus qu'à suivre le conseil de jalna. S' il existe, ce dont je ne doute pas, je suis heureux de savoir qu' Il est Amour et de croire qu ' étant Amour Il n'a pas voulu que la souffrance animale soit de la même nature que la notre alors qu'ils sont créés pour manger et être manger et entretenir la vie sur notre planète, et que rien ne pourrait justifier cette souffrance car ils n' ont aucun avenir individuel. Comment un croyant peut-il croire en l' Amour de Dieu et se penser plus sensible à la souffrance que son créateur alors qu'en vérité nous avons bien du mal à apprendre à aimer . Oui la terre est conçu pour nous , il ne faut pas prendre ça comme un honneur. Il nous fallait un endroit pour nous ébattre librement c'est tout. Il ne faut pas se faire d' illusion l'intérêt que Dieu a pour nous et à l' image de l'intérêt qu' a une future maman pour le fétus qu'elle porte en son sein. C'est l' enfant à naître l'intérêt et pas ce que nous sommes présentement et le spectacle lamentable que nous offrons trop souvent. Certe les milliards d'années de la chronologie de la création est difficile à intégrer , mais il ne faut pas oublier que le temps est un dimension variable comme le montre la relativité , et le temps entre l'observateur et l'observé peut être trés différent et peut être même à défilement variable , qui sait ? "Les animaux sont des âmes vivantes" Je n' y accorde pas crédit c'est une traduction particulière de l'ancien testament par "la bible du monde nouveau" et qui est différente de la traduction de Lemaître de Sacy . De toute manière , comme son nom l'indique c'est l'ancien testament et il a passé sa date de péremption depuis 2000 ans , ça reste surtout intéressant pour les historiens. Pour le Christ il lui fallait bien qu'il commence par s'incarner dans un corps humain avant d' être malheureusement crusifié.

Réincarnation, le terme est impropre nous concernant , ce mot ne s'applique qu'au Christ ou un être accompli qui vient sur terre pour une mission , cela a été déformé comme d'habitude. Pour nous il s'agit d'une recréation, je m'explique : De quoi est formé notre petite personnalité, de tout un ensemble de choses à commencer par l'âme , mais aussi l'hérédité, le sexe, le prénom ,le signe zodiacal , l' éducation ,le pays etc.. et de nos choix. Autrement dit notre personnalité , notre conscience se forme sur la terre (du moins les prémisses). Avant c'était l'impersonnalité. Si le germe d'esprit qui en nous est déjà passé sur la terre , il en a gardé l'acquit positif , mais pas la personnalité . Celui qui meurt sans s'être donné la qualité de pouvoir renaitre hors la terre , retourne à l' inconscience et si son âme n'est pas perdu pour Dieu ,en tant que personnalité il est mort. Pour bien comprendre il faut se comparer à un fétus qui n' acquiert son état-civil que lorsqu' il change de lieu en naissant dans un monde nouveau pour lui. Matthieu XIII.22 " Mais Jésus lui dit: suivez-moi, et laissez aux morts le soin d'ensevelir leurs morts

A propos de la réincarnation et de Dieu amour Ceux sont les propos d' Autospeed sur son sites http://www.superlutin.net/recherch.html qui m'ont incité à lancer ce post car je ne partage pas sa réflexion sur ces sujets. Pour commencer , Dieu est Amour , Autospeed tu cites des paroles du Christ pour appuyer ta vision de la réincarnation , et il me semble que tu devrais aussi en tenir compte quant à la nature de Dieu. Lorsque que tu te bases sur la souffrance animale pour en arriver à ta conclusion, tu es berné par les apparences comme d'autres le sont pour réfuter Dieu. La souffrance animale n'est pas de la même nature que la notre, pour la simple raison que la "terre" est conçue pour nous et notre formation, et que tout doit y concourir et nous sensibiliser. Dans cette organisation les animaux n'ont aucune raison de souffrir véritablement. La souffrance animale est d'ordre mécanique, comme la souffrance d'un piano qui reçoit des coups de marteau sur son clavier, l'image est simpliste mais en ce qui concerne les animaux, l'informatique nous permet de conceptualiser cela trés bien et de le comprendre . Dieu est Amour , le Christ le montre très bien au contraire de la croyance juive .

D' enfer Bonuscad, les bras m'en tombent !

Dans la série décomposition, ce n'est pas d'un grand intêret ,mais puisque je l'ai et qu'à l'occasion je m'en sert et qu' il peut vous servir voici le lisp. ;;;usegomme 14-08-2008 ;; dissocie les segments d'une polyligne d'épaisseur constante (defun c:splitpol (/ js ent lent typent ss ep i1 i2) (setvar "cmdecho" 0) (setq js (ssget)) (setq i1 0) (repeat (sslength js) (setq ent (ssname js i1)) (setq lent (entget ent)) (setq typent (cdr (assoc 0 lent))) (cond ((or (= typent "POLYLINE")(= typent "LWPOLYLINE")) (setq ep (cdr (assoc 41 lent))) (command "_explode" ent) (setq ss (ssget "p")) (setq i2 0) (repeat (sslength ss) (setq ent (ssname ss i2)) (if (= 0 (getvar "peditaccept")) (command "_PEDIT" ent "" "_w" ep "") (command "_PEDIT" ent "_w" ep "") ) (setq i2 (1+ i2)) ) ) ) (setq i1 (1+ i1)) ) (setvar "cmdecho" 1) (princ) ) Ci-joint également l'outil de reconstruction avec (gile)' s method ;; joindre arc ligne polyligne (defun c:JPO (/ jpo:pa) (setq jpo:pa (getvar "peditaccept" )) (setvar "peditaccept" 1) (vl-cmdf "_.pedit" "_m" (ssget) "" "_j" 1.0 "") ;; 0.0 ;; écart réglable (setvar "peditaccept" jpo:pa) (princ) )

Merci Lecrabe, on était en même temps sur le post et je n'avais pas vu ta réponse.

Bonjour Bon j'ai vu dans les nouveautés 2006 présentées par Patrick que c'est ok pour dynmode. ;;; BIGBURST.LSP adaptation de burst.lsp 12-03-09 ind D, 21-04-09 ind E ;;; (Defun C:BIGBURST (/ item bitset bump att-text lastent burst-one burst BCNT BLAYER BCOLOR ELAST BLTYPE ETYPE PSFLAG ENAME ) ;----------------------------------------------------- ; Item from association list ;----------------------------------------------------- (Defun ITEM (N E) (CDR (Assoc N E))) ;----------------------------------------------------- ; Error Handler ;----------------------------------------------------- (acet-error-init (list (list "cmdecho" 0 "highlight" 1 "regenmode" regenm ;*** "dynmode" dynm ;*** ) T ;flag. True means use undo for error clean up. );list );acet-error-init ;----------------------------------------------------- ; BIT SET ;----------------------------------------------------- (Defun BITSET (A B) (= (Boole 1 A B) B)) ;----------------------------------------------------- ; BUMP ;----------------------------------------------------- (Setq bcnt 0) (Defun bump (prmpt) (Princ (Nth bcnt '("\r-" "\r\\" "\r|" "\r/")) ) (Setq bcnt (Rem (1+ bcnt) 4)) ) ;----------------------------------------------------- ; Convert Attribute Entity to Text Entity or MText Entity ;----------------------------------------------------- (Defun ATT-TEXT (AENT / ANAME TENT ILIST INUM) (setq ANAME (cdr (assoc -1 AENT))) ; (if (_MATTS_UTIL ANAME) ;*** ; (progn ;*** ; Multiple Line Text Attributes (MATTS) - ; make an MTEXT entity from the MATTS data ; (_MATTS_UTIL ANAME 1) ;*** ; ) ;*** ; (progn ;*** ; else -Single line attribute conversion (Setq TENT '((0 . "TEXT"))) (ForEach INUM '(8 6 38 39 62 67 210 10 40 1 50 41 51 7 71 72 73 11 74 ) (If (Setq ILIST (Assoc INUM AENT)) (Setq TENT (Cons ILIST TENT)) ) ) (Setq tent (Subst (Cons 73 (item 74 aent)) (Assoc 74 tent) tent ) ) (EntMake (Reverse TENT)) ; ) ;*** ; ) ;*** ) ;----------------------------------------------------- ; Find True last entity ;----------------------------------------------------- (Defun LASTENT (/ E0 EN) (Setq E0 (EntLast)) (While (Setq EN (EntNext E0)) (Setq E0 EN) ) E0 ) ;----------------------------------------------------- ; See if a block is explodable. Return T if it is, ; otherwise return nil ;----------------------------------------------------- (Defun EXPLODABLE (BNAME / B expld) (vl-load-com) (setq BLOCKS (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))) ) (vlax-for B BLOCKS (if (and (= :vlax-false (vla-get-islayout B)) (= (strcase (vla-get-name B)) (strcase BNAME))) (setq expld (= :vlax-true (vla-get-explodable B))) ) ) expld ) ;----------------------------------------------------- ; Burst one entity ;----------------------------------------------------- (Defun BIGBURST-ONE (BNAME / BENT ANAME ENT ATYPE AENT AGAIN ENAME ENT BBLOCK SS-COLOR SS-LAYER SS-LTYPE mirror ss-mirror mlast el-etat bepl EL-COLOR EL-TPL EL-EPL) (Setq BENT (EntGet BNAME) BLAYER (ITEM 8 BENT) BCOLOR (ITEM 62 BENT) BBLOCK (ITEM 2 BENT) BCOLOR (Cond ((> BCOLOR 0) BCOLOR) ((= BCOLOR 0) "BYLAYER") ;*** ("BYLAYER") ) BLTYPE (Cond ((ITEM 6 BENT)) ("BYLAYER")) ) ;*** rajout (if (setq BEPL (item 370 bent)) (if (= bepl -2) ;;; -2 = byblock (setq bepl nil) (if (> bepl 0)(setq bepl (* bepl 0.01))) ) ) ;*** fin rajout (Setq ELAST (LASTENT)) (If (and (EXPLODABLE BBLOCK) (= 1 (ITEM 66 BENT))) (Progn (Setq ANAME BNAME) (While (Setq ANAME (EntNext ANAME) AENT (EntGet ANAME) ATYPE (ITEM 0 AENT) AGAIN (= "ATTRIB" ATYPE) ) (bump "Converting attributes") (ATT-TEXT AENT) ) ) ) (Progn (bump "Exploding block") (acet-explode BNAME) ;(command "_.explode" bname) ) (Setq SS-LAYER (SsAdd) ENAME ELAST ) (While (Setq ENAME (EntNext ENAME)) (bump "Gathering pieces") (Setq ENT (EntGet ENAME) ETYPE (ITEM 0 ENT) ) (If (= "ATTDEF" ETYPE) (Progn (If (BITSET (ITEM 70 ENT) 2) (ATT-TEXT ENT) ) (EntDel ENAME) ) (Progn ; propriétés du calque de l'entité avant changement ;; ajout *** (setq el-layer (ITEM 8 ENT)) (setq EL-COLOR (cdr (assoc 62 (entget (tblobjname "LAYER" (ITEM 8 ENT)))))) (setq EL-TPL (cdr (assoc 6 (entget (tblobjname "LAYER" (ITEM 8 ENT)))))) (if (< 0 (setq EL-EPL (cdr (assoc 370 (entget (tblobjname "LAYER" (ITEM 8 ENT))))))) (setq EL-EPL (* EL-EPL 0.01)) (if (= EL-EPL -3) (setq EL-EPL "BYLAYER")) ) ; dévérouille calque objet si necessaire (setq el-etat (cdr (assoc 70 (tblsearch "LAYER" (ITEM 8 ENT))))) (if (>= el-etat 4)(command "_layer" "_u" (ITEM 8 ENT) "")(setq el-etat nil) ) (If (= 0 (ITEM 62 ENT)) (Command "_.chprop" ename "" "_C" BCOLOR "") ) (If (and (not (ITEM 62 ENT))(/= "0" (ITEM 8 ENT)) ) (Command "_.chprop" ename "" "_C" EL-COLOR "") ) (If (= "ByBlock" (ITEM 6 ENT)) ;*** remplacé "BYBLOCK" par "ByBlock" (Command "_.chprop" ename "" "_LT" BLTYPE "") ) (If (and (not (ITEM 6 ENT))(/= "0" (ITEM 8 ENT))) (Command "_.chprop" ename "" "_LT" EL-TPL "") ) (If (and (not BEPL) (= -2 (ITEM 370 ENT))) (Command "_.chprop" ename "" "ep" "BYLAYER" "") ) (If (and BEPL (= -2 (ITEM 370 ENT))) (Command "_.chprop" ename "" "ep" BEPL "") ) (If (and (not (ITEM 370 ENT))(/= "0" (ITEM 8 ENT))) (Command "_.chprop" ename "" "ep" EL-EPL "") ) ; toutes les entités seront changées de calque sauf si Defpoints (if (/= "Defpoints" el-layer) (Command "_.chprop" ename "" "_LA" BLAYER "" ) ) ;restaure etat calque s'il y a lieu (if el-etat (command "_layer" "_lo" el-layer "")) ) ) ) ) ;----------------------------------------------------- ; BURST MAIN ROUTINE ;----------------------------------------------------- (Defun BIGBURST (/ SS1 ca0) ;*** (setq regenm (getvar "REGENMODE")) (setvar "REGENMODE" 0) (setq dynm (getvar "DYNMODE")) (setvar "DYNMODE" 0) (setq PSFLAG (if (= 1 (caar (vports))) 1 0 ) ) (Setq SS1 (SsGet (list (cons 0 "INSERT")(cons 67 PSFLAG)))) (If SS1 (Progn ;;; dévérouille le calque 0 si besoin (setq ca0 (cdr (assoc 70 (tblsearch "layer" "0")))) ; rajout (if (>= ca0 4)(command "_-layer" "_u" "0" "")) ; rajout (Setvar "highlight" 0) (terpri) (Repeat (SsLength SS1) (Setq ENAME (SsName SS1 0)) (SsDel ENAME SS1) (BIGBURST-ONE ENAME) ;*** ) ;restaure etat calque 0 s'il y a lieu (if (>= ca0 4)(command "_-layer" "_lo" "0" "")) ; rajout (princ "\n") ) ) ) ;----------------------------------------------------- ; BURST COMMAND ;----------------------------------------------------- (BIGBURST) ;*** (acet-error-restore) );end defun (princ) [Edité le 21/4/2009 par usegomme]

Patrick_35 , voudrais-tu dire qu'il faudrait décomposer les blocs inclus ? aie aie misère. Sinon j'ai réglé le problème des calques verrouillés ,mais pour que ce changement d'état ne ralentisse pas l'exécution du lisp , je désactive temporairement REGENMODE et DYNMODE. Ca ne pose pas de problème sauf que je ne sais pas si DYNMODE existe sur autocad 2006 aussi avant d'envoyer la mise à jour je fais appel à notre DECAPODE TESTEUR pour cette info. Merci.

En fait c'est quand il y a un bloc dans le bloc à décomposer , c'est donc pas un problème pour toi et de toute manière je ne suis pas assez bon pour aller plus loin. Reste quand même le problème des calques verrouillés qui peuvent bloquer le lisp. Sinon je suis content que ça fasse ton affaire.

Et le pédophile , lui, il n'a pas été excommunié ? Pas plus que les assassins les plus infects. Faut-il alors penser que l' IVG est le plus grave des assassinats ? Celui qui ne donne pas droit à confesse et compassion , à chapelet de prières pour le salut de l'âme ? Mieux vaut la mort de la fillette plutôt que la perte du fétus.???? Encore un mystère de la foi ! A moins qu'ils ne supportent pas de perdre leur autorité et fusilent pour l'exemple . C 'est ce qui s'appelle être chrétien ! Heureusement qu'ils n'ont pas le droit de lancer des fatwa.

Bonjour, j'ai réparé , je pense, le problème d'épaisseur , mais je viens de trouver une faille dans l'attribution des couleurs que je rafistolerai dqp. a+

Tiens en voilà un qui est vieux mais qui marche toujours du moins dans le sens texte to mtext dans l'autre sens je me souviens plus et d'où je suis maintenant je ne peux pas essayer. Sinon pourquoi veux -tu un lisp (vieux) ? ;;; t2mt.lsp and mt2t.lsp ;;; ;;; Copyright (C) 1996 by Frank J. Hessler, THP Limited ;;; MODIFIE POUR AUTOCAD 14 usegomme ;;; ;;; Permission to use, copy, modify, and distribute this software ;;; for any purpose and without fee is hereby granted, provided ;;; that the above copyright notice appears in all copies and ;;; that both that copyright notice and the limited warranty and ;;; restricted rights notice below appear in all supporting ;;; documentation. ;;; ;;; THP LIMITED PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. ;;; THP LIMITED SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF ;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. THP LIMITED ;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE ;;; UNINTERRUPTED OR ERROR FREE. ;;; ;;;---------------------------------------------------------------------------- ;;; DESCRIPTION ;;; ;;; C:T2MT ;;; Converts multiple lines of TEXT objects to an MTEXT object using ;;; the current text height while maintaining overall string width. ;;; ;;; C:MT2T ;;; Converts MTEXT object into text object. Works best for single-line ;;; objects since it puts the entire MText string on one line. ;;; ;;;---------------------------------------------------------------------------- (defun C:T2MT ( / sset) (princ "\nText -> MText Conversion\nSelect Text objects in order...") (if (setq sset (ssget)) (t2mt sset)) ) ; end defun C:T2MT (defun t2mt (sset / num c ent ed clay ipt wid wid1 val) (command "._undo" "_g") (setq num (sslength sset) c -1 ent (ssname sset (setq c (1+ c))) ed (entget ent) clay (getvar "clayer") ) ; end setq (if (= "TEXT" (cdr (assoc 0 ed))) (progn (setq val (cdr (assoc 1 ed)) rot (cdr (assoc 50 ed)) ipt (polar (cdr (assoc 10 ed)) (+ rot (* 0.5 pi)) (cdr (assoc 40 ed))) wid (car (cadr (textbox (list (cons 1 (strcat val " ")))))) ) ; end setq (repeat (1- num) (setq ent (ssname sset (setq c (1+ c))) ed (entget ent) wid1 (car (cadr (textbox (list (cons 1 (strcat (cdr (assoc 1 ed)) " ")))))) val (strcat val " " (cdr (assoc 1 ed))) ) ; end setq (if (> wid1 wid) (setq wid wid1)) ) ; end repeat (setvar "clayer" (cdr (assoc 8 ed))) (command "._erase" sset "" "_.-mtext" ipt "_r" (* 180 (/ rot pi)) "_w" (1+ wid) val "" "._undo" "_e" ) ; end command (setvar "clayer" clay) ) ; end progn ) ; end if (princ) ) ; end defun t2mt ;;;---------------------------------------------------------------------------- (defun C:MT2T ( / sset) (princ "\nMText -> Text Conversion") (if (setq sset (ssget)) (mt2t sset)) ) ; end defun (defun mt2t (sset / ent ed tmp c10 c11 c72 c73 width c num) (command "._undo" "_g") (setq num (sslength sset) c -1) (repeat num (setq ent (ssname sset (setq c (1+ c))) ed (entget ent) ) ; end setq (if (= "MTEXT" (cdr (assoc 0 ed))) (progn (cond ((= 1 (cdr (assoc 71 ed))) (setq c72 0 c73 3)) ; TL ((= 2 (cdr (assoc 71 ed))) (setq c72 1 c73 3)) ; TC ((= 3 (cdr (assoc 71 ed))) (setq c72 2 c73 3)) ; TR ((= 4 (cdr (assoc 71 ed))) (setq c72 0 c73 2)) ; ML ((= 5 (cdr (assoc 71 ed))) (setq c72 1 c73 2)) ; MC ((= 6 (cdr (assoc 71 ed))) (setq c72 2 c73 2)) ; MR ((= 7 (cdr (assoc 71 ed))) (setq c72 0 c73 1)) ; BL ((= 8 (cdr (assoc 71 ed))) (setq c72 1 c73 1)) ; BC ((= 9 (cdr (assoc 71 ed))) (setq c72 2 c73 1)) ; BR ) ; end cond (setq width (cdr (assoc 41 (tblsearch "style" (cdr (assoc 7 ed)))))) (if (= 7 (cdr (assoc 71 ed))) (setq c10 (cdr (assoc 10 ed)) c11 '(0 0 0) c73 0) (setq c10 '(0 0 0) c11 (cdr (assoc 10 ed))) ) ; end if (entdel ent) (entmake (setq tmp (list '(0 . "TEXT") (cons 1 (cdr (assoc 1 ed))) ; text value (cons 7 (cdr (assoc 7 ed))) ; text style (cons 8 (cdr (assoc 8 ed))) ; layer (cons 10 c10) (cons 11 c11) (cons 40 (cdr (assoc 40 ed))) ; text height (cons 41 width) ; text relative width (cons 72 c72) ; horiz alignment (cons 73 c73) ; vert alignment )) ; end list and setq ) ; end entmake ) ; end progn ) ; end if ) ; end repeat (command "._undo" "_e") (princ) ) ; end defun (princ "\nMTEXT conversion routines loaded. Type T2MT or MT2T or execute.")