[LISP]不知错误出在哪了！

lxz0929

(Defun C:SPLL()
(PrinC "\n这是对 Spline 进行数据分析的基本程序...")
(While(progn(setq pen(car(entsel "\n指定一条 Spline: ")))
(/= "SPLINE"(cdr(assoc 0 (entget pen))))
)
(Alert "所指对象不是 Spline，请重新指定...")
)
(princ "\这是一条：")
(setq s (getstring))
(princ "\请选择原点：")
(setq pt1(getpoint))
(print pt1)
(setq a1(car pt1))
(setq a2(cadr pt1))
(setq ent(entget pen))
(setq ct 0)
(textpage)
(princ"\n 拟合点的坐标值:")
(setq c1(length ent))
(while(< ct c1)
(setq d2(car(nth ct ent)))
(if(= 10 d2)
(progn
(setq d3(cdr(nth ct ent)))
(setq b1(car d3))
(setq b2(cadr d3))
(setq b1(- b1 a1))
(setq b1(abs b1))
(setq b2(- b2 a2))
(setq b2(abs b2))
(subst b1 (car d3) ent)
(subst b2 (cadr d3) ent)
(setq d3(cdr(nth ct ent)))
(print d3)
)
)
(setq ct(+ 1 ct))
)
(print)
)
修改原先的数据，但好象不行！不知怎么做了！ 另外如何另存在一个EXCEL文件中？！