为什么程序不能运行第二次

benq3

程序大体结构如下

(defun c:doo ()
  (princ "\n提示:绘制程序开始. \n")
  ;(UseLimit)
  (while (/= ex "E")
    (progn
      (setvar "cmdecho" 0)
      (fuzhi)    ;调用子程序-设初始值
      (xuanze3) ;调用子程序-选择对象
      (jisuan);调用子程序-计算
      (princ)
      (initget "e")
      (setq
ex (strcase
      (getstring "\n回车或空选继续 /退出程序请输入<E>:")
    ) ;_ 结束strcase
      ) ;_ 结束setq
    ) ;_ 结束progn
  ) ;_ 结束while
  (princ)
) ;_ 结束defun
(princ)


(defun fuzhi ()；初始值子函数
  (princ "\n提示:偏移直线. \n")
  (setq b 130
di1 1
zd1 5
n1 2
—————；等等，以下省略
没次打开cad，加载程序后，第一次可以正常运行，第一次运行完，正常输入E退出后，再键入doo，程序只提示“提示:绘制程序开始”然后就没动静了，应该是退出了，无任何提示或显示，直接显示cad命令行。正常应该显示“提示:偏移直线”，cad命令此时可以正常使用，本程序想使用只能退出CAD，再加载，但还是只能用一次，谁知道为什么？

炫翔

看程序,多半是变量冲突了

benq3

炫翔 发表于 2015-5-26 18:55
看程序,多半是变量冲突了

你指的是和系统的冲突了还是程序本身有冲突？该怎么查，希望指教。

炫翔

benq3 发表于 2015-5-26 19:10
你指的是和系统的冲突了还是程序本身有冲突？该怎么查，希望指教。

贴上全部的代码上来

19622928

试试(defun c:doo (/ ex)

benq3

19622928 发表于 2015-5-27 09:47
试试(defun c:doo (/ ex)

谢谢，照你说的改了就好用了，果然是这个有问题。