使用Auotlisp函数set_tile控制多行或多列互斥按钮接通的一个技巧

shenggp

    设定一变量，例如set_rd，代表某一多行或多列互斥按钮的状态。设变量的值为某一要接通互斥按钮的key属性值。例如有一多行互斥按钮，有n个按钮，属性key值分别为"radio_1" "radio_2" ... "radio_n"。如想要按钮"radio_1"接通。则这样设置变量：
(setq set_rd "radio_1")
如在对话框互斥行或互斥列的控制程序中这样编写：
 (set_tile set_rd "1")
 (action_tile "radio_1" "(setq set_rd "radio_1)")
 (action_tile "radio_2" "(setq set_rd "radio_2)")
    .....
    .....
 (action_tile "radio_n" "(setq set_rd "radio_n)")
这样可以简化程序。否则的话，需设n个变量分别代表n个互斥按钮的的开启状态。例如n个变量分别为radio_1 radio_2 .... radio_n。而互斥行或互斥列的控制程序可能如下：
 (cond
   ((= radio_1 "1") (set_tile "radio_1" "1"))
      ((= radio_2 "1") (set_tile "radio_2" "1'))
           ......
   );cond
 (action_tile "radio_1" "(setq radio_1 \"1\" radio_2 \"0\" .... radio_n \"0\")")
 (action_tile "radio_2" "(setq radio_1 \"0\" radio_2 \"1\" .... radio_n \"0\")")
         .....
 (action_tile "radio_n" "(setq radio_1 \"0\" radio_2 \"0\" .... radio_n \"1\")")
通过比较，可以看出用第一种方法编程要简单许多。你试一下准行。