lisp怎么获取dcl的key值？

陈鱼儿

dcl里有个编辑框，想要输入编辑框，在把值给到梨lisp的代码，望大佬指点迷津
以下为lisp代码：
(defun sr2 ()
  (setq in(atoi(get_tile "srsz")))
  )
(defun sr ()
  (setq dcl_id (load_dialog "my_dialog"))
  (if(< dcl_id 0)(exit))
  (if(not(new_dialog "a0" dcl_id))(exit))
  (action_tile "accept" "(sr2)(done_dialog 1)")
  (setq dd(start_dialog))
  (unload_dialog my_dialog)
)
以下为dcl代码：
a0:dialog {
    label = "示例对话框";
    :row {
        :edit_box {
            label = "输入数值：";
            key = "srsz";
            edit_width = 20;
            
        }
    }
    spacer_1;                                //空白一行
        
ok_cancel;

}

陈鱼儿

发错群组了，不好意思

xj6019

陈鱼儿 发表于 2023-11-27 17:37
发错群组了，不好意思

给你个常用的dcl小模板，套就是了

陈鱼儿

xj6019 发表于 2023-11-27 18:20
给你个常用的dcl小模板，套就是了

好的！！！万分感谢！！