Show[Graphics[{Blue,Thickness[0.005],Line[{{2300,100},{2460,100},{2460.015,300},{2500,300}}]}],
Graphics[{Red,Thickness[0.005],Line[{{2300,0},{2460.150,0},{2460.150+0.015,600},{2500,600}}]}],
Graphics[{Black,Thickness[0.005],Line[{{2460.275,-100},{2460.275,1200}}]}],
Frame->True,AspectRatio->1/GoldenRatio,PlotRange->{2460+{-0.1,0.4},{-20,920}},PlotRangeClipping->True,BaseStyle->{FontFamily->"Times",FontSize->18},FrameLabel->{"Cycle time [ms]","(Subscript[V, RF]) [kV]"},FrameStyle->Thickness[0.003],ImageSize->400]
Export[ToFileName[NotebookDirectory[EvaluationNotebook[]],"300kV600kV.eps"],%]

Show[Graphics[{Blue,Thickness[0.005],Line[{{2300,100},{2460+0.015,100},{2460.015+0.015,300},{2500,300}}]}],
Graphics[{Red,Thickness[0.005],Line[{{2300,0},{2460.150+0.015,0},{2460.150+0.015+0.015,900},{2500,900}}]}],
Graphics[{Black,Thickness[0.005],Line[{{2460.275,-100},{2460.275,1200}}]}],
Frame->True,AspectRatio->1/GoldenRatio,PlotRange->{2460+{-0.1,0.4},{-20,920}},PlotRangeClipping->True,BaseStyle->{FontFamily->"Times",FontSize->18},FrameLabel->{"Cycle time [ms]","(Subscript[V, RF]) [kV]"},FrameStyle->Thickness[0.003],ImageSize->400]
Export[ToFileName[NotebookDirectory[EvaluationNotebook[]],"300kV900kV.eps"],%]