action_tile 能否用循环进行定义？

暗夜贵族

(setq i 0)
        (repeat (length lst)
                (action_tile (nth i lst) "(setq txt (get_attr (nth i lst) \"label\" ))(done_dialog 1)")
                     (setq i (1+ i))
        )


类似这样？

llsheng_73

肯定是可以的，不过你那写得不对
要注意的是那控件后边是字符串，这个字符串还不能随便写，要求去掉""它得是合法的lisp语句
但是由于整个语句被""括起来了，所以写进去的变量什么的它不起作用了注意到这点就行了

1. (setq i -1)(mapcar'(lambda(x)(setq i(1+ i)a(itoa i))(action_tile x(strcat"(sfd "a")")))(mapcar'caddr keys))

(setq i -1)(mapcar'(lambda(x)(setq i(1+ i)a(itoa i))(action_tile x(strcat"(sfd "a")")))(mapcar'caddr keys))

这是我在程序中写的一处，同样用变量进行动作的指定。。。

暗夜贵族

llsheng_73 发表于 2015-11-17 09:42
肯定是可以的，不过你那写得不对
要注意的是那控件后边是字符串，这个字符串还不能随便写，要求去掉""它得 ...

谢谢指导，慢慢研究