Wolfram mathematica 在Mathematica中沿三维路径移动AutoCad DXF实体

我偶然发现贝里萨利斯的回答很有趣。想知道他是否有人可以把他的 完成mma代码并给出一些解释。总的来说，我的问题是如何在mma中实现这种annimation/plotting行为。对我来说它看起来太棒了

---

非常感谢

如果需要进一步解释，请告诉我

x[t_] := {Cos@t, Sin@t, .1  t} /; t <= 3 Pi;
x[t_] := {Cos@t, Sin@t, .3 Pi  (4 - t/Pi)} /; t > 3 Pi;
plotRange = {{-110, 110}, {-110, 110}, {-10, 110}};
z1 = ParametricPlot3D[100 x[t], {t, 0, 4 Pi}, PlotRange -> plotRange];
hel = Import["ExampleData/helicopter.dxf.gz", 
   ViewPoint -> {10, 10, 10}, AlignmentPoint -> {80, 80, 80}];

zz = Table[
   Show[z1, 
    Graphics3D[
     Translate[Rotate[First[hel], t + Pi/2, {0, 0, 1}], 100 x[t]]], 
    PlotRange -> plotRange], {t, 0, 4 Pi, 4 Pi/15}];
Export["c:\\test.gif", zz, "DisplayDurations" -> .5]

(* Or
 Animate[Show[z1, 
   Graphics3D[
    Translate[Rotate[First[hel], t + Pi/2, {0, 0, 1}], 100 x[t]]], 
   PlotRange -> plotRange], {t, 0, 4 Pi}]

x[t]：={Cos@t, Sin@t，.1 t}/；t3pi；
plotRange={-110,110}，{-110,110}，{-10,110}；
z1=参数Plot3D[100x[t]，{t，0，4pi}，PlotRange->PlotRange]；
hel=Import[“ExampleData/helposer.dxf.gz”，
视点->{10,10,10}，对齐点->{80,80,80}]；
zz=表格[
显示[z1，
图形3d[
平移[Rotate[First[hel]，t+Pi/2，{0,0,1}]，100X[t]]，
PlotRange->PlotRange]，{t，0，4pi，4pi/15}]；
导出[“c:\\test.gif”，zz，“显示持续时间”->.5]
（*或
动画[显示]z1，
图形3d[
平移[Rotate[First[hel]，t+Pi/2，{0,0,1}]，100X[t]]，
PlotRange->PlotRange]，{t，0，4π}]

人们可以用曲线导数来计算直升机的旋转，但现在懒得去做

编辑

为遵守Sjoerd的家居装饰规则：

---

编辑问题并向world@belisarius当前位置向全世界开放，然后立即将您的解决方案关闭！：）@Simon Yeah。自从强给我留下关于另一个问题的评论后，我一直在研究这个问题。我们所有的销售代表业务设置都井然有序：）@belisarius:一个完美的计划！顺便说一句，谈到“销售代表业务”，我在这个问题上拒绝了100rep。。。由于这个问题可能是不可能的（除非你在WRI工作），我怀疑它是否会有所帮助。@Wizard先生我们能用一架蓝色的直升机而不是粉色的吗？它和我的地毯不相配。@Sjoerd@belisarius你们疯了！另外，蓝色的和我的有点不同步。请修复它。@Mr.Wizard@belisarius；-）“一切都在旁观者的眼睛里。”我先生将我的作品与土星环四次谐波同步，这对于维护舍尔德家居装饰计划的平衡至关重要，他在怀疑论者讨论板上的发言清楚地表明了这一点。