Absence de marquage d'un point

N'oubliez pas de consulter les sujets avant de poser votre question, merci.

Absence de marquage d'un point

Messagepar Fabrice » 16 Déc 2013 21:04

Bonsoir Patrick,
Dans le code ci-après, je ne vois pas le marquage des points I et J. D'ailleurs, est-il possible d'avoir un simple trait pour le marquage des points ?
Code: Tout sélectionner
[
     view(-3,4,-3.5,4.5), Marges(0,0,0,0), size(10),
     a:=4, Cube:=Parallelep(Origin,vecI,vecJ,vecK),
     S1:=Origin,S2:=M(a,0,0),S3:=M(a,a,0),S4:=M(0,a,0),S5:=M(0,0,a),
     S6:=bary3d([S5,-1,S3,-1]),S7:=bary3d([S5,2,S4,1]),
     HideStyle:=userdash, HideWidth:=4,Width:=10,
     Dpyramide([S1,S2,S3,S4],S5,0),
     DotStyle:=cross, DotScale:=1.5,
     LabelDot3D(S2,"A","S"), LabelDot3D(S3,"B","S"), LabelDot3D(S4,"C","E"),
     LabelDot3D(S5,"S","N"),LabelDot3D(S1,"D","O"),LabelDot3D(S6,"I","E"),
     LabelDot3D(S7,"J","E")
    ]   

Merci.
Fabrice
 
Messages: 139
Inscription: 14 Août 2009 12:22

Re: Absence de marquage d'un point

Messagepar P.Fradin » 16 Déc 2013 21:56

Bonsoir,

Il faut ajouter une option:
Code: Tout sélectionner
LabelDot3D(S6,"I","E",1),
LabelDot3D(S7,"J","E",1)


Par contre, pour avoir un seul trait il faut une macro spécifique. Ca t'intéresse ?
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Absence de marquage d'un point

Messagepar Fabrice » 16 Déc 2013 22:08

Salut Patrick,
Oui, cela m'intéresse.
Merci.
Fabrice
 
Messages: 139
Inscription: 14 Août 2009 12:22

Re: Absence de marquage d'un point

Messagepar P.Fradin » 16 Déc 2013 23:08

La macro mark3D
Code: Tout sélectionner
[
{mark3D(point, vecteur <, longueur>)}
$V:=Proj3D(%2), $V1:=RealCoordV(V), $a:=Proj3D(%1), L:=%3,
if L=Nil then L:=0.25 fi,
U:=ScrCoordV(L*i*V1/abs(V1)/2),
Ligne([a-U,a+U],0),
]


Dans ton code
Code: Tout sélectionner
[
         view(-3,4,-3.5,4.5), Marges(0,0,0,0), size(10),
         a:=4, Cube:=Parallelep(Origin,vecI,vecJ,vecK),
         S1:=Origin,S2:=M(a,0,0),S3:=M(a,a,0),S4:=M(0,a,0),S5:=M(0,0,a),
         S6:=bary3d([S5,-1,S3,-1]),S7:=bary3d([S5,2,S4,1]),
         HideStyle:=userdash, HideWidth:=4,Width:=10,
         Dpyramide([S1,S2,S3,S4],S5,0),
         DotStyle:=cross, DotScale:=1.5,
         LabelDot3D(S2,"A","S"), LabelDot3D(S3,"B","S"), LabelDot3D(S4,"C","E"),
         LabelDot3D(S5,"S","N"),LabelDot3D(S1,"D","O"),LabelDot3D(S6,"I","E"),
         LabelDot3D(S7,"J","E"),
         mark3D(S6,S5-S3),
         mark3D(S7,S5-S4)
        ]

mark3D.png
mark3D.png (8.67 Kio) Consulté 7147 fois
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Absence de marquage d'un point

Messagepar Fabrice » 17 Déc 2013 00:42

C'est nickel, merci.
Fabrice
 
Messages: 139
Inscription: 14 Août 2009 12:22


Revenir vers Questions - Réponses

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 16 invités

cron