usegomme

Ha ! ça bouge, il est vrai que j'aime bien vous chatouiller. Je veux bien retenir vos objection sur les chiffres mais quant à la correspondance pil poil du mètre avec la vitesse de la lumière ,alors la si ça c'est pas extraordinaire je veux bien me les couper. Certes je suis l' auteur du post , mais je suis rentré dans le sujet, comme une idiot, vous me l'avez bien fait remarquer, car en fait je n' y connaissez rien, heureusement d'ailleurs car sinon je ne m'y serai pas risqué. Par contre vous ne vous mouillez pas beaucoup pour les propositions.

Alors là, ça cet extraordinaire !!!!!!! car : Vitesse de la lumière = 299 792 458 m/s et que: Enfin si Dieu n'existait pas. Que ce qui ont des oreilles pour entendre etc....

Une fois de plus le hasard fait bien les choses . Vitesse de la lumière = 299 792 458 m/s En additionnant ces chiffres on obtient: 2+9+9 +7+9+2 +4+5+8 = 55 et 5+5=10 si on revoit le début de la discution 5=amour et 10 = divin manifesté Soit Amour du Père + Amour du Fils = manifestation Divine = lumière Je ne l'ai pas fait exprès ,c'est par hasard que j'ai additionné les chiffres

Ce qui est amusant, c'est que la constante de notre univers, est la lumière qui n'a pas de masse et qui est donc comme immatérielle. Si j'ai bien compris, elle est l'étalon du temps perçu et sa mesure par rapport à une référence. Ce qui est encore plus amusant c'est que l'espace-temps, autrement dit la structure de notre monde, se comporte comme une image projetée. Modifier le réglage de largeur de l'affichage écran ou la vitesse de défilement d'un vidéo ne modifie pas son contenu. On le voit dans l'exemple de la navette se déplaçant à très grande vitesse, elle se ratatine dans le sens de la longueur sans que cela affecte sa structure, ni ses passagers aplatis également mais qui n'en ont aucune perception car ils sont à l'intérieur de la "vidéo" si je peux dire. Nous serions donc en quelque sorte comme des images 3d, ça fait bizarre mais après tout, nous ne sommes qu'un amalgame de particules tourbillonnantes qui par leur densité donne l'illusion de la matière, un peu comme les pixels de nos écrans.

Je vais peut être tenter le wikipédia , mais pour l' instant plus j'en lis et moins je comprends , j'ai l' impression d' avoir un Q.I de macaque . En tout cas merci.

C'est sympa. Je comprend tout à fait que je puisse déranger dans cette citadelle de la pensée cartésienne , mais un peu de confrontation ne fait pas de mal, et ça met un peu de piment. Vous pensant détenteur de la logique et du bon sens , je comprend la répulsion de certains et d'autant plus que depuis quelques temps j'ai la visite régulière de personnes fort sympathiques qui prennent la bible au pied de la lettre et qui ont perdu, malheureusement, tout esprit critique sur le sujet. J'ai sous les yeux un article m'expliquant la réalité du diable et les confrontations qu'il a avec Dieu... C'est désolant, on croirait les pitreries des dieux de l'olympe ou encore Dallas. Et s'il n'y avait pas d'autres alternatives , je redeviendrais athée sans problème. J'ai pu aussi constater , que la "non croyance " est devenu chez certains une espèce de pensée religieuse conduisant à un esprit de "parti pris" dépourvu d'objectivité. Et tout n'est pas si simple , maintenant que la technologie nous permet de remonter au source de la création , on constate , ou en tout cas, je constate en toute logique me semble -t-il que l' énergie est forcement venu de quelque part , et ensuite que le vide n'est pas vide , et donc qu'il a du lui aussi être produit , j'irai même plus loin, puisque l'espace-temps est une espèce de mécanique, qu'il a été pensé. Et il y a beaucoup d'autres choses. Bon ,enfin je n'espère pas vous convaincre, rassurez-vous ! Je vous ressers une citation que j'ai copié sur un post de Grand-sapin : Deux choses sont infinies : l'Univers et la bêtise humaine. En ce qui concerne l'Univers, je n'en ai pas acquis la certitude absolue. Albert Einstein J'espère que je prends quelques distances avec la bêtise malgré l'avis de peut être beaucoup d' entre vous. Enfin j'ai appris des choses et mes idées sont plus claires sur le sujet, l'échange est positif, mais j'aimerais bien savoir comment fonctionne l'espace-temps. Après tout c'est de la mécanique et peut être que quelqu'un à une idée.

le comportement des cigaretiers est scandaleux et assassin , on touche au "sans foi ni loi", et je pense que de s'attaquer directement à eux est à haut risque pour un politique isolé. Je crois qu'on ne peut pas se passer de l'action sur les consommateurs , l'exemple de la drogue ou de la prohibition nous montre que tant qu'il a de la demande , il y a des fournisseurs. Pour ce qui est de la prohibition , les américains s'y sont mal pris , (si je peux me permettre, c'est un peu habituel chez eux). Ce qu'on fait les suédois à donner de bien meilleurs résultats ,alors que chez eux l'alcoolisme était un fléaux . Il faut dire qu'il ont eu la participation d'une religion dite libre ,parce que n'etant pas celle du royaume, qui était trés rigoriste et qui interdit l'alcool à ses adeptes.

Dans les proprietes de l'outil on peut modifier l'echelle , mais aussi donner un facteur d'echelle en fonction de dimscale ou de l' echelle du tracé. Je ne sais pas si ça repond à la question ,mais ça peut être utile.

Instructif ! mais ceux sont des constatations , se serait interressant de savoir comment Einstein a trouvé ça , sur quel raisonnement. Encore que ces constatations , confirme le fait que l'espace ( vide) est "quelque chose" et surtout qu'il réagit aux contraintes mécaniques . Je pense donc qu'on est bien forcé d'admettre que ce qui nous semble vide, en réalité ne l'est pas. L'espace a une "texture" , un constituant que nous ne pouvons percevoir.

Merci Bred , j'ai lu attentivement la page sur la relativité, mais malheuresement ,je ne comprend pas ce qu'est l'espace-temps. Une question, comment l'espace vide ,donc sans substance à priori , peut-il être courbe ou déformé par une masse?? Ca m'a l'air aussi épineux que votre boule d'énergie au milieu de nulle part. A vos clavier les grands penseurs ,et que ça ne vous fasse pas tourner la tête !

Libre ... A condition de ne pas déranger votre dogme. Il ne faut pas se bloquer sur les croyances harchaiques pour essayer d' y comprendre quelques choses. Mon manège est probablement bidon , mais au moins c'est une idée compréhensible certe exprimée de façon simpliste , mais je fais avec mes petits moyens. Je remarque qu'en même que tout tourne dans l'espace. Par contre la masse qui déforme l' espace temps , c'est pour moi du charabia. Il serai bien, cher Ticticmarc que tu développes le sujet pour que je ne reste pas idiot.

Et bien j'en rajoute un peu. Pour une réponse rapide, tu t'en tire pas mal Thierryd, sauf pour la remontée dans le temps qui est réservé à l'observation astronomique, car ce qui est fait, est fait. Si ça peut te consoler Bred , c'est à peut près pareil pour moi, et donc je ne suis pas étonné d'être proposé au grade de VAN-D'HAMME ,ce qui est plutôt amusant . Ce n'est pas toujours du pipo, il y a unicité dans ce qui est élaboré par Dieu , et c'est pour cela que les mathématiques sont un langage universel et que tout ce qui n'a pas été embrouillé par l' homme peut être mis en équation ou recoupé par des chiffres, c'est le cas du latin et du français. Pour mémoire, je vous rappelle qu' Einstein était croyant, je pense qu' il a dû avoir de belles inspirations pour concevoir que l'espace est courbe, jusqu' à aujourd'hui cette courbure n'évoquait absolument rien pour ma petite cervelle, le vide absolu peut être. Comment une plus grande vitesse peu ralentir le temps ? Le cercle symbolisant Dieu , l' Un et le Tout , on peut imaginer que l'espace-temps est en forme de cercle et que le fait d' augmenter la vitesse de déplacement rapproche du centre de rotation. Si on a une roue qui parcourt la circonférence, pour un même déplacement angulaire ,plus cette roue se rapproche du centre, et moins elle tourne vite. Si le tour de roue défini le temps ,plus on va vite ,plus on se rapproche du centre et plus le temps s'écoule lentement. Si Dieu est au centre, on peut, peut être, comprendre qu'il est hors du temps, ou plutôt il n'est pas sur le manège, et c'est Lui qui règle la vitesse (Bon sang, ça me donne le tournis) car tout Lui est assujetti, sauf nous, car il veut des fils, pas des esclaves et c'est pour ça que c'est le bordel sur notre petite planète, ça j'en suis sûr, quant au manège ? à votre avis .

Excusez le dérangement, c'est d'une réflexion noctambulesque dont je vous fais part. En fait, j'aurai dû écrire " E.T étaient là avant" car il s'agit d'Espace et de Temps et non pas de l'extraterrestre. On a pas mal parlé du big-bang, mais pour que ce monsieur étire ses grandes pattes, il fallait de l'espace et du temps. Avant la course il y a une piste et un chronométreur. L'espace avait beau être vide, il était bien là, même impalpable c'est "quelque chose".D'ailleurs dans un science&vie, il était énoncé que l'espace ne serait pas infini, mais ressemblerait à un ballon de foot dont les facettes par réflexion donneraient l'illusion de l'infini, donc l'espace est bien "quelque chose". Dans le temps, je croyais que le temps (chrono) était universel et abstrait, et que nous le quantifions en fonction de la rotation terrestre, point final. Hors j'ai appris sans comprendre que le temps varie avec la vitesse (l'horloge dans la fusée), donc il y a plusieurs "temps" comme l'indique le "s" final, et donc le temps est "quelque chose". Pour que notre univers soit, il a fallu E.T.E, Espace, Temps, Energie. E est la 5 eme lettre de l'alphabet, et 5 correspond à Amour. T = 20eme = 2x10= fils x divin manifesté. E.T.E = Amour Fils x Dieu Amour Hop là, pardon, je dérape. Autre chose, à propos du big-bang. Ce que j'ai lu, le décrivait en retour arrière dans un processus de concentration de l'énergie jusqu' à la constante de Planck. Un peu comme s'il s'agissait d'un bâton de dynamite, mais plus petit qu'une tête d'épingle, hors dans le vide il n'y a pas de dynamite et je ne vois pas pourquoi il y aurait eu un tel concentré d'énergie, ça n'a pas de sens. En réalité lorsqu' il y a une production d'énergie, même explosive, il y a une montée en puissance par un facteur temps, comme lorsque produit par une friction qui s'accélère. On a bien E.T.E, Energie par Temps dans Espace, en comprenant que ces éléments sont quelques choses de concrets et que le concret (qu'on crée) a été créé. Je vous dis ça, car j'avais le vague sentiment que l'espace vide n'était rien, alors que non.

Ce serait bien , mais comment enclencher le mouvement sans une politique active , positive et exigente. La politique de l'autruche nous a tous déservi , et les méthodes barbares ne sont ni républicaines , ni chrétiennes et pourtant botter le cul de ceux qui nous emm.. c'est bien tentant. Alors comment sort on du cercle vicieux ?

Je n'ai pas le sentiment que les fumeurs ont réellement conscience que le tabac les tue. Le passage de l'intellect à la conscience de soi-même mis en danger ,ne doit pas se faire ou insuffisamment comme lorsqu' on conduit trop vite , on ne retient que le plaisir.Notre petit orgueil nous place probablement au dessus des déboires éventuels . Patrick , vous devriez nous publier la liste de vos divers sites et wbloc , vous êtes "prolifique" !

Routine pour interrompre un tuyau 2 D et dégager l'arriere plan ;;; COUPTUB.LSP ;; Usegomme (defun ercptub () (setvar "pickstyle" groupobj) ; groupe objet restore (setvar "osmode" osm) (setvar "clayer" clay) (setq osm nil ok nil clay nil npl nil groupobj nil) (setvar "cmdecho" 1) (setq *error* m:err m:err nil) (princ) ) (defun profcoup (pt av ah ) (setq pa pt) (setq pb ( polar (polar pa av (* 0.18 d2)) ah (* 0.18 d2))) (setq pc ( polar (polar pa av (* 0.5 d2)) ah (* 0.25 d2))) (setq pd ( polar (polar pa av (* 0.82 d2)) ah (* 0.18 d2))) ) (defun inscoupure (pt1 pt2 pt3 ang1 ang2 ang3 ang4) (command "_pline") (profcoup pt1 ang1 ang2 ) (command "_none" pa "_none" pb "_none" pc "_none" pd ) (profcoup pt2 ang1 ang3) (command "_none" pa "_none" pb "_none" pc "_none" pd ) (profcoup pt3 ang4 ang2) (command "_none" pa "_none" pb "_none" pc "_none" pd ) (command pt2 "") ) (defun c:COUPTUB (/ sel1 ent1 lent typent p1 p2 p3 d2 sel3 d3 a1 a2 p4 p5 p6 sel2 ent2 ent3 ent4 sel4 ok) (setq m:err *error* *error* ercptub) (setq osm (getvar "osmode" )) (setq clay (getvar "clayer" )) (setq groupobj (getvar "pickstyle")) (setq pw (getvar "plinewid")) (while (setq sel1 (entsel "\n Pointer Generatrice Exterieure Tube : \n")) (setq ent1 (car sel1)) (setq lent (entget ent1)) (setq npl (cdr (assoc 8 lent))) (setq typent (cdr (assoc 0 lent))) (if(or (= typent "LINE") (= typent "LWPOLYLINE")(= typent "POLYLINE") (= typent "SPLINE")(= typent "ELLIPSE")(= typent "TRACE") (= typent "ARC")(= typent "CIRCLE") ) (progn (command "_undo" "_be") (setvar "cmdecho" 0) (setvar "pickstyle" 0) ; groupe inactif (setq p1 (cadr sel1)) (setq p1 (osnap p1 "_near")) (setvar "osmode" 128) (setq p2 (getpoint p1 "\n 1 er Point sur Axe Tube :")) (setq sel3 (ssget p2)) (if sel3 (progn (setq ent3 (ssname sel3 0)) (setq typent (cdr (assoc 0 (entget ent3)))) (if (or (= typent "LINE") (= typent "POLYLINE")(= typent "LWPOLYLINE") (= typent "SPLINE")(= typent "ELLIPSE")(= typent "TRACE") (= typent "ARC")(= typent "CIRCLE") ) (progn (setvar "osmode" 512) (setq p3 (getpoint p2 "\n 2 eme Point sur Axe Tube :")) (setq sel4 (ssget p3)) (if sel4 (setq ok T) ; (progn ; (setq ent4 (ssname sel4 0)) ; (if (equal ent3 ent4) (setq ok T) (setq ok nil)) ; ) (setq ok nil) ) (setq d2 (distance p1 p2)) (setq d3 (distance p2 p3)) (setq a1 (angle p1 p2)) (setq a2 (angle p2 p3)) (setq p4 (polar p1 a2 d3)) (setq p5 (polar p2 a1 d2)) (setq p6 (polar p5 a2 d3)) (setq sel2 (ssget p5)) (if sel2 (progn (setq ent2 (ssname sel2 0)) (setq typent (cdr (assoc 0 (entget ent2)))) (cond ( (or (= typent "LINE") (= typent "POLYLINE")(= typent "LWPOLYLINE") (= typent "SPLINE")(= typent "ELLIPSE")(= typent "TRACE") (= typent "ARC")(= typent "CIRCLE") ) (command "_break" ent1 "_none" p1 "_none" p4 ) (command "_break" ent2 "_none" p5 "_none" p6 ) (command "_break" ent3 "_none" p2 "_none" p3 ) (setvar "plinewid" 0) (setvar "clayer" npl) (setq a3 (+ a2 pi)) (setq a4 (+ a1 pi)) (if ok (inscoupure p6 p3 p4 a4 a3 a2 a1)) (inscoupure p1 p2 p5 a1 a2 a3 a4) (command "_undo" "_e") ) ) ) ) ) ) ) ) ) ) ) (ercptub) )

Routine pour dessiner un bout de calo sur un tuyau 2 D ;; CALO.LSP Usegomme (defun ercalo (msg) (setvar "osmode" osm) (setvar "pickstyle" groupobj) ; groupe objet restore (setq osm nil groupobj nil) (setvar "cmdecho" 1) (setq *error* m:err m:err nil) (princ) ) (defun inscalo (/ pw) (command "_undo" "_be") (command "_break" ent1 pb pe2 ) (command "_break" ent2 pe pb2 ) (command "_line" p1b p4b "") (command "_line" p5b p6b "") (setq pw (getvar "plinewid")) (setvar "plinewid" 0) (command "_pline" pc pd p1b pa pb pe pf p5b "") (command "_pline" pc2 pd2 p6b pa2 pb2 pe2 pf2 p4b "") (setvar "plinewid" pw) (command "_undo" "_e") ) (defun defptcalo (/ x) (cond ((>= d2 45) (setq x 1.0)) ((< d2 24) (setq x 0.6)) ((< d2 30) (setq x 0.7)) ((< d2 38) (setq x 0.8)) ((< d2 45) (setq x 0.9)) ) (setq p1b (polar p2 (+ a1 pi) d)) (setq p4b (polar p3 (+ a1 pi) d)) (setq p5b (polar p2 a1 d)) (setq p6b (polar p3 a1 d)) (setq pb (polar p1 a2 (* x (* 0.5 d1)))) (setq pa (polar (polar p1 (+ a1 pi)(* 0.6 d1)) a2 (* x (* 0.45 d1)))) (setq pc (polar pb (+ a2 pi) (* x d1))) (setq pd (polar pa (+ a2 pi) (* x (* 0.9 d1)))) (setq pe (polar pc a1 (* 2 d2))) (setq pf (polar pd a1 (+ (* 2 d2)(* 1.2 d1)))) (setq pf2 (polar pa a2 d3)) (setq pe2 (polar pb a2 d3)) (setq pb2 (polar pe a2 d3)) (setq pa2 (polar pf a2 d3)) (setq pc2 (polar pb2 a2 (* x d1))) (setq pd2 (polar pa2 a2 (* x (* 0.9 d1)))) ) (defun c:calo (/ sel1 ent1 lent typent p1 d1 p2 p3 d2 p1b p4b p5b p6b d3 d a1 a2 p4 p5 p6 sel2 ent2 pa pb pc pd pe pf pa2 pb2 pc2 pd2 pe2 pf2 osm ) (setq m:err *error* *error* ercalo) (setq osm (getvar "osmode" )) (setq groupobj (getvar "pickstyle")) (setvar "pickstyle" 0) ; groupe inactif (if in_accro_auto (in_accro_auto) (setvar "osmode" 0)) (setvar "cmdecho" 0) (while (setq sel1 (entsel "\n Pointer Generatrice Exterieure Tube : \n")) (if sel1 (progn (setq ent1 (car sel1)) (setq lent (entget ent1)) (setq typent (cdr (assoc 0 lent))) (if (or (= typent "LINE") (= typent "POLYLINE") (= typent "LWPOLYLINE")) (progn (setq p1 (cadr sel1)) (setq p1 (osnap p1 "_near")) (if epcalo (progn (initget 2) (setq d1 (getdist (strcat "\n Epaisseur calo <" (rtos epcalo 2 2) ">:") p1)) (if (= d1 nil) (setq d1 epcalo)(setq epcalo d1)) ) (progn (initget 2) (setq d1 (getdist "\n Epaisseur calo <50>:" p1)) (if (= d1 nil) (setq d1 50)(setq epcalo d1)) ) ) (setvar "osmode" 128) (setq p2 (getpoint p1 "\n 1 er Point sur Axe Tube :")) (setvar "osmode" 512) (setq p3 (getpoint p2 "\n 2 eme Point sur Axe Tube :")) (if in_accro_auto (in_accro_auto) (setvar "osmode" 0)) (setq d2 (distance p1 p2)) (setq d3 (distance p2 p3)) (setq d (+ d1 d2)) (setq a1 (angle p1 p2)) (setq a2 (angle p2 p3)) (setq p4 (polar p1 a2 d3)) (setq p5 (polar p2 a1 d2)) (setq p6 (polar p5 a2 d3)) (setq sel2 (ssget p5)) (if sel2 (progn (setq ent2 (ssname sel2 0)) (setq typent (cdr (assoc 0 (entget ent2)))) (cond ( (or (= typent "LINE") (= typent "POLYLINE") (= typent "LWPOLYLINE")) (defptcalo) (inscalo) ) ) ) ) ) ) )) ;fin if sel1 ) ; fin while (ercalo) )

routine pour tracer des tuyauteries en 2 D sans contrôle sur les longueurs mini. ;;;; TUYAU.LSP usegomme ;;; version acad2002 ---> 2007 et peut être 2000 (defun ertuyau () (setvar "snapang" res) (setvar "offsetdist" of7) (setvar "filletrad" fil) (setq res nil pt nil pd nil pti nil ang nil sommets nil lang nil i1 nil point nil rayo nil diam nil ddia nil ent1 nil angp90 nil angm90 nil pd1 nil pd2 nil of7 nil fil nil pw nil dn nil ) (redraw) (setvar "cmdecho" 1) (setq *error* m:err m:err nil) (princ) ) (defun soudure (/ pt0 ang1 ang2 angt dang long pa pb pc paa pbb pcc) (setq i2 1) (repeat (- (length sommets) 2) (setq pt0 (nth i2 sommets)) (setq ang1 (- (nth i2 lang) pi)) (setq ang2 (nth (1+ i2) lang)) (if (> ang1 ang2) (setq angt (- ang1 ang2)) (setq angt (- ang2 ang1)) ) (if (> angt pi) (setq angt (- (* 2 pi) angt))) (if (= (abs angt) pi) (setq long rayo) (progn (setq dang (/ (abs angt) 2 )) (setq long (* (cos dang) (/ rayo (sin dang)))) ) ) (setq pa (polar pt0 ang1 long) pb (polar pa (+ ang1 (/ pi 2)) ddia) pc (polar pb (- ang1 (/ pi 2)) (* ddia 2)) paa (polar pt0 ang2 long) pbb (polar paa (+ ang2 (/ pi 2)) ddia) pcc (polar pbb (- ang2 (/ pi 2)) (* ddia 2)) ) (command "_line" "_none" pb "_none" pc "" ) (command "_line" "_none" pbb "_none" pcc "") (setq i2 (1+ i2)) ) ) (defun diametre () (cond ((and (/= tuy:dn "Autre") (/= tuy:dn " ") (/= tuy:dn nil)) (setq dn tuy:dn) (initget "Autre") (setq dn (getreal (strcat "\nDiametre en DN [8/10/15/21/20/25/32/40/50/65/80/100/125/150/200/250/300/350/400/450/500/600/Autre en mm] DN<" (rtos dn 2 0) ">: "))) ) (T (initget "Autre") (setq dn (getreal (strcat "\nDiametre en DN [8/10/15/21/20/25/32/40/50/65/80/100/125/150/200/250/300/350/400/450/500/600/Autre en mm] : "))) ) ) (cond ((and (/= dn "A") (/= dn nil)) (setq tuy:dn dn)) ((= dn nil) (if tuy:dn (setq dn tuy:dn))) ((= dn "A") (setq dn nil)) ) (cond ((= dn 8) (setq diam 13.5 rayo 20 )) ((= dn 10) (setq diam 17.2 rayo 25 )) ((= dn 15) (setq diam 21.3 rayo 27.5 )) ((= dn 21) (setq diam 21.3 rayo 38 )) ; dn15 inox ((= dn 20) (setq diam 26.9 rayo 28.5)) ((= dn 25) (setq diam 33.7 rayo 38)) ((= dn 32) (setq diam 42.4 rayo 47.5)) ((= dn 40) (setq diam 48.3 rayo 57)) ((= dn 50) (setq diam 60.3 rayo 76)) ((= dn 505) (setq diam 60.3 rayo 137)) ; rayon 5d ((= dn 60) (setq diam 63.5 rayo 70)) ; soudure orbitale ((= dn 65) (setq diam 76.1 rayo 95)) ((= dn 80) (setq diam 88.9 rayo 114.5)) ((= dn 100) (setq diam 114.3 rayo 152.5)) ((= dn 125) (setq diam 139.7 rayo 190.5)) ((= dn 150) (setq diam 168.3 rayo 228.5)) ((= dn 200) (setq diam 219.1 rayo 305)) ((= dn 250) (setq diam 273 rayo 381)) ((= dn 300) (setq diam 323.9 rayo 457)) ((= dn 350) (setq diam 355.6 rayo 533.5)) ((= dn 400) (setq diam 406.4 rayo 609.5)) ((= dn 450) (setq diam 458 rayo 686)) ((= dn 500) (setq diam 508 rayo 762)) ((= dn 600) (setq diam 610 rayo 914)) ( T (cond ((and tuy:dia tuy:ray) (setq diam (getdist (strcat "\nDiametre Exterieur Tuyauterie ou 2 pts <" (rtos tuy:dia 2 4) ">: "))) (setq rayo (getdist (strcat "\nRayon coude ou 2 pts <" (rtos tuy:ray 2 4) ">: "))) (if diam (setq tuy:dia diam) (setq diam tuy:dia)) ; (setq ddia (/ diam 2)) (if rayo (setq tuy:ray rayo) (setq rayo tuy:ray)) ) (T (setq diam (getdist "\nDiametre Exterieur Tuyauterie ou 2 pts : ")) ; (setq ddia (/ diam 2)) (setq rayo (getdist "\nRayon coude , 2 pts ou <>: ")) (if (= rayo nil) (setq rayo (* diam 1.1))) (setq tuy:dia diam tuy:ray rayo) ) ) ) ) (setq ddia (/ diam 2)) ) (defun c:TUYAU () (setq m:err *error* *error* ertuyau) (setvar "cmdecho" 0) (setq res (getvar "snapang") of7 (getvar "offsetdist") fil (getvar "filletrad") ) (diametre) (while (setq pt (getpoint "\nPoint Depart Tuyauterie : ")) (setq pd pt pti pt ang 0 sommets (list pt) lang (list ang)) (while (setq pt (getpoint pti "\nPoint suivant : ")) (grdraw pti pt 1) (setq ang (angle pti pt) sommets (append sommets (list pt)) lang (append lang (list ang)) pti pt ) ) (if (= (length sommets) 1) (exit)) (command "_undo" "_be") (setq pw (getvar "plinewid")) (setvar "plinewid" 0) (command "_pline" "_none" pd ) (setq i1 1) (repeat (- (length sommets) 1) (setq point (nth i1 sommets)) (command "_none" point) (setq i1 (1+ i1)) ) (command ) (setvar "plinewid" pw) (setq ent1 (entlast)) (command "_fillet" "_r" rayo) (command "_fillet" "_p" ent1) (setq angp90 (+ ang (/ pi 2)) angm90 (- ang (/ pi 2)) pd1 (polar pti angp90 ddia) pd2 (polar pti angm90 ddia) pti (cons ent1 (list pti)) ) (command "_offset" "_through" "_none" pti "_none" pd1 "") (setq ent2 (entlast)) (command "_offset" "_through" "_none" pti "_none" pd2 "") ; par (setq ent3 (entlast)) (command "_change" ent1 "" "_pr" "_lt" "axes2" "") (command "_explode" ent1) (command "_explode" ent2) (command "_explode" ent3) (if (>= rayo ddia) (if (= ddia 31.75) ;; soudure orbitale (progn (setq rayo 105) (soudure) (setq rayo 70)) (soudure) ) ) (command "_undo" "_e") (redraw) ) (ertuyau) )

C'est une remarque intêressante , car, pour ceux qui ne le savent pas, le café , le thé et l'alcool sont aussi des cancérigènes , à des degrés moindre que le tabac ,mais tout de même quand on met tout bout à bout avec la pollution multiforme etc..et , j'ai failli oublier " les graisses cuites " , on obtient ce que l'on sait : un nombre impressionnant de malades. Alors écoutons la publicité , mangeons des fruits et des légumes crus , sans pesticides de préférence , car ils nous protège du cancer. Ah ! n' oublions pas l'activité physique indispensable.

D'après un copain utilisateur de PDMS et de la 2007 il n'y a pas de passerelle pour l'instant. On peut simplement générer du DXF à partir de PDMS et le récupérer sous forme de fichier 2D sous autocad.

Non , c'est bien de la France qu'il s'agit , et c'est pour cette raison que je suis en pétard. C'est sûr , mais ça ne plait à personne de se faire avoiner, et je sais bien qu'il n'est pas facile d'arrêter le tabagisme. Ne vous faites pas d'illusion ,tout grand que nous semblons être , nous n'en sommes encore qu'au niveau de la maternelle. Si, vous êtes pressé de mourir , tachez de ne pas finir en loque humaine, après l'hôpital je vous conseille d'aller visiter les maisons de retraite. En ce qui me concerne , je prefère cotiser pour les retraite plutôt que pour la maladie. Cela rapporte beaucoup d'argent à certains et à l'etat mais au bout du compte l'ardoise est forcément négative pour la collectivité . Car le mal fait mal , c'est un règle malgré des apparences parfois trompeuses.

Quand j'etais au college , c'etait un prof contestataire qui fumait l'eucalyptus pour déranger la bonne conscience des fumeurs qui , alors, n'en avaient aucune vis à vis des autres. Peut être mais vous devriez faire des stages à l'hopital dans les services pour cancéreux , un peu comme on le fait pour les délinquants de la route . C'est ce que la majorité des fumeurs disent , le problème c'est que j'ai bien connu les B.E enfumés ,et personne ne sortait , sauf pour emboucaner les chiots ou aller au café. Je suis de nature conciliante , et ces jours ci , au boulot de voir les fumeurs au froid et au vent, me faisait un peu de peine et cela me semblait exagèré, mais hier au info j'ai entendu que les ventes de tabac avaient augmenté en 2006 , du coup la moutarde m'est montée au nez, alors vous pouvez vous les geler les castagnettes , et cette loi est vous fait le plus grand bien. Je pense que l'homme ne descend ni du singe , ni d'Adam et Eve mais d'un croisement entre la mule et le mouton et comme il ya déjà de l'âne dans la mule , on comprend que l'intelligence du comportement humain ne va pas loin.La crainte et la loi sont les principaux moteurs du changement , c' est quand même malheureux . Je suis informé que le tabac est nocif depuis l'ecole primaire et je suis né en 1955 , alors qu'on arrête avec les escuses bidons. Ajoutez aux cigarettes l'alcool et la mal bouffe et on a tout gagné , ça vous fait des alcolo vicieux qui battent leur femme et qui tripottent les gamines . Et ce ne sont pas des cas isolés . Et nous pendant ce temps on continue à lever le verre en toute bonne conscience , il faut bien profiter de la vie !

Désolé de te contredire winfield mais avec 2007 on peut exporter et importer un état des calques mais il faut d'abord l'enregistrer et d'autre part LMAN existe toujours.

Je vous propose un lisp que je me suis fais pour tracer du TUYAU 3D avec Autocad 2007 seulement, car la commande "balayage" est utilisée. Il comprend 2 commandes : "TU" pour générer un tube suivant un axe qui peut être : ligne, arc, cercle, hélice etc. et polylign 3d, pratique avec "polyfillet" de Gilles. Et "TUY" qui permet de tracer directement un tuyau en 3d avec ses coudes. Pour les 2 : si épaisseur différente de 0, le tube est creux, (ce qui est plutôt normal pour un tube), sinon il est tracé en forme de barre pleine. (Ce qui est plutôt normal pour une barre) L'inconvénient de "TUY" c'est que les coudes et les longueurs droites du tuyau tracé ne sont pas liés. Son avantage, c'est qu' il corrige les distances trop courtes pour placer un coude ,on peut démarrer ou finir avec un coude ,ou encore faire un coude seul et aussi une succession de coudes, pour cela il suffit que l'espacement entre points d'épures soit plus court que le ou les coudes , avant ou après ou les 2.Et c'est facile à modifier et à refaire depuis l'axe avec "TU". Je dois avouer que j'ai galéré avec la correction automatique car j'ai cumulé les erreurs. Ben ouais que voulez-vous, avec une pincée de neurones lispeurs ankylosés par l'inaction, l'accouchement a été pénible, mais je suis assez content du résultat, même s'il reste des imperfections. Pour finir j'espère qu'il vous sera utile et que vous l'adapterez à vos besoins ou que ça vous amusera de faire des tuyaux dans tous les sens, surtout en couleurs, c'est très jolie. PS: le choix des "DN" est dispo dans le menu contextuel, ainsi que l'option "Epaisseur", et le DN21 est en réalité du DN15 rayon 38. ;; TUY.LSP usegomme le 06-02-2007 corrigé le 19-08-08 ;; Tuyau 3d à partir d' autocad 2007 ;;; (defun diam-t3d (/ diam dn) (cond ((and (/= tuy:dn "Autre") (/= tuy:dn " ") (/= tuy:dn nil)) (setq dn tuy:dn) (initget "Autre") (setq dn (getreal (strcat "\nDiametre en DN [8/10/15/21/20/25/32/40/50/65/80/100/125/150/200/250/300/350/400/450/500/600/Autre en mm] DN<" (rtos dn 2 0) ">: "))) ) (T (initget "Autre") (setq dn (getreal (strcat "\nDiametre en DN [8/10/15/21/20/25/32/40/50/65/80/100/125/150/200/250/300/350/400/450/500/600/Autre en mm] : "))) ) ) (cond ((and (/= dn "A") (/= dn nil))(setq tuy:dn dn)) ((= dn nil) (if tuy:dn (setq dn tuy:dn))) ((= dn "A") (setq dn nil)) ) (cond ((= dn 8) (setq diam 13.5 rayo 20 )) ((= dn 10) (setq diam 17.2 rayo 25 )) ((= dn 15) (setq diam 21.3 rayo 27.5 )) ((= dn 21) (setq diam 21.3 rayo 38 )) ; dn15 inox ((= dn 20) (setq diam 26.9 rayo 28.5)) ((= dn 25) (setq diam 33.7 rayo 38)) ((= dn 32) (setq diam 42.4 rayo 47.5)) ((= dn 40) (setq diam 48.3 rayo 57)) ((= dn 50) (setq diam 60.3 rayo 76)) ((= dn 65) (setq diam 76.1 rayo 95)) ((= dn 80) (setq diam 88.9 rayo 114.5)) ((= dn 100) (setq diam 114.3 rayo 152.5)) ((= dn 125) (setq diam 139.7 rayo 190.5)) ((= dn 150) (setq diam 168.3 rayo 228.5)) ((= dn 200) (setq diam 219.1 rayo 305)) ((= dn 250) (setq diam 273 rayo 381)) ((= dn 300) (setq diam 323.9 rayo 457)) ((= dn 350) (setq diam 355.6 rayo 533.5)) ((= dn 400) (setq diam 406.4 rayo 609.5)) ((= dn 450) (setq diam 458 rayo 686)) ((= dn 500) (setq diam 508 rayo 762)) ((= dn 600) (setq diam 610 rayo 914)) ( T (cond ((and tuy:dia tuy:ray) (setq diam (getdist (strcat "\nDiametre Exterieur Tuyauterie ou 2 pts <" (rtos tuy:dia 2 4) ">: "))) (setq rayo (getdist (strcat "\nRayon coude ou 2 pts <" (rtos tuy:ray 2 4) ">: "))) (if diam (setq tuy:dia diam) (setq diam tuy:dia)) (if rayo (setq tuy:ray rayo) (setq rayo tuy:ray)) ) (T (setq diam (getdist "\nDiametre Exterieur Tuyauterie ou 2 pts : ")) (setq rayo (getdist "\nRayon coude , 2 pts ou <>: ")) (if (= rayo nil) (setq rayo (* diam 1.1))) (setq tuy:dia diam tuy:ray rayo) ) ) ) ) (setq ddia (/ diam 2)) (if (not (> rayo ddia)) (setq rayo (* ddia 1.1))) ) (defun tubage (ent pt / lent ) ;change proprietes de l'axe (setq lent (entget ent)) ;; si le code 62 pour la couleur est présent ... ;; Salut Gilles (if (assoc 62 lent) ;; ... le remplacer par un nouveau (setq lent (subst (cons 62 6) ;;Nouvelle couleur magenta (assoc 62 lent) lent) ) ;; sinon, en ajouter un (setq lent (append lent (list (cons 62 6)))) ;; magenta ) ;; idem pour type de ligne (if (assoc 6 lent) (setq lent (subst (cons 6 "AXES2") (assoc 62 lent) lent) ) (setq lent (append lent (list (cons 6 "AXES2")))) ) (entmod lent) (generetube ent pt) ) (defun generetube (ent pt / circonftuy) (if (or (= tuy:ep nil) (= tuy:ep 0.0)) (progn (command "_circle" "_none" pt ddia ) (if (= 0 (getvar "delobj"))(setq circonftuy (entlast))(setq circonftuy nil)) (command "_sweep" "_L" "" ent) ;; balayage (if circonftuy (entdel circonftuy)) ) (progn (command "_circle" "_none" pt ddia) (if (= 0 (getvar "delobj"))(setq circonftuy (entlast))(setq circonftuy nil)) (command "_sweep" "_L" "" ent) (if (= 2 (getvar "delobj"))(entdel ent)) (if circonftuy (entdel circonftuy)) (setq tubext (entlast)) (command "_circle" "_none" pt (- ddia tuy:ep)) (if (= 0 (getvar "delobj"))(setq circonftuy (entlast))(setq circonftuy nil)) (command "_sweep" "_L" "" ent) (if circonftuy (entdel circonftuy)) (command "_subtract" tubext "" "_L" "") ) ) ) (defun descoude ( L1 L2 pt long) (command "_fillet" L1 L2) ;; raccord (setq coude (entlast)) (if (or del1 (if dminp (= (- long dminp) dmin) (= long dmin))) (entdel L1) (tubage L1 pt) ; efface axe si longueur nulle ou tube ) (setq del1 nil) (tubage coude pt) ) (defun deterdmin ( / a a90 p) ;; determine la distance mini pour placer un coude (if dmin (setq dminp dmin)) ;;; dminp = dmin du coude precedent (if (= b (+ d01 d10)) (setq a180 t) (setq a180 nil)) ;; si angle 180 pas de coude mais prolongement (if (or (= d01 (+ b d10)) (= d10 (+ b d01))) (setq a0 t) (setq a0 nil) ;; si angle 0 pas possible alors arret ) (if (= (* b b) (+ (* d01 d01) (* d10 d10))) ;; si angle 90 dmin = rayon (setq a90 t dmin rayo) (setq a90 nil) ) (if (and (not a0) (not a90)(not a180)) ;;; si autre alors calcul (progn (setq p (/ (+ d01 d10 b) 2)) ;;; p=1/2 perimetre (setq a (abs (atan (sqrt (/ (* (- p d01)(- p d10)) (* p (- p b))))))) ;; 1/2 angle (setq dmin (* (cos a) (/ rayo (sin a)))) ) ) ) (defun onfekoi (L1 L2 pt1 pt2 pt3 d1 d2) (cond (a180 (tubage L1 pt2)) ;; angle 180 pas de coude mais continu (a0 (tubage L1 pt2) (entdel L2) (setq p0 nil p1 nil)) ;; angle 0 conserve 1er segment ; efface 2eme et arret ((and (not a0) (not a180)) (if (> rayo 0) (cond ((and (if dminp (>= (- d1 dminp) dmin) (>= d1 dmin)) (>= d2 dmin) ) (descoude L1 L2 pt2 d1) ;; ok longueur ) ((or (if dminp (< (- d1 dminp) dmin) (< d1 dmin)) (< d2 dmin) ) (correction L1 L2 pt1 pt2 pt3 d1 d2) ;;;; trop court donc correction ) ) (tubage L1 pt2) ;;; si rayon 0 pas de raccordement ;; ne devrait plus etre utile ) ) ) ) (defun correction (L1 L2 pt1 pt2 pt3 d1 d2) (setq lg (if dminp (+ dmin dminp) dmin)) (if (< d1 lg) (progn (setq pt1 (trans (cdr (assoc 10 (entget L1))) 0 1)) ;; retrouve 1er sommet (redefsommet pt1 pt2 d1 dmin) ;; redefini 2eme (entdel L1) ;; efface segment (command "_line" "_none" pt1 "_none" sbn "") ;; le redessine ; sbn = nouv sommet (setq L1 (entlast) ) (command "_move" L2 "" "_none" pt2 "_none" sbn) ;; deplace 2eme segment (setq pt2 sbn del1 t) ) ;;; progn ) ;;; if (cond ((> d2 dmin) (setq pt3 (trans (cdr (assoc 11 (entget L2))) 0 1)) ;;; retrouve 3eme sommet (if (= dp t) (setq p1 pt3 p0 pt2) (setq p0 pt3 p1 pt2) ) (descoude L1 L2 pt2 lg) ;; pas modif ok ) ((= d2 dmin) (descoude L1 L2 pt2 lg) (entdel L2) (setq p0 nil p1 nil) ;;; arret sur coude ) ((< d2 dmin) ;; modification L2 (if (< d1 lg) (progn (setq pt2 sbn) (setq pt3 (trans (cdr (assoc 11 (entget L2))) 0 1)) (setq d1 lg) ) ) (redefsommet pt2 pt3 d2 dmin) (command "_move" L2 "" "_none" pt3 "_none" sbn) (descoude L1 L2 pt2 d1) (entdel L2) (setq p0 nil p1 nil) ;;; arret sur coude ) ) ) (defun redefsommet (sa sb ab dist / h a za zb z y x b bn hn ap psbn) (setq h (- (caddr sb)(caddr sa))) ;;; hauteur triangle (if (= h 0.0) ;; si parallele plan xy (progn (setq a (angle sa sb)) (setq sbn (polar sa a dist)) ) ;; si vertical suivant axe Z (if (and (= (rtos (car sa) 2 1) (rtos (car sb) 2 1)) ;; probleme de precision avec deplacement ligne (= (rtos (cadr sa) 2 1) (rtos (cadr sb) 2 1)) ) (progn (setq za (caddr sa) zb (caddr sb)) (if (> za zb) (setq z (- za dist)) (setq z (+ za dist)) ) (setq x (car sa) y (cadr sa)) (setq sbn (list x y z)) ;;; nouv sommet b ) ;; orientation quelconque (progn (setq b (sqrt (- (* ab ab) (* h h)))) ;;; base triangle (setq hn (/ (* h dist) ab)) ;;; nouvelle hauteur (setq bn (/ (* b dist) ab)) ;;; nouvelle base (setq ap (angle sa sb)) ;;; angle projeté de ab (setq psbn (polar sa ap bn)) ;;; projection nouv sommet b (setq z (+ (caddr sa) hn)) ;;; z nouv pb (setq x (car psbn)) (setq y (cadr psbn)) (setq sbn (list x y z)) ;;; nouv sommet b ) ) ) ) (defun c:TUY (/ p0 p1 L01 L10 coude mtrim ent eptub ) (diam-t3d) (setq p1 nil dmin nil dminp nil L10 nil del1 nil) (if (not (tblsearch "ltype" "axes2")) (command "_-linetype" "_l" "AXES2" "" "")) (setvar "FILLETRAD" rayo) (setq mtrim (getvar "trimmode"))(setvar "trimmode" 1) (if (not tuy:ep) (setq tuy:ep 0)) (setq p0 "Epaisseur") (while (= p0 "Epaisseur") (initget "Epaisseur") (setq p0 (getpoint (strcat "\nPOINT DE DEPART ,[Epaisseur] = "(rtos tuy:ep 2 4)" :"))) (if (= p0 "Epaisseur") (progn (setq eptub (getdist (strcat "\nEpaisseur tube ou 2 pts <" (rtos tuy:ep 2 4) ">: "))) (if eptub (setq tuy:ep eptub)) ) ) ) (while p0 (if p1 (setq pd p1)) ;;; pd point de depart (setq p1 (getpoint p0 "\nPoint suivant : ")) (if p1 (progn (command "_line" "_none" p0 "_none" p1 "") (setq L01 (entlast) d01 (distance p0 p1) dp t) ;;; dp = dernier point p1 (if l10 ;;; si plusieurs boucles ;;;;;;; (progn (setq b (distance p1 pd)) ;;; b base triangle (deterdmin) (onfekoi L10 L01 pd p0 p1 d10 d01) ) ) (if p0 (setq pd p0)) (if p1 (setq p0 (getpoint p1 "\nPoint suivant : "))) (if p0 (progn (command "_line" "_none" p1 "_none" p0 "") (setq l10 (entlast) d10 (distance p1 p0) dp nil) (setq b (distance p0 pd)) (deterdmin) (onfekoi L01 L10 pd p1 p0 d01 d10) ) ) ) ;;; si p1 nil (progn (if (and l10 p0 ) (tubage l10 p0)) ;; si plusieurs boucles ;;;;;;; (setq p0 nil) ) ) ;;;; fin if p1 ) ;;; fin while (if (and l01 p1)(tubage l01 p1)) ;;;; termine dernier tronçon (setvar "trimmode" mtrim) (princ) ) (defun c:TU (/ sel typent ent pt eptub ) (diam-t3d) (if (not tuy:ep) (setq tuy:ep 0)) (initget "Epaisseur") (while (setq sel (entsel (strcat "\nSélectionner l'AXE du TUBE ,[Epaisseur] = "(rtos tuy:ep 2 4)" :"))) (if (= sel "Epaisseur") (progn (setq eptub (getdist (strcat "\nEpaisseur tube ou 2 pts <" (rtos tuy:ep 2 4) ">: "))) (if eptub (setq tuy:ep eptub)) ) (progn (setq typent (cdr (assoc 0 (entget (setq ent(car sel)))))) (cond ((or (= typent "LINE")(= typent "ARC")(= typent "POLYLINE")(= typent "LWPOLYLINE") (= typent "ELLIPSE")(= typent "CIRCLE")(= typent "SPLINE")(= typent "HELIX") ) (setq pt (cadr sel)) (generetube ent pt) ) ) ) ) ;; if ) (princ) ) (prompt "\n Taper : TUY pour tuyau 3D ou : TU pour tube 3D suivant un axe") (princ) [Edité le 19/8/2008 par usegomme]

Merci , ça tombe à pic , c'est justement ce dont j'ai besoin aujourd'hui.