family1 = ContourPlot[
{x^2 + y^2 - Range[-3, 3,.5] *x == 0},
{x, -3, 3}, {y, -3, 3}];
family2 = ContourPlot[
{x^2 + y^2 - Range[-3, 3,.5] *y == 0},
{x, -3, 3}, {y, -3, 3}, ContourStyle -> {Red,Dashed}];
Show[family1, family2]
family1 = ContourPlot[
{x*y - Range[-3, 3,.5]  == 0},
{x, -3, 3}, {y, -3, 3}];
family2 = ContourPlot[
{x^2 - y^2 - Range[-3, 3,.5]== 0},
{x, -3, 3}, {y, -3, 3}, ContourStyle -> {Red,Dashed}];
Show[family1, family2]