做了个等差间距偏移直线的lisp，提示参数太少，大侠帮看看

;;;***等差偏移直线 程序开始***

(princ "加载程序成功，输入doo命令可应用此工具\n")

(defun c:doo ( ob di date dist da d n )
(princ "\n★提示:等差偏移直线.\n")

(setq da (getdist "\n请输入起始偏移量<1.0>:"))
(if (null da)(setq da 1))

(setq d (getdist "\n请输入公差（正值递加，负值递减）<1.0>:"))
(if (null d)(setq d 1))
(setq di (getdist "\n请输入直线数量<10.0>:"))
(if (null di)(setq di 10))
(princ "\n★当前起始偏移量:")
(princ (rtos da 2))
(princ ",公差:")
(princ (rtos d 2))
(princ ",偏移直线数量:")
(princ (rtos di 0))
(setq n 1)
(setq ob (entsel "\n选定偏移对象:"))
(while (<= n di)
(setq dist ((da+(n-1)*d)*n/2+da*n/2))
(command "OFFSET" dist ob " ")
(setq n n+1)
)
(setvar "offsetdist" da)
(princ)
)
(princ)
;;;***等差偏移直线 程序结束***



运行时提示参数太少。