DCL中如何实现像填充命令BH那样可以点选后返回DCL的？

革天明

现在做了一个DCL，目的是先选择两组radio_button后，依据所选择的内容生成一个路径，如：
radio_buttonA1   和  radio_buttonB1
radio_buttonA2        radio_buttonB2
radio_buttonA3  
如果选择了A2和B1，路径为A2B1，如果选择了A3和B2，路径为A3B2，
这时要选择button1按钮进入CAD中拾取一个点，再返回到DCL中，此时依据路径内容，将另外一个参数赋值给edit_box1.
当点击确定时，不管edit_box1中的内容是否改变，都以edit_box1的数值参与运算。此时DCL要关闭，请问如何写代码实现上述的DCL调动与隐藏？

beverage

给button1按钮set一个调用dcl的函数

革天明

(action_tile "cmd1" "(done_dialog 1)")
  (setq dd (start_dialog))
  (cond        ((= dd 1) (diacx1))                ;选择基准点
        (t (print "\n未完成任何操作"))
  )       
完成diacx1回到DCL后DCL就不能再做任何操作了，为何？

革天明

(setq        FP (GETPOINT "\n现在生成主部件，请放置起点："))
  (new_dialog "cx1" dcl_id);第二次弹出对话框
  (setq lj "C:/数据文件/700#1.dat")
  (set_tile "dlmdss" (nth 4 (str-lst lj)))
  (set_tile "dlmdjh" (nth 6 (str-lst lj)))
这是diacx1的主要内容
）

ZZXXQQ

论坛早有这样的例子。
...
(setq dd 2)
(while (> dd 1)
(if (new_dialog "cx1" dcl_id) (progn
  (action_tile "cmd1" "(done_dialog 2)")
  (action_tile "accept" "(done_dialog 1)")
  (setq dd (start_dialog))
))
(cond
  ((= dd 2) (diacx1))                ;选择基准点
)
)
(unload_dialog dcl_id)
...

革天明

如何实现点A0，加载的幻灯片就是A0的，点A4，加载的就是A4的，也就是如何让DCL动态显示？

ZZXXQQ

action_tile后执行显示幻灯的函数就行了。

革天明

。。。。。
(new_dialog "cx1" dcl_id)
。。。。。。。
(action_tile "700#" "(setq shahao \"70\")")
。。。。。
(setq dd (start_dialog))
这里面第二句都不能正常显示，700#是radio_button

ZZXXQQ

例：
//...
  :boxed_column{
    label="";
   :radio_column{
    key="fm";
    value="0";            
    :radio_button{key="A0";label="A0";}
    :radio_button{key="A1";label="A1";}
    :radio_button{key="A2";label="A2";}
    :radio_button{key="A3";label="A3";}
    :radio_button{key="A4";label="A4";}
   }
  }
//...
;lisp
...
(action_tile "fm" "(showsld $value)")
...

(defun shousld (sldname)
(if (finfile (strcat sldname ".sld")) (progn
  (setq h (dimx_tile "image"))
  (setq v (dimy_tile "image"))
  (start_image "image")
  (fill_image 0 0 h v 0)
  (slide_image 0 0 h v sldname)
  (end_image)
)
  (set_tile "image" (strcat sldname "未找到"))
)
)