dline := 12;
d1g1lbl := 2;
d2g1lbl := 2;
d1g2lbl := 2;
d2g2lbl := 2;
vsize := 200;
hsize := 300;
DrawDiagrams[x0_, x1_, y1_, x2_, y2_, d1_, a1_, d2_, a2_] :=
 {Graphics[{
    Arrow[{{0, 0}, {x0, 0}}],
    Arrow[{{0, 0}, {x1, y1}}],
    Arrow[{{0, 0}, {x2, -y2}}],
    Text[ToString[PaddedForm[a1, {3, 1}]] <> "\[Degree]", {6, 1.5}],
    Text[ToString[PaddedForm[a2, {3, 1}]] <> "\[Degree]", {6, -2}],
    Text[ToString[PaddedForm[d1, {3, 1}]] <> " cm", {x1/2 - d1g1lbl,
      y1/2 + d1g1lbl}],
    Text[ToString[PaddedForm[d2, {3, 1}]] <>
      " cm", {x2/2 - d2g1lbl, -y2/2 - d2g1lbl}],
    Text[ToString[PaddedForm[x0, {3, 1}]] <> " cm", {x0*0.6, 2}]
    },
   ImageSize -> {hsize, vsize}, Axes -> {True, True},
   AxesStyle -> {Black, Directive[Dashed, Black]},
   AxesLabel -> {"x", "y"},
   Ticks -> {{10, 20, 30, 40, 50}, {-20, -10, 10, 20}}
   ],
  Graphics[{
    Arrow[{{0, 0}, {x0, 0}}],
    Arrow[{{0, 0}, {x1, y1}}],
    Arrow[{{x1, y1}, {x1 + x2, y1 - y2}}],
    {Dashed, Line[{{x1 - dline, y1}, {x1 + dline, y1}}]},
    Text[ToString[PaddedForm[a1, {3, 1}]] <> "\[Degree]", {6, 1.5}],
    Text[ToString[PaddedForm[a2, {3, 1}]] <> "\[Degree]", {x1 + 7,
      y1 - 2}],
    Text[ToString[PaddedForm[d1, {3, 1}]] <> " cm", {x1/2 - d1g2lbl,
      y1/2 + d1g2lbl}],
    Text[ToString[PaddedForm[d2, {3, 1}]] <>
      " cm", {x1 + x2/2 + d2g2lbl, y1 - y2/2 + d2g2lbl}],
    Text[ToString[PaddedForm[x0, {3, 1}]] <> " cm", {x0*0.6, 2}]
    },
   ImageSize -> {hsize, vsize}, Axes -> {True, True},
   AxesStyle -> {Black, Directive[Dashed, Black]},
   AxesLabel -> {"x", "y"},
   Ticks -> {{10, 20, 30, 40, 50}, {-20, -10, 10, 20}}
   ]
  }