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]