帮我看看这程序问题出在那啊，急啊

lks042

这是一个齿轮加工的程序，运行程序时老是提示"no function definition: C:ROTATE3D", 应该就是程序中C:ROTATE3D有问题但我不知道出在那和怎么改，高手帮帮忙啊，急用啊，谢谢！程序上传了，耽误点时间麻烦看看。

(command "pline" pt1 pt2 pt3 pt4 pt5 pt6 "c")
  (setq e1 (ssget "L"))
  (command "rotate" e1 "" (list 0 0 0) "90" "")
  (setq e2 (entlast))
  (command "revolve" e2 "" (list 0 2) (list 0 -2) "")
  (setq e3 (entlast))
  (c:ROTATE3D)
  (c:ROTATE3D e3 "" (list 1 0 0) (list -1 0 0) (- 90.0 sprialangle) "")
  (setq e4 (entlast))
  (setq pv1 (+ (/ (* m z) 2.0) pt7))
  (setq pv2 -50.0)
  (command "move" e4 "" (list 0.0 0.0) (list pv1 pv2))
  (setq xidao (entlast))

liu_kunlun

试一下：

  (setq e3 (entlast))
  ;;;(c:ROTATE3D)
  (command "ROTATE3D" e3 "" (list 1 0 0) (list -1 0 0) (- 90.0 sprialangle) "")
  (setq e4 (entlast))