visual lisp 程序调试的出现了 “ 错误: 参数太少” 请boss们看下

YANGKEKE

画一个键轴截面
(defun c:jianzhou(/p0 alf d b t1 r l b1 sit p1 p2 p3 p4 p5)
  (setq p0 (getpoint"\nEnter p0:"))
  (setq d (getdist p0"\nEnter d:"))
  (setq b (getdist p0"\nEnter b:"))
  (setq t1 (getdist p0"\nEnter t1:"))
  (setq alf (getangle p0"\nEnter alf:"))
  (setq r (* 0.5 d) b1 (* 0.5 b ))
  (setq l (sqrt (-(* r r)(* b1 b1))))
  (setq sit (atan b1 l))
  (setq p1 (polar p0 (+ alf sit) r))
  (setq p2 (polar p0 (+ pi alf) r))
  (setq p3 (polar p0 (-alf sit) r))
  (setq p4 (polar p3 (+pi alf) (-(+r l) t1)))
  (setq p5 (polar p1 (+ alf pi) (-(+ r l) t1)))
  (command "pline" p1 "a" "s" p2 p3 "l" p4 p5 "c")
  )