用GRREAD模拟带选取及输入功能的函数

liu22737

学习黄大师的分图后想到此方法；
但无法右键激活

(defun tt()
  (setq flag2 T)
  (while flag2(prompt "\n选择对象:")
(setq gr(grread nil 4 2))
(cond((=(car gr)3)
         (if(setq en (nentselp (cadr gr)))(setq flag2 nil)))
    ((=(car gr)2)(setq str(cadr gr))
  (if(> str 32)(setq flag2 nil NewDName(strcat(chr str)(getstring(chr str))))))
    ((=(car gr)5)(setq flag2 T))
    (t(setq flag2 nil))
    );cond
);while flag2
);end
;;;;
此函数无法右键激活
把最后一句(t(setq flag2 nil))替换为(t(setq flag2 Tl))能激活，但无法右键退出

edata

所谓右键激活，指的 是什么。。。

liu22737

edata 发表于 2014-1-13 11:50
所谓右键激活，指的 是什么。。。

可能我描述不准确

在命令行输入命令后，可以用空格键，回车键，右键来执行，
这里只能用空格键，回车键响应，右键直接跳过了，

比如黄大师的分图程式，如果把选择范围放前面，文件名放后面，用这个方法没问题，
要是把选取文件名放前面，选择范围放后面，就无法用右键来执行命令了，只能用空格键执行

我想知道有没有办法在程式内先把右键返回值变更掉，在程式尾部再还原它

edata

不知道你有没有看过这个帖子。如果使用grread此贴必看。。
[风之影][源码]grread函数之大杀器
http://bbs.mjtd.com/forum.php?mo ... &fromuid=338795
；；；；；；；；；
如果需要选择后右键执行，那么先判断是否已经选择，选着成功则执行确认操作，否则执行取消退出grread循环。
(cond
((or(=(car gr) 11)(=(car gr) 25))
(if 判断选择或输入是否为空 (setq flag2 T)(setq flag2 nil))))

liu22737

谢谢！
已找到办法了