[求助]对话框问题。

liujiping

在DCL中
:row{
     : radio_button {label = "垂直地面";   key = "ldm";}
     : radio_button {label = "垂直屋面"; key = "lwm";}
                        }
这两个为一组，在显示对话框选了其中一个他的VALUE 变为1，如果你在选另一个，前者的VALUE还是 1。
结果是两个都为“1”。望指教！

BDYCAD

干嘛沒有把程序貼上來看看呀. 這樣怎麼能說明的.

meflying

我这里不会这样的。
建议你使用
:radio_row{
     : radio_button {label = "垂直地面";   key = "ldm";}
     : radio_button {label = "垂直屋面"; key = "lwm";}
                        }

liujiping

不知是不是取值的方法不对？
同时，还有一问题。只用action_tile 好像不能提取在DCL中预设的值（如果你没点取）
我用了get_tile，不知对不对？
附上文件：

liujiping

meflying

取值的方法是对的，不过地方不对，你这样取的是对话框的初始值，以后的操作对这两个变量没有任何影响。如果想操作后将值传给变量，则必须在相应控件的动作函数中取值。
你只有一个退出对话框的动作，就是说这个对话框显示后你什么都没做就退出了（即使你做了什么也等于没做），
给你的程序做如下修改：

2. 
   
3. (princ "\n applicatiion")
   
4. (defun c:be (/ dcl_id)
   
5. 
   
6.   ;**********store the setting*****
   
7.   (setq oldcmd (getvar "cmdecho"))
   
8.   (setvar "cmdecho" 0)
   
9.   (setq oldblip (getvar "blipmode"))
   
10.   (setvar "blipmode" 0)
    
11.   (setq oldsnap (getvar "osmode"))
    
12.   (setvar "osmode" 0)
    
13.   ; diaplay beam1.dcl  
    
14. (setq dcl_id (load_dialog "beam1"))
    
15.   (if (not (new_dialog "Beam1" dcl_id))
    
16.     (exit)
    
17.   )
    
18.   (setq ldm (get_tile "ldm" ))
    
19.   (setq lwm (get_tile "lwm" ))
    
20.   (action_tile "ldm" "(setq ldm (get_tile "ldm")) (setq lwm (get_tile "lwm"))")
    
21.   (action_tile "lwm" "(setq lwm (get_tile "lwm")) (setq ldm (get_tile "ldm"))")
    
22.    (action_tile "accept" "(done_dialog)")
    
23. (start_dialog)  
    
24.   (unload_dialog dcl_id)
    
25. 
    
26. (alert (strcat ldm lwm))
    
27. (setvar "cmdecho" oldcmd)
    
28.   (setvar "blipmode" oldblip)
    
29.   (setvar "osmode" oldsnap)
    
30.   )
    
31. (princ " has been load ,please type “be” run it")
    

<br /> (princ "\n applicatiion")<br /> (defun c:be (/ dcl_id)<br /> <br />   ;**********store the setting*****<br />   (setq oldcmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq oldblip (getvar "blipmode"))<br />   (setvar "blipmode" 0)<br />   (setq oldsnap (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   ; diaplay beam1.dcl  <br /> (setq dcl_id (load_dialog "beam1"))<br />   (if (not (new_dialog "Beam1" dcl_id))<br />     (exit)<br />   )<br />   (setq ldm (get_tile "ldm" ))<br />   (setq lwm (get_tile "lwm" ))<br />   (action_tile "ldm" "(setq ldm (get_tile "ldm")) (setq lwm (get_tile "lwm"))")<br />   (action_tile "lwm" "(setq lwm (get_tile "lwm")) (setq ldm (get_tile "ldm"))")<br />    (action_tile "accept" "(done_dialog)")<br /> (start_dialog)  <br />   (unload_dialog dcl_id)<br /> <br /> (alert (strcat ldm lwm))<br /> (setvar "cmdecho" oldcmd)<br />   (setvar "blipmode" oldblip)<br />   (setvar "osmode" oldsnap)<br />   )<br /> (princ " has been load ,please type “be” run it")<br />

liujiping

谢谢！
第一次用LISP写，出现些初级的问题。