# How can I draw dashed line behind of a cone? [duplicate]

I use 3dtools to draw this cones

I see difficult when I use Mathematica

Graphics3D[Cone[{{0, 0, 0}, {0, 0, 3}}, 2], Boxed -> False]


How can I draw dashed line behind of a cone?

UPDATE

I tried

    basegraph =
Graphics3D[Cone[{{0, 0, 0}, {0, 0, 1}}, 1.2], Boxed -> False]
ResourceFunction["Graphics3DSketch"][basegraph]


I get

How can I get shaded cone like my picture?

• Have you seen 256898 ?
– Syed
Aug 20 at 14:23
• Also see Graphics3DSketch from the Wolfram Function Repository mentioned in this popular post.
– Syed
Aug 20 at 14:32
• Thanks. I will try. Aug 20 at 14:35
• You can also use the trick I used in this answer Aug 20 at 17:33
• DynamicModule[{point = 4 {1, -1, 1}, vertical = {0, 0, 1}, angle = 10 Degree}, Overlay[ Graphics3D[#, Boxed -> False, Lighting -> DirectionalLight[White, {{1, 0, 1}, {0, 0, 0}}], ViewPoint -> Dynamic@point, ViewVertical -> Dynamic@vertical, ViewAngle -> Dynamic@angle] & /@ {{EdgeForm[ AbsoluteThickness[3]], Cone[{{0, 0, 0}, {0, 0, 3}}, 2]}, {EdgeForm[ Directive@{AbsoluteThickness[2], AbsoluteDashing[{1, 9}, 0, "Round"]}], FaceForm[], Cone[{{0, 0, 0}, {0, 0, 3}}, 2]}}, All, 1] ] Aug 21 at 13:10

Use the excellent answer of @LukasLang, we complete the animation。

Animate[DynamicModule[{point = 10 {Cos[t], Sin[t], .5},
vertical = {0, 0, 1}, angle = 8 Degree},
Overlay[Graphics3D[#, Boxed -> False,
Lighting -> DirectionalLight[White, {{1, 0, 1}, {0, 0, 0}}],
ViewPoint -> Dynamic@point, ViewVertical -> Dynamic@vertical,
ViewAngle -> Dynamic@angle] & /@ {{EdgeForm[
AbsoluteThickness[3]],
Cone[{{0, 0, 0}, {0, 0, 3}}, 2]}, {EdgeForm[
Directive@{AbsoluteThickness[2],
AbsoluteDashing[{2, 6}, 0, "Round"]}], FaceForm[],
Cone[{{0, 0, 0}, {0, 0, 3}}, 2]}}, All, 1]], {t, 0,
2 π, .1}, AnimationRate -> 5]