给我看看实现着几个运动的程序对不对

lks042

我现在有两个圆柱体，圆柱体1用E1表示，圆柱体2用E2表示，我想实现以下运动：当E1绕其轴旋转一圈时，E2旋转一个固定角度（小于360），这个运动循环，直到E2旋转了一周，E1沿E2轴线方向移动一固定距离，循环，直到移动距离达到设定值。

我写的程序如下，大家看对不，有什么意见提下，谢谢：

 (setq i 0)
  (while (<= i h) 
  (setq j 1)
  (while (<= j z)
  (command "rotate" e2 "" pt7 360)
  (command "rotate" e1 "" p0 pj)
  (setq j(+ j 1))
  )
 （command "move"  )移动命令暂时不会写
  (setq i(+ i hi))
)

masterlong

思路完全不对呀

E2旋转了一周，E1沿E2轴线方向移动一固定距离（dist）

移动距离达到设定值(len)

len/dist=移动次数，即E2旋转总周数(R2N)

E1绕其轴旋转一圈时，E2旋转一个固定角度(ANG2)

360*R2N/ANG2=E1需要旋转的总周数(R1N)

如果给定dist

直接可以计算出R1N和R2N

为什么要用while这么麻烦？