\documentclass{article}
\usepackage{ProfCollege}
\begin{document}
\begin{Geometrie}[TypeTrace="Espace",CoinBG={u*(-10,-10)}]
Initialisation(5,20,20,50);
color A,B;
A=(1,4,3);
B=(5,0,3);
draw chemin((1,0,0),(1,4,0),A) dashed evenly;
draw chemin((5,0,0),B) dashed evenly;
trace segment(A,B) dashed evenly;
trace cercles(B,B+(0,0,2),B,B+(0,0,2),B+(0,-2,0));
path base;
base=cercles(A,A+(0,2,0),A,A+(0,2,0),A+(0,0,2));
trace subpath(0,110/360*length base) of base;
trace subpath(290/360*length base,length base) of base;
trace (subpath(110/360*length base,290/360*length base) of base) dashed evenly;
trace segment(A+2*(0,cosd(110),sind(110)),B+2*(0,cosd(110),sind(110)));
trace segment(A-2*(0,cosd(110),sind(110)),B-2*(0,cosd(110),sind(110)));
drawarrow segment((0,0,0),(6,0,0));
drawarrow segment((0,0,0),(0,6,0));
drawarrow segment((0,0,0),(0,0,6));
\end{Geometrie}
\end{document}