Vous le savez??

[lebidulle2]

Salut la team!!!

Je voudrais avoir la formule pour calculer un fond bombé elliptique.

Merci d'avance et longue vie à ce site

[lebidulle2]

Je voulais dire pour dessiné ;)

[(gile)]

Salut,

 

Dessiner en 3D j'imagine.

 

En surfacique, avec la commande Surface de révolution

 

En solide, avec la commande Révolution

[lebidulle2]

Non!! c'est juste pour dessiné le fond bombé j'avais la formule jadis et je ne l'ai plus. :(

[lebidulle2]

Bon je vois, que je me suis trompé de forum :casstet: .

Il sont où ces bons dessineux????? pô grave j'irais voir ailleurs.

Merci quand même :D

[Tramber]

Bon je vois, que je me suis trompé de forum :casstet: .

Il sont où ces bons dessineux????? pô grave j'irais voir ailleurs.

 

Ben oui, y a celui-là. Mais c'est vrai, il n'y a pas de forum chaudronnerie !

 

Faut voir aussi qu'on est en WE, pas idéal pour obtenir une formule.

[Concombre_masque]

Une formule pour dessiner des fonds elliptiques ? Jamais entendu parler. Je vois pas trop d'autre solution que de prendre les valeurs des fonds dans un livre type memotech structures métalliques. De dessiner l'ellipse, de la couper en deux, rajouter la partie platte et faire une révolution.

 

Valable aussi pour les fonds GRC / PRC sauf que là c'est pas des ellipses mais des ovales

[xl05]

Essai ceci : http:// http://perso.wanadoo.fr/maxence.delannoy/

[Concombre_masque]

Visiblement ce site n'est plus à jour et les liens sont cassés

[xl05]

Il faut aller dans la rubrique Téléchargement puis programmes AutoLISP

[AutoCadMan77]

Voici une petite routine qui sort tout droit de la version 1 de AutoFluid avant que cela existe.

 

(defun c:fondt (/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 sel dir dia ang

s plcour selarc1 selarc2 cenarc1 cenarc2 pt88 pt99)

(command "scu" "g")

(setvar "osmode" 512)

(setq pt1 (getpoint "\n 1er point..."))

(setvar "osmode" 128)

(setq pt2 (getpoint pt1 "\n 2em point..."))

(setq dia (distance pt1 pt2))

(setq ang (angle pt1 pt2))

(setq pt3 (polar pt1 ang (/ dia 2)))

(setvar "osmode" 512)

(setq pt4 (getpoint pt3 "\ndirection..."))

(setvar "osmode" 0)

(setq s (ssget pt1) plcour (cdr (assoc 8 (entget (ssname s 0)))))

 

;****************definition des points*************************

(setq dir (angle pt3 pt4))

(setq pt5 (polar pt3 (+ dir pi) dia))

(setq pt10 (polar pt5 dir dia))

(setq pt6 (polar pt5 (+ dir (/ pi 2)) (/ dia 2)))

(setq pt7 (polar pt5 (+ dir (* pi 1.5)) (/ dia 2)))

(setq pt9 (polar pt7 dir (* dia 0.866026)))

(setq pt8 (polar pt6 dir (* dia 0.866026)))

;****************commandes de dessin***************************

(command "_LAYER" "ch" plcour "")

(command "_LINE" pt6 pt7 "")

(setq sel (entlast))

(command "_TRIM" sel "" pt4 "")

(command "_ERASE" sel "")

(command "_ARC" pt8 pt10 pt9)

(setq sel (entlast))

(command "_FILLET" "r" (/ dia 10))

(command "_FILLET" pt10 pt6)

(setq selarc1 (entlast))

(command "_FILLET" pt10 pt7)

(setq selarc2 (entlast))

(command "_EXTEND" sel "" pt5 "")

(setq cenarc1 (cdr (assoc 10 (entget selarc1))))

(setq cenarc2 (cdr (assoc 10 (entget selarc2))))

(setq pt99 (inters cenarc1 cenarc2 pt7 pt9 nil))

(setq pt88 (inters cenarc1 cenarc2 pt6 pt8 nil))

(command "_LINE" pt88 pt99 "")

(command "scu" "p")

);fin du defun

(c:fondt)

 

AutoCadement votre. Et bon clic.

AutoCadMan77

 

[AutoCadMan77]

La même en beaucoup plus court.

 

(defun c:fond (/ ang1 ang2 couche dis1 ent1 plan pt1 pt2 pt3 pt4 pt5

pt6 pt7 pt8)

(setvar "osmode" 512)

(initget 1)

(setq pt1 (getpoint "\nCLIQUEZ SUR LE 1ER COTE DE LA TUYAUTERIE..."))

(setvar "osmode" 128)

(terpri)

(initget 33)

(setq pt2 (getpoint pt1 "\nCLIQUEZ SUR LE 2EME COTE DE LA TUYAUTERIE...")

plan (ssget pt2) couche (cdr (assoc 8 (entget (ssname plan 0)))))

(setvar "osmode" 0)

(setq ang1 (angle pt1 pt2)

dis1 (distance pt1 pt2)

pt3 (polar pt1 ang1 (/ dis1 2)))

(setvar "osmode" 512)

(terpri)

(initget 33)

(setq pt4 (getpoint pt3 "\nINDIQUEZ LA DIRECTION DE LA TUYAUTERIE A AJUSTER

(EN CLIQUANT SUR L'AXE)..."))

(setvar "osmode" 0)

(setq ang2 (angle pt3 pt4)

pt5 (polar pt3 ang2 (/ dis1 4)))

(command "_layer" "_s" couche ""

"_line" pt1 pt2 ""

"_arc" pt1 pt5 pt2)

(setq ent1 (entlast)

pt6 (polar pt1 ang2 (/ dis1 3))

pt7 (polar pt2 ang2 (/ dis1 3))

pt8 (polar pt3 ang2 (/ dis1 3)))

(command "_line" pt6 pt7 "")

(setq ent2 (entlast))

(command "_extend" ent2 "" pt1 pt2 pt3 ""

"_erase" ent2 "")

(command "_trim" ent1 "" pt6 pt7 pt8 "")

)fin du defun fond

(c:fond)

 

AutoCadement votre. Et bon clic.

AutoCadMan77

[AutoCadMan77]

Si vous avez d'autres besoins en clim ou plomberie..... Ne pas hésiter !!!

 

AutoCadement votre. Et bon clic.

AutoCadMan77