帮忙看一下下边程序哪有问题

hehujun

;;;;标准图框
;;;;;tk.lsp
(defun C:tk()
command "layer" "m" "tk" ""
"linetype" "s" "continuous" "")
(setq path (getvar "dwgprefix")
nam (getfiled "请输入数据文件名" path "" 4))
(if (= nam nil) (exit))
(setq fp (open nam "r"))
(setq xs (read-line fp)
ys (read-line fp)
num11 (read-line fp)
num12 (read-line fp)
num13 (read-line fp)
num21 (read-line fp)
num22 (read-line fp)
num23 (read-line fp)
num31 (read-line fp)
num32 (read-line fp)
num33 (read-line fp)
;dcy (read-line fp)
cly (read-line fp)
zty (read-line fp)
jcy (read-line fp)
)
(close fp)
(setq x0(read ys)
y0 (read xs)
xys (strcat (rtos (/ y0 1000.0) 2 2) "-"(rtos (/ x0 1000.0) 2 2))
pt0 (list x0 y0)
pt31 (polar (polar pt0 pi2 (* 535.25 k1)) 0 (+ k75 w2))
pt32 (polar pt31 0 (* 15 k1))
pt33 (polar pt32 0 (* 15 k1))
pt34 (polar pt31 pi2f k8)
pt35 (polar pt34 0 (* 15 k1))
pt36 (polar pt35 0 (* 15 k1))
pt37 (polar pt34 pi2f k8)
pt38 (polar pt37 0 (* 15 k1))
pt39 (polar pt38 0 (* 15 k1))
pt41 (polar (polar pt0 0 (* 484.5 k1)) pi2f (+ 16.5 k1))
pt42 (polar pt41 pi2f (* k1 2.9))
pt43 (polar pt42 pi2f (* k1 2.9))
pt44 (polar pt43 pi2f (* k1 2.9))
pt51 (polar (polar pt0 0 (* 250 k1)) pi2 (* 530 k1))
pt52 (polar pt51 pizf sl)
)
(command "insert" "tk500" pt0 k1 "" 0
"text" "s" "xdxt" "j" "m" pt31 (* 2.75 k1) 0 num11
"text" "j" "m" pt32 (* 2.75 k1) 0 num12
"text" "j" "m" pt33 (* 2.75 k1) 0 num13
"text" "j" "m" pt34 (* 2.75 k1) 0 num21
"text" "j" "m" pt36 (* 2.75 k1) 0 num23
"text" "j" "m" pt37 (* 2.75 k1) 0 num31
"text" "j" "m" pt38 (* 2.75 k1) 0 num32
"text" "j" "m" pt39 (* 2.75 k1) 0 num33
"text" "s" "bst" "j" "m" pt41 (+ k1 w9) 0 dcy
"text" "j" "m" pt42 (+ k1 w9) 0 cly
"text" "j" "m" pt43 (+ k1 w9) 0 zty
"text" "j" "m" pt44 (+ k1 w9) 0 jcy
"text" "s" "dxt" "j" "m" pt51 k6 0 num22
"text" "s" "cdxt" "j" "m" pt52 k45 0 xys
)
(setq pt1 (polar pt0 pi sl)
i 1
)
(repeat 6
(setq str0 (rtos (/ (card pt1) 1000) 2 2)
pt2 (polar pt1 pi2 w4)
)
(if (or (<= i 1 )(>= i 6))
(command "text" "s" "dxt" pt2 k3 0 str0)
)
(setq pt1 (polar pt1 pi2 (* 100 k1))
i (1+ i)
)
)
(setq pt1 (polar pt0 0 (* 510 k1)) i 1)
(repeat 6
(setq str0 (rtos (/ (cadr pt1 )1000) 2 2)
pt2 (polar pt1 pi2 w4)
)
(if (or (<= i 1)(>= i 6))
(command "text" "j" "r" pt2 k3 0 str0)
)
(setq pt1 (polar pt1 pi2 (* 100 k1)) i (1+ i)
)
(setq pt1 (polar (polar pt0 pi k3) pi2f (* 11 k1)) i 1)
(repeat 6
(setq str0 (rtos (/ (car pt1) 1000) 2 2))
(if (or (<= i 1)(>= i 6))
(command "text" pt1 k3 0 str0)
)
(setq pt1 (polar pt1 0 (* 100 k1)) i (1+ i))
)
(setq pt1 (polar (polar pt0 pi k3) pi2 (* 508 k1 )) i 1)
(repeat 6
(setq str0 (rtos (/ (car pt1) 1000) 2 2))
(if (or (<= i 1)(>= i 6))
(command "text" pt1 k3 0 str0)
)
(setq pt1 (polar pt1 0 (* 100 k1)) i (1+ i))
)
(command "zoom" "e'' "undo' "end")
)
上边程序总是不能正常运行，不知错误在哪，请指教