[LISP程序]：紧急求救！！！

gx9527

小虾想问一个AutoCAD2000里的问题：
偶为了画一个人体模型，用了4次“rotate3d”命令，写在参数绘图的AutoLISP程序里，但程序无法运行，少于4次的调用可以运行，每次都告诉我命令嵌套不能超过4层。但是程序结构里并没有嵌套调用。偶在“天正论坛”上求教了以后，有大侠告诉偶rotate3d不是内部命令，不能用command函数，偶还是不解，为什么调用少于4次就行呢？以下是偶程序里的一段：
(command "cone" "e" q2 (polar q2 0 jw) (/ jw2 2) (/ (* jw ql) (- jw yw)))
          (setq a(entlast))
          (command "cylinder" "e" q2 (polar q2 0 jw) (/ jw2 2) ql)
          (setq b(entlast))
          (command "intersect" a b "")
          (setq qu1(entlast))
          (command "rotate3d" qu1 "" "2" q2 (polar q2 0 jw) "90")
后面还有像这样的调用3次。

另外，请教获取一直线绕其一端点旋转后，另一端点坐标值的lisp语句。
附件里有我写的程序，望哪位大侠赐教一下！