高手帮我看看这段代码

dfztangjf

为什么这段代码在R14里可以运行，在04里无法运行。求教，先谢过。

(defun lx (/ a a0 x0 x dx y r rr l ll p0 c)
      (progn
      (initget 1)
      (setq p0 (getpoint "\n给出该螺旋线起点:"))
      (setq rr (/ (getvar "userr1") bili)
     rr (g_length "半径长" rr)
      )
      (setvar "userr1" (* bili rr))
      (setq ll (g_length "导程长" rr))
      (setq r  (* bili rr)
     l  (* bili ll)
     a0 (/ pi 18.0)
     a  0
     x0 (/ l 36.0)
     dx 0
      )
      (command "pline" p0)
      (while (< dx l)
 (setq a  (+ a0 a)
       dx (+ x0 dx)
       x  (+ (car p0) dx)
       y  (+ (cadr p0) (* r (sin a)))
 )
 (command (list x y))
      )
      (command "" "pedit" "l" "s" "x" "rotate" "l" "" p0 pause)
    )
  )

alin

Need the function g_length