如何用radio_button控制edit_box的值实时更新

zhongys

请教各位,如何用radio_button控制edit_box的值实时更新,如图

(defun c:www()
   (setvar "cmdecho" 0)
   (setq dcl_id (load_dialog "tt"))
   (new_dialog "tt" dcl_id)
   (setq defkey1 "rb11" defkey2 "rb21")
   (set_tile defkey1 "1")
   (set_tile defkey2 "1")
   (setq name(get_attr defkey1 "label"))
   (setq ssca(get_attr defkey2 "label"))
   (action_tile "rb11" "(setq name(get_attr $key \"label\"))")
   (action_tile "rb12" "(setq name(get_attr $key \"label\"))")
   (action_tile "rb13" "(setq name(get_attr $key \"label\"))")
   (action_tile "rb14" "(setq name(get_attr $key \"label\"))")
   (action_tile "rb21" "(setq ssca(get_attr $key \"label\"))")
   (action_tile "rb22" "(setq ssca(get_attr $key \"label\"))")
   (action_tile "rb23" "(setq ssca(get_attr $key \"label\"))")
   (action_tile "rb24" "(setq ssca(get_attr $key \"label\"))")
   (action_tile "rb25" "(setq ssca(get_attr $key \"label\"))")
   (action_tile "ins_ok" "(done_dialog 1)")
   (set_tile "dwgnum" (strcat name ssca))
   ;(setq txt (get_tile "dwgnum"))
   (setq dd(start_dialog))
   (if (= dd 1)
       (progn
(setq p1 (getpoint  "\n 第一点:"))
(setvar "osmode" 0)
(command "ortho" "off")
(setq p2 (getpoint p1 "\n 第二点:"))
(command "ortho" "on")
(setq p3 (getpoint p2 "\n 第三点:"))
(if (= (tblsearch "layer" "尺寸线层") nil)(new_lay "尺寸线层"   4    "CONTINUOUS"))
(setvar "clayer" "尺寸线层")
(if (= p3 nil)
     ;(command  "leader"   p1 p2  "" txt "")
     ;(command  "leader"   p1 p2 p3 ""  txt "")   
     (command  "leader"   p1 p2  "" (strcat name ssca) "")
     (command  "leader"   p1 p2 p3 ""  (strcat name ssca) "")

)
       )
   )
   (princ)
)


   (set_tile "dwgnum" (strcat name ssca))
   两个radio_button的选择改变时set_tile "dwgnum" 的值同时实时更新，最后将值传回给txt
   (setq txt (get_tile "dwgnum"))
不知道要如何控制它才能实现实时更新

ZZXXQQ

1、在对话框中定义key
如：
:radio_column{
key="type";
value="a0";
:radio_button{label="1/8";key="a0";}
:radio_button{label="1/4";key="a1";}
:radio_button{label="3/8";key="a2";}
:radio_button{label="1/2";key="a3";}
:radio_button{label="3/4";key="a4";}
……
在程序中
……
(action_tile "type" "(chedit &value)")
……
(defun chedit (a)
(setq b
  (cond
   ((= a "a0") "PT1/8")
   ((= a "a1") "PT1.4")
   ……
)
(settile "gyxh" b)
)

骑着蜗牛去把妹

我这是图层的控制，墙体是新建图层，然后旁边那个是控制他的显示和隐藏 冻结属性，请问应该怎么去做

nzl1116

(action_tile "rb11" "(setq name(get_attr $key \"label\"))")
   (action_tile "rb12" "(setq name(get_attr $key \"label\"))")
   (action_tile "rb13" "(setq name(get_attr $key \"label\"))")
   (action_tile "rb14" "(setq name(get_attr $key \"label\"))")
   (action_tile "rb21" "(setq ssca(get_attr $key \"label\"))")
   (action_tile "rb22" "(setq ssca(get_attr $key \"label\"))")
   (action_tile "rb23" "(setq ssca(get_attr $key \"label\"))")
   (action_tile "rb24" "(setq ssca(get_attr $key \"label\"))")
   (action_tile "rb25" "(setq ssca(get_attr $key \"label\"))")
每行后面都加上"(set_tile \"dwgnum\" (strcat name ssca))"

骑着蜗牛去把妹

nzl1116 发表于 2011-12-26 20:10
(action_tile "rb11" "(setq name(get_attr $key \"label\"))")
   (action_tile "rb12" "(setq name(get_ ...

QQ:342670425,求加友请教LISP&DCL

革天明

zzxxqq，请写出此贴的完整LISP代码，我只能实现单个单选按钮框的实时变化，无法将其两者联系出来，两个一起的话就不能实时了

功夫佬

zzxxqq，请写出此贴的完整LISP代码，我只能实现单个单选按钮框的实时变化，无法将其两者联系出来，两个一起的话就不能实时了

cabinsummer

看得我都不好意思说了

328302216

楼主 你的这功能实现了没？能否给参照学习一下qq:328302216  邮箱328302216@qq.com

zhuquanmao

类似如下效果吧