1. cone[heiht_, base_, {x_, y_, z_}, {ax_, ay_, az_}] :=
    2.  Module[{c1, c2, c3, c4, c5},
    3.   c1 = RevolutionPlot3D[{t, -heiht *t*2}, {t, 0, base}, Mesh -> None];
    5.   c2 = Rotate[c1[[1]], ax, {1, 0, 0}];
    6.   c3 = Rotate[c2, ay, {0, 1, 0}];
    7.   c4 = Rotate[c3, az, {0, 0, 1}];
    8.   c5 = Translate[c4, {x, y, z + heiht*base}];
    9.   c5
    10.   ]
    11. torus := {};
    12. snowman3D[bodyRadius_] := Module[
    13.    {bodyCenter = {0, 0, 0},
    14.     torsoRadius = bodyRadius/GoldenRatio,
    15.     headRadius = bodyRadius/GoldenRatio^2,
    16.     torsoCenter,
    17.     headCenter,
    18.     leftShoulder,
    19.     rightShoulder,
    20.     buttonSize = bodyRadius/10,
    21.     buttonStp = bodyRadius/3.3,
    22.     leftHand,
    23.     rightHand,
    24.     mouthCenter,
    25.     leftEyeCenter,
    26.     rightEyeCenter},
    27.    (*************************************************)
    28.    (*************************************************)
    29.    torsoCenter = {
    30.      bodyCenter[[1]],
    31.      bodyCenter[[2]],
    32.      bodyRadius + torsoRadius};
    34.    headCenter = {bodyCenter[[1]], bodyCenter[[2]], 
    35.      bodyRadius + 2 torsoRadius + headRadius};
    37.    leftShoulder = 
    38.     torsoCenter + {torsoRadius*Sin[-Pi/3], 0, torsoRadius*Cos[-Pi/3]};
    40.    leftHand = 
    41.     torsoCenter + {2.5 torsoRadius*Sin[-Pi/3], 0, 
    42.       3 torsoRadius*Cos[-Pi/3]};
    43.    rightShoulder = 
    44.     torsoCenter + {torsoRadius*Sin[Pi/3], 0, torsoRadius*Cos[Pi/3]};
    46.    rightHand = 
    47.     torsoCenter + {2.5 torsoRadius*Sin[Pi/3], 0, 
    48.       3 torsoRadius*Cos[Pi/3]};
    50.    leftEyeCenter = 
    51.     headCenter + {0.5 headRadius*Sin[-Pi/4], -0.8 headRadius, 
    52.       0.5 headRadius*Cos[-Pi/4]};
    54.    rightEyeCenter = 
    55.     headCenter + {0.5 headRadius*Sin[Pi/4], -0.8 headRadius, 
    56.       0.5 headRadius*Cos[Pi/4]};
    58.    mouthCenter = 
    59.     headCenter + {0.75 headRadius*Sin[Pi], -25, 
    60.       0.75 headRadius*Cos[Pi]};
    61.    (*************************************************)
    62.    (*************************************************)
    63.    Graphics3D[{
    64.      Sphere[bodyCenter, bodyRadius],
    65.      Sphere[torsoCenter, torsoRadius],
    66.      Sphere[headCenter, headRadius],
    67.      Cylinder[{leftShoulder, leftHand}, 1.5],
    68.      Cylinder[{rightShoulder, rightHand}, 1.5],
    69.      Sphere[leftEyeCenter, headRadius/4],
    70.      Sphere[rightEyeCenter, headRadius/4],
    71.      cone[headRadius/4, headRadius/4, 
    72.       headCenter - {headRadius/8, 2 headRadius, 
    73.         0.75 headRadius}, {90 Degree, 180 Degree, -5 Degree}]}, 
    74.     Axes -> True, AxesLabel -> {"x", "y", "z"}
    75.     ]
    76.    ];
    77. snowman3D[30]

    效果图：
    image.png