usegomme

Coucou Dans le temps le mode ISOMETR était indispensable, mais aujourd'hui avec le mode polaire on s'en passe très bien . L'isometrique de tuyauterie a des règles de dessin et de cotation qui sont bien définies.

Bonjour , Etude0 n'étant pas trés fort pour les explications , je vais essayer de faire un peu mieux. Un isométrique de tuyauterie est un document pour la réalisation en atelier d'une tuyauterie et pour la compréhension du tuyauteur , le tuyau est dessiné en fausse perspective de manière à avoir une représentation qui ressemble à de la 3d ,mais en unifilaire. c'est pour cela que l'on ne peut pas avoir de cotation en vraie grandeur d'autant que l'on s'arrange comme on peut pour faire rentrer le tuyau dans la feuille. Personnellement , je les fais encore le plus souvent au crayon et j'use de la gomme car ça reste plus rapide qu'autocad même si je me suis fait une palette d'outils spécialement pour cet usage. Il existe bien sûr des logiciels spécialisés qui, à partir de la 3d produisent les isométriques automatiquement . [Edité le 22/5/2009 par usegomme]

Salut , merci pour ces info, j'ai de grosses lacunes mais petit à petit je ferai bien quelques progrès , je ne suis pas encore fossilisé. :)

Très clair , merci , t'es top. C'est très intéressant de voir comme tu arrives à tirer le meilleur du language lisp, ça en devient artistique, la recherche de la perfection et de la beauté sont des expressions de l'Amour.Bon exemple à suivre. Tout ça me donne envie d' apprendre , j'aurai grand besoin d'une formation lisp pour aller plus loin que mon niveau "école primaire", enfin bon c'est une autre histoire. Salut et encore merci pour ton aide sur les forums.

Bonjour, J'aimerai , si tu le veux bien (gile) et si tu as le temps, que tu nous expliques comment fonctionne ton lisp car je n'arrive déjà pas à comprendre ce qui se passe au niveau des ssget , alors la suite ?

Version 2.3 au dessus, même modif que pour redacier.

Salut , s'il y a des dimensions qui te semblent utile je peux toujours les rajouter à condition d'avoir les valeurs. ps: je fais un petite rectification au lisp voir plus haut.

Désolé je ne trouve pas ton site .

???? Si quelqu'un a un décodeur, je suis preneur, merci d'avance !

Salut , Oui mais tu ne connais pas le "phénomène" , je pense qu'il lui faudrait un miracle .

Tu as bien fait de te répéter Christian, car j'étais passé au travers complet , comme quoi il ne suffit pas de savoir lire. Pour ce qui est du cartouche, entre la règle et le bricolage il y a souvent un grand écart . Chez nous l'espace papier est encore occationnel car j'en connais un qui en est allergique.

Bonjour , c'est normal depuis je ne sais quelle version , je ne sais pas s'il y a une variable , aussi je t'ai fait un mini lisp qui te permettra d'avoir les accrochages mais il n'est pas transparent, pour ce faire il faudrait inclure une macro dans le menu. (defun c:za (/ a b) (setq a (getpoint "\n zoom 1er coin ")) (setq b (getcorner a "\n zoom 2eme coin ")) (command "_zoom" a b)(princ) )

Je crois qu'on s'embrouille sur la terminologie, car effectivement j'ai testé sur une vue orientée façon isométrique mais pas sur une vue en perspective selon la vraie définition. [Edité le 27/4/2009 par usegomme]

J'ai fait quelques essais avec la 2008 et j'ai des problèmes de cotation en cas de modification de l'iso, le plus souvent il faut refaire la cote.

Salut , mais si , FRAXA a trouvé la méthode c'est dans le forum 2005. Je ne comprend pas où est-ce que tu bloques Etude0 . Avec 2008 la cde changer d'espace est dans le menu modification [Edité le 27/4/2009 par usegomme]

Salut As-tu essayé de modifier la config de transfert de etransmit , il y a 3 options concernant les dossiers ?

Bonjour , mon silence n'était pas pour raison de "gonflage" , mais simplement parce que je n'avais pas vu ta demande. J'ai modifié le lisp , il te reste à vérifier si c'est ok. a+

Salut , tout ça est bien sympathique , effectivement je ne voulais pas être méchant. Simplement hier soir vos échanges faisaient un peu école maternelle et vous m'avez fait rire de bon coeur et avec Damien qui arrivait d' on ne sait d' où , je me suis souvenu de cette histoire de texto. En tout cas , je passe de bons moments sur Cadxp même si des fois ça chauffe un peu. A+

Bonsoir , moi ça me fait bien marrer , ça me fait penser à ma fille et son copain qui s'envoyaient des texto en étant assis l'un à coté de l'autre.

Pour ceux qui auraient loupé le coche je rappelle qu'il y a aussi bride.lsp de Bonuscad car ce lisp est un peu perdu dans un post .

Bonjour , ayant eut des critiques de mon collègue Jean-François , j'ai modifié le lisp , voir post au dessus.

Bonjour tous le monde Et félicitation Patrick ,c'est une nouvelle qui fait plaisir et une bonne surprise car je me souviens de ce que tu avais dit de l'amour il y a quelques années (peut être dans un moment d'emportement).

J'ai qu'en même modifié le lisp pour que tu puisses cliquer dans l'axe .(en vue iso). A+

Salut Thry0 , J'avais remarqué , mais je n'ai pas creusé , qu'en tirant droit il se crée un déport, perso je répond simplement avec un clic droit , mais peut être que pour toi c'est un appel de menu contextuel et ça je n' y avais pas pensé. Est-ce le cas ? Les façons de travailler de chacun peuvent être si différentes que les remarques sont toujours intéressantes.

J'ai amélioré la forme de la réduction qui est maintenant presque réelle. ; Réduction ACIER en 3D version 2.2 ; usegomme le 01/04/2009 - 22/04/09 (defun trcc3d (cb1 rb1 cb2 rb2 eptrc / b b2 trc rb1i rb2i) (setq rb1i (- rb1 eptrc) rb2i (- rb2 eptrc)) (command "_circle" "_none" cb1 rb1i) (setq b (entlast)) (command "_circle" "_none" cb2 rb2i) (setq b2 (entlast)) (command "_loft" b b2 "" "") (setq trc (entlast)) (command "_circle" "_none" cb1 rb1) (setq b (entlast)) (command "_circle" "_none" cb2 rb2) (setq b2 (entlast)) (command "_loft" b b2 "" "") (command "_subtract" "_L" "" trc "" ) ) (defun c:RedAcier (/ pd pdir pf pfd r1 r2 r3 a h d1 d2 e pm rm part1 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 (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)) ) ) ) ) (if sv_dm (setvar "DYNMODE" sv_dm)) ) ) (cond (d2 (setq hc (/ (* (sin (* pi (/ 75 180.0))) (abs (/ (- d1 d2)2))) (cos (* pi (/ 75 180.0))))) (setq hd (- h hc)) (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) pf (polar pf a (- r1 r2)))) (entdel b)(entdel b2) (if (> r1 r2) (setq pm (list (car pd)(cadr pd) hd) rm r1) (setq pm (list (car pf)(cadr pf) hc) rm r2) ) (trcc3d pd r1 pm rm e) (setq part1 (entlast)) (trcc3d pm rm pf r2 e) (command "_.union" part1 (entlast) "") ) ) (gc) (if pdir (command "_ucs" "_p")) (command "_undo" "_e") (princ "Longueur ")(princ h) (princ) ) [Edité le 3/4/2009 par usegomme] [Edité le 7/5/2009 par usegomme]