各位大神，求教为什么标红的代码处有问题？

msu000

各位大神，求教为什么标红的代码处有问题？

(defun c:zw90 ()
(setq Lg (getdist "请输入工件长L:"))
(setq Wg (getdist "请输入工件宽W:"))
(setq tg (getdist "请输入吊距t:"))
(setq rg (getdist "请输入转弯半径R:"))
(setq mm (getint "请输入绘图比例M 1:"))
(setq l (/ Lg mm))
(setq W (/ Wg mm))
(setq t (/ tg mm))
(setq r (/ rg mm))
;画轨道
(command "limits" '(0 0) '(15000 9000) "zoom" "a")
(command "layer" "m" "1" "l" "center" "" "c" "1" "" "")
(setq d11 (getpoint "请输入轨道起始点:"))
(if (> t 0)
     (setq d22 (polar d11 pi (* 2.0 t)))         ;水平线段与圆弧交点
     (setq d22 (polar d11 pi (* 2.0 l)))
)
(setq pt0 (polar d22 (/ pi 2.0) r))           ;圆弧圆心
(setq d33 (polar pt0 pi r ))                ;垂直线段与圆弧交点
(if (> t 0)
     (setq d44 (polar d33 (/ pi 2.0) (* 2.0 t))) ;垂直线段顶点
     (setq d44 (polar d33 (/ pi 2.0) (* 2.0 l)))
)
(command "line" d11 d22 ^)
(command "arc" d22 "c" pt0 "a" -90.0)
(command "line" d33 d44 ^)
;上工件
(setq pt5 (getpoint "请上工件:"))      ;后吊点
(setq pt6 (polar pt5 pi t))             ;前吊点
(setq pt1 (mapcar '+ pt5 (list (/ (- L t) 2.0) (- (/ W 2.0)))))
(setq pt2 (polar pt1 pi L))
(setq pt3 (polar pt2 (/ pi 2.0) W))
(setq pt4 (polar pt3 0.0 L))
(command "layer" "m" "0" "")
(command "color" "7")
(command "pline" pt1 "w" "0" "0" pt2 pt3 pt4 "c")
(command "block" "gj1" pt5 "l" "" "oops")     ;工件块
(command "color" "2")
(command "circle" pt5 "1.0")
(command "circle" pt6 "1.0")
;工件运行
(cond ((> t 0.0)
        (load "c:/gyk/prog/r-blx31")
        (r-blx31))
       (T
        (load "c:/gyk/prog/r-blx32")
        (r-blx32))
)
)
;r-blx3子程序:双吊点工件运行
(defun r-blx31 ()
;工件平移
(setq pt5 (polar d22 0.0 t))
(command "insert" "gj1" pt5 "" "" "")
(command "circle" pt5 "1.0")
(command "circle" d22 "1.0")
;最大旋转弧度计算
；当t大于1.412*r时，前后吊点按一次性转90度计算
(setq arf0 (/ pi 2.0)) ;
；当t小于1.412*r时，前后吊点按三次转过90度计算


(setq arf1 (/ pi 6.0)) ;30度
;前吊点进入转弯段,后吊点在水平段时
(cond ((< t (* 1.4142 r))
    (setq i 1)
    (setq n 10)
    (setq x2 (/ t 2.0))
    (setq y2 (sqrt (- (expt r 2.0) (expt x2 2.0))))
    (setq arf2 (* (atan (/ x2 y2)) (/ 180.0 pi)))
    (setq sita (/ arf2 n));循环单位角度
    (while (<= i n)
        (setq y0 (* r (- 1 (cos (* i sita)))))
        (setq x0 (sqrt (- (expt t 2.0) (expt y0 2.0))))
        (setq x1 (- x0 (* r (sin (* i sita)))))
        (setq arfag (* (atan (/ y0 x0)) (/ 180.0 pi)))   ;工件与水平线夹角(角度)
        (setq pt5 (polar d22 0.0 x1))   ;悬链上后吊点
        (setq pt6 (polar pt0 (- (+ (* i sita) (/ pi 2.0))) r)) ;悬链上前吊点
        (command "insert" "gj1" pt5 "" "" (- arfag)) ;工件绘制
        (command "circle" pt6 "1.0")  ;前吊点绘制
        (command "circle" pt5 "1.0")  ;后吊点绘制
        (setq i (1+ i))
     )
   )
  (T
    (setq i 1)
    (setq n 10)
    (setq sita (/ arf0 n))  ;循环单位角度
    (while (<= i n)
        (setq y0 (* r (- 1 (cos (* i sita)))))
        (setq x0 (sqrt (- (expt t 2.0) (expt y0 2.0))))
        (setq x1 (- x0 (* r (sin (* i sita)))))
        (setq arfag (* (atan (/ y0 x0)) (/ 180.0 pi)))   ;工件与水平线夹角(角度)
        (setq pt5 (polar d22 0.0 x1))   ;悬链上后吊点
        (setq pt6 (polar pt0 (- (+ (* i sita) (/ pi 2.0))) r)) ;悬链上前吊点
        (command "insert" "gj1" pt5 "" "" (- arfag)) ;工件绘制
        (command "circle" pt6 "1.0")  ;前吊点绘制
        (command "circle" pt5 "1.0")  ;后吊点绘制
        (setq i (1+ i))
     )
   )
  )

)