Используйте Show
для объединения графических объектов.
Show[Plot[Sin[x],{x,0,10}], Plot[Cos[x],{x,0,10}]]
РЕДАКТИРОВАТЬ Если вы хотите нарисовать несколько линий, то создайте свой объект Graphics
из нескольких линий:
Graphics[ Table[ Line[{{0,0}, {Cos[x],Sin[x]}}], {x,0,Pi,Pi/10} ] ]