请教这个LSP程序有什么问题

htys24101

在执行的时候提示语法错误，无法执行，请教高手，非常感谢！

程序代码如下：

(defun c:test()
(setq zx (car (entsel"\n选择一条直线：")))
(setq dxf (entget zx))
(setq p1 (cdr (assoc 10 dxf)))
(setq p2 (cdr (assoc 11 dxf)))
(setq p1y (car p1)
      p1x (cadr p1)
      p2y (car p2)
      p2x (cadr p2))
(setq p3y (/ (+ p1y p2y) 2)
      p3x (/ (+ p1x p2x) 2))
(setq p3 (list p3y p3x))
(setq k (/ (- p2y p1y) (- p2x p1x))
      b (- p1y (* k p1x)))
(setq k (/ (float (fix (* k 10000000000)))10000000000)
      b (/ (float (fix (* b 10000))) 10000)
      k (rtos k 2 10)
      b (rtos b 2 4))
(setq bb (atof b))
(setq bbb 0)
(if (< bb bbb)
(progn
(setq wz (strcat "L=" k "B" b))
(command "text" p3 "2" "" wz))
(progn
(setq wz (strcat "L=" k "B+" b))
(command "text" p3 "2" "" wz))
)))

coolpoom

程序最后多了一个括号“）”

还有“k (/ (- p2y p1y) (- p2x p1x))”这里有问题，当L是水平线时就不行了哦

htys24101

谢谢提醒，是刚才多输了一个，不过好像还是不能运行啊