求高手帮忙看下程序哪出问题了

吴琦

小弟自己写了个程序，用来删掉建筑底图的，以前用起来是很正常的，但最近加载一个软件就不行了。
自己调试了一下，发现不管输入关键字Y(Yes)或者是N(No)，KK返回的值永远都是回车，把这个软件卸掉又正常了。
想求教一下大神们，这种情况可能的原因是什么？
没办法提供测试，因为测试肯定是正常的
下面贴上测试截图和原程序

;;删建筑底图
(defun C:JZQS (/ ss KK)
(Setvar "Cmdecho" 0)
(setq ss (ssget "X" '((8 . "ZZ-*"))))
(initget 1 "Yes No")  
(setq KK (getkword "是否确定[是(Y)/否(N)]："))
  (if (= KK "Yes")
  (command "erase" ss "")
  (exit)
    )
(princ "\n-----建筑底图已删，请清理图纸后再贴新建筑底图------")
(Setvar "Cmdecho" 1)
(PRINC)
)

吴琦

补充一下，进一步发现加载了一个软件后，所有有initget的程序关键字都不能用了
用猫老师的办法，把getkword和initget在acad2008.lsp文件中进行重定义也不行
(setq getkword_bak  getkword)
(setq initget_bak  initget)

ll_j

把变量名KK换成其它字母看看，如果还不行，就有点麻烦了。
如果真想拿所说，关键字不能用，就不是getkword的问题，可能是initget的问题，即使重定义有用，也建议不要使用这个软件了。

ll_j

顺便说一句，发帖不要使用这种带[【...】]的分类主题，这是一些大师们的专有分类，你现在所用的就是G版的分类名称，建议编辑一下。

ll_j

吴琦 发表于 2013-6-8 16:17
补充一下，进一步发现加载了一个软件后，所有有initget的程序关键字都不能用了
用猫老师的办法，把getkwor ...

再看看是不是中了ACAD病毒了？
参考：http://bbs.xdcad.net/thread-667409-1-1.html

ZZXXQQ

有可能是加载的东东改动了getkword函数

xyp1964

(if (= KK "Yes")→(if (or(= KK "Yes")(= KK ""))

xiabin68

总是把那个重要参数给改了

pzweng

注意大小写