ComplexParametricPlot[z_, range_List]:=
    ParametricPlot[{Re[z],Im[z]}, range]

ComplexParametricPlot[z_, range_List, table_List]:=
    ParametricPlot[Evaluate[Table[{Re[z],Im[z]}, table]], range]
