新手上路-关于radio_button；按照教程无法将指令交给DCL,求指导！！

838510233

(defun c:tt()
  (setq dcl_id(load_dialog "E:\\个人资料\\Auto lisp\\DCL\\raio_botton.dcl"))
  (new_dialog "r1" dcl_id)
  (setq z1 "x1" z2 "x5")
  (set_tile z1 "1")
  (set_tile z2 "1")
  (setq name(get_attr z1 "label"))
  (setq ssca(get_attr z2 "label"))
  (action_tile "x1" "(setq name(get_attr $key \"label\"))")
  (action_tile "x2" "(setq name(get_attr $key \"label\"))")
  (action_tile "x3" "(setq name(get_attr $key \"label\"))")
  (action_tile "x4" "(setq name(get_attr $key \"label\"))")
  (action_tile "x5" "(setq ssca(get_attr $key \"label\"))")
  (action_tile "x6" "(setq ssca(get_attr $key \"label\"))")
  (action_tile "x7" "(setq ssca(get_attr $key \"label\"))")
  (action_tile "x8" "(setq ssca(get_attr $key \"label\"))")
  (action_tile "q1" "(ok_q1)(done_dialog 1)")
  (setq dd(start_dialog))
  (if (= dd 1)
    (progn
      (setq pt1(getpoint""))
      (command "insert" f1 pt1 1 1 0 dwgnum name ssca)
      ))
  )
(defun ok_q1()
  (setq dwgnum(get_tile "dwgnum"))
  )

evayleung

可以的吧，就是(command "insert" f1 pt1 1 1 0 dwgnum name ssca)这句F1没定义，所以不能插入吧。

838510233

evayleung 发表于 2018-6-11 19:15
可以的吧，就是(command "insert" f1 pt1 1 1 0 dwgnum name ssca)这句F1没定义，所以不能插入吧。

C:\\Users\\Administrator.PC-201801111608\\Desktop\\321.jpg
没问题，到IF就结束了

838510233

r1:dialog{
        label="多选安扭";
        :row{
                :boxed_radio_column{
                        label="设计者";
                        :radio_button{label="胡";key=x1;}
                        :radio_button{label="杨";key=x2;}
                        :radio_button{label="李";key=x3;}
                        :radio_button{label="张";key=x4;}
                       
                        }
                        :boxed_radio_column{
                        label="比例";
                        :radio_button{label="1/1";key=x5;}
                        :radio_button{label="1/2";key=x6;}
                        :radio_button{label="1/10";key=x7;}
                        :radio_button{label="1/50";key=x8;}
                       
                        }
        }
        :edit_box{label="编号";edit_width=12;fixed_width=true;key="dwgnum";}
        :row{
        :button{label="插入块";key="q1";}
        cancel_button;
}       
        }