[求助]：编程的时候被一个问题掐住了，请教大家？急

gjt1244

（如图所示）是我仿照天正的轴网命令做的lisp，在对话框输入数据的时候遇到麻烦：例如、我在下开间按钮被选中的时候在编辑框中输入数据，然后当我按其他按钮，（譬如左进深按钮）时，之前输入的数据保存到与下开间相应的变量上；。。。。。。

为此，我为每个按钮到定义了action_tile动作，例如：
(ACTION_TILE "TOP" "(set_tile \"DATA\" top_txt)
                      (mode_tile \"DATA\" 2)"
  )
如果我在action_tile中使用(get_tile  "STYLE")
,则得到的只是当前被选中的按钮的名称，而得不到之前被选中的按钮的名称，所以之前输入的数据就不知道该保存到那个变量上了，

(单选钮组的名称为"STYLE"，各个单选钮的key分别为"TOP"、"BUTTOM"、"LEFT"、"RIGHT"，(假设他们相对应的变量分别为a、b、c、d)，输入编辑框的key为"DATA"，请教大家该怎样做？

mmmm

你再多引入一个变量纪录上次的Key就可以了。
更换时检查并设定，这样就行了

gjt1244

不要见笑，我不是太明白；“怎样记录上次的key？更换时又怎样检查？”，当我切换到其他按钮时，我怎样让程序知道切换前选中的那个按钮的key？

czg09180274

你可以在 action_tile 后面定义一个子程序而不用直接提取变量值的方式来实现，
子程序的内容为：先提取出前面已经输入的参数，然后再根据需要来修改显示或是定义用于后续动作的变量。

mmmm

Just a sample to do what you want. The new variable is named as *prev*

2. 
   
3. (action_tile "TOP" /"BUTTOM" /"LEFT"/"RIGHT"
   
4. "(func-switch $key)"
   
5. )
   
6. (Defun func-switch(key)
   
7. (cond((null *prev*)
   
8.           (setq *prev* key)
   
9. )
   
10. ((= *prev* "TOP") (setq a (get_tile "DATA")))
    
11. ((= *prev* "BOTTOM") (setq b (get_tile "DATA")))
    
12. ((= *prev* "LEFT") (setq c (get_tile "DATA")))
    
13. ((= *prev* "RIGHT") (setq d (get_tile "DATA")))
    
14. )
    
15. (cond((= key "TOP") (do_if_you_select_TOP))
    
16. ((= key "BOTTOM") (do_if_you_select_BOTTOM))
    
17. ((= key "LEFT") (do_if_you_select_LEFT))
    
18. ((= key "RIGHT") (do_if_you_select_RIGHT))
    
19. ....
    

<br /> (action_tile "TOP" /"BUTTOM" /"LEFT"/"RIGHT"<br /> "(func-switch $key)"<br /> )<br /> (Defun func-switch(key)<br /> (cond((null *prev*)<br />           (setq *prev* key)<br /> )<br /> ((= *prev* "TOP") (setq a (get_tile "DATA")))<br /> ((= *prev* "BOTTOM") (setq b (get_tile "DATA")))<br /> ((= *prev* "LEFT") (setq c (get_tile "DATA")))<br /> ((= *prev* "RIGHT") (setq d (get_tile "DATA")))<br /> )<br /> (cond((= key "TOP") (do_if_you_select_TOP))<br /> ((= key "BOTTOM") (do_if_you_select_BOTTOM))<br /> ((= key "LEFT") (do_if_you_select_LEFT))<br /> ((= key "RIGHT") (do_if_you_select_RIGHT))<br /> ....<br />

gjt1244

首先谢谢5楼主的热心帮忙！但我有些问题还是不太明白：代码中的*prev*是全局变量？是在action_tile之前通过(get_tile "STYLE")获得？而代码中的(action_tile "TOP" /"BUTTOM" /"LEFT"/"RIGHT"
"(func-switch $key)"
)中的$key的值是还没有切换按钮之前的那个按钮key值？还是切换了之后的按钮key值？还有就是我的目的只是为了取得用户输入到编辑框中的数值，以后绘制轴网的时候用到，可能是我水平不够不能正确理解楼主的意思，又要麻烦5楼主了！
其实我可以用很简单的方法就可以做到（如图所示），不过我是很想知道天正哪里是怎样做到的

mmmm

*prev*是个全局变量，用于记录上一次选定的按钮的Key值，你可预至其值为默认的缺省按钮。
(action_tile....)中的$Key是新选定的按钮Key值。所以在后面的函数定义中，要先看*prev*是什么，再执行相应的保存DATA到变量的工作，同时把*prev*置为新选定的按钮。之后才根据新的按钮，调入相应的数据，添到DATA中。