Petit jeu spécial pour Eric

[kallain]

(command "_.polygon" 3 "_edge" "_none" "*0.0,0.0,0.0" "_none" "@1.0,0.0")

(command "_.extrude" (entlast) "" (sqrt 0.75) "_none" "*0.0,0.0,0.0" (polar '(0.0 0.0 0.0) (atan (/ (/ 0.5 (* (sqrt 0.75) 2)) (sqrt 0.75))) 1.0))

 

 

Après ces 2 commandes Autocad (2004) me demande :

Spécifiez l'angle d'extrusion <0>:

 

si je réponds 0, j'obtiens un biseau

 

si je réponds 45, 75 ou 90, j'obtiens une pyramide tronquée

[bonuscad]

Essayes si tu es en degré par défault:

 

(command "_.extrude" (entlast) "" (sqrt 0.75) (angtos (atan (/ (/ 0.5 (* (sqrt 0.75) 2)) (sqrt 0.75))) 0 14))

 

Autrement je ne vois pas ce qui cloche!

 

Avec le calcul exact cette fois çi:

 

Fonctionne en degré dans sens trigo

 
(command "_.polygon" "3" "_edge" "_none" "*0,0,0" "_none" "1,0")
(command "_.extrude" (entlast) ""
(sqrt (- 1 (* (* (/ (sqrt 0.75) 3) 2) (* (/ (sqrt 0.75) 3) 2))))
(angtos
	(atan
		(/ 
			(/ (sqrt 0.75) 3)
			(sqrt (- 1 (* (* (/ (sqrt 0.75) 3) 2) (* (/ (sqrt 0.75) 3) 2))))
		)
	)
	0 14
)
) 

 

[Edité le 17/1/2006 par bonuscad]

[(gile)]

Pour la méthode de Bonuscad, les cotes de hauteur et d'angle d'extrusion sont plus haut.

 

Le code pour que toutes les arrêtes soient égales est donc :

 

(command "_.polygon" 3 "_edge" "_none" "*0.0,0.0,0.0" "_none" "@1.0,0.0")
(command "_.extrude"
 (entlast)
 ""
 (/ (sqrt 6) 3)
 "_none"
 "*0.0,0.0,0.0"
 (polar	'(0.0 0.0 0.0)
	(atan (/ (/ (sqrt 3) 6) (/ (sqrt 6) 3)))
	1.0
 )
)

.

 

La méthode que je voulais proposer est moins "facile" que celle du lien donné par Eric, mais elle est aussi entièrement graphique (pas de trigo ni autres calculs) et permet peut-être plus facilement de choisir la longuer des arrêtes.

 

Le but est de trouver la hauteur du sommet projeté sur la vue en plan.

Tout d'abord, on dessine la vue de dessus du tétraèdre et de placer l'origine du SCU au milieu d'un des côtés :

 

http://img35.imageshack.us/img35/9376/tetra17fc.png

 

Ensuite, dans une vue isométrique, on fait une rotation du SCU de 90° sur l'axe qui contient la projection d'une arrête.

 

De la projection du sommet, on dessine une ligne d'une longueur au moins égale à la longueur d'un côté (ou une demi droite).

Du sommet situé sur l'axe du SCU (ici Y) on dessine un cercle ayant pour rayon la longueur d'un côté.

Le sommet du tétraèdre est situé à l'intersection de la ligne et du cercle.

 

http://img35.imageshack.us/img35/1017/tetra29eb.png

 

Le sommet ainsi défini, on peut faire le tétraèdre en filaire, surfacique ou soilde (extrusion et section).

 

http://img68.imageshack.us/img68/1763/tetra33zo.png

 

 

[(gile)]

On peut aussi utiliser la méthode de Bonuscad mais sans LISP, avec la calculatrice géométrique d'AutoCAD.

 

Exemple pour un tétraèdre de une unité de côté

 

Commande: _extrude

Densité courante de la représentation filaire: ISOLINES=4

Choix des objets: 1 trouvé(s)

 

Choix des objets:

 

Spécifiez la hauteur de l'extrusion ou [Chemin]: 'cal

>>>> Expression: sqrt(6)/3

 

Reprend la commande EXTRUSION.

 

Spécifiez la hauteur de l'extrusion ou [Chemin]: 0.81649658092773

 

Spécifiez l'angle d'extrusion : 'cal

>>>> Expression: atan(sqrt(3)/(sqrt(6)*2))

 

Reprend la commande EXTRUSION.

 

Spécifiez l'angle d'extrusion : 19.471220634491

 

NOTA : dans cet exemple, je donne la hauteur juste, il faut, en fait, spécifier une hauteur au moins égale à celle-ci, en spécifiant la longueur du côté on est sûr d'être suffisamment haut.

J'ai aussi réduit l'expression pour l'arc tangent, on peut faire de même dans le LISP.

[Tramber]

Dans le même esprit on peut faire l'intersection de 3 boules soildes et ca marche tout seul, y a plus qu'à pointer le point !

[bonuscad]

Pouff..., ces allumettes pour les faire tenir :casstet:

 

Allez pour le Fun le dernier jus.

Merci à (gile) pour son raccourci sur la formule ;)

 

((lambda ( / dxf_ent lst_pt lg h alpha)
(command "_.polygon" "3"
	(while (not (zerop (getvar "cmdactive")))
		(command pause)
	)
)
(setq
	dxf_ent (entget (entlast))
	lst_pt (vl-remove-if-not '(lambda (x) (= (car x) 10)) dxf_ent)
	lg (distance (cdar lst_pt) (cdadr lst_pt))
	h (* lg (/ (sqrt 6) 3))
	alpha (atan (/ (/ (sqrt 3) 6) (/ (sqrt 6) 3)))
)
(command "_extrude" (entlast) "" h
	"_none" (getvar "lastpoint")
	"_none" (polar (getvar "lastpoint") alpha lg)

;;REM à enlever et à placer devant LES "_none" précédents pour fonctionner en entrée unique
;		(angtos alpha (getvar "AUNITS") 14)
;

)
))

[Tramber]

citation extraite du message original:

Alors toujours personne pour construire facilement en 3D cette pyramide ?

 

Je boude, parce que la meilleure méthode, je trouve que c'est la mienne.

 

Ce matin, en me rasant, j'ai aussi trouvé que c'était moi le plus beau :D .

[bonuscad]

Je n'ai pas essayé ta méthode, mais elle doit être valable ;)

 

Tu dois faire des opérations booléenne en plus!

Remarque, c'est ce que doit faire la commande "_.extrude" avec un angle d'extrusion, mais ces opérations sont invisibles.

 

Donc je penses qu'au final, c'est la même chose; "ON EST LES MEILLEURS" :)

[kallain]

Donc je penses qu'au final, c'est la même chose; "ON EST LES MEILLEURS"

 

Eh les gars deconnez pas ;)

 

C'est moi qui pose la question et ma solution est la plus rapide. POINT

 

PS : vient de découvrir dans Autocad(2004) : [surligneur] 3D, pyramide[/surligneur] :question: :hallucine:

[bonuscad]

"ON EST LES MEILLEURS"

J'ai pas suivi le protocol de Christian mettre en Italique :exclam:

 

PS : vient de découvrir dans Autocad(2004) : 3D, pyramide

 

Ces commandes produisent des Solides ou 3Dfaces ?

 

En 3Dfaces cela existe depuis longtemps.

[Tramber]

Attendez les gars, vous êtes tous bien gentils mais vous avez tous des solutions avec des calculs de valeurs.

 

D'accord, j'ai une intersection à faire en booléens mais au total je prends 25 secondes à partir de la commande polygone et je ne saisis aucune côte, longueur ou coordonnée !

[fhughes]

Et ça, on fait comment ?

http://img329.imageshack.us/img329/8365/ballondefoot0yw.jpg

 

J'aimerai quelques ficelles...

 

[Edité le 6/2/2006 par fhughes]