ParametricPlot3D[{Sin[t],Cos[t],t/8},{t,-4,5}, PlotStyle->AbsoluteThickness[5.]]

ParametricPlot3D[{{Sin[t],Cos[t],t/8},{.7,.7,Pi/32}+t{.7,-.7, 1/8 }},{t,-4,5}, PlotStyle->{AbsoluteThickness[5.]}]

ParametricPlot[{Sin[t],Sin[2t]},{t,0,2Pi}, PlotStyle->{AbsoluteThickness[5.]}]

ParametricPlot3D[{{Cos[t],Sin[t],1},{Cos[t],Sin[t],-1}},{t,0,10},PlotRange->{{-1,1},{-1,1},{-1,2}},PlotStyle->{AbsoluteThickness[5.]}]