陈鱼儿 发表于 2023-11-27 17:27:27

lisp怎么获取dcl的key值？

本帖最后由 陈鱼儿 于 2023-11-27 17:29 编辑

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;

}

陈鱼儿 发表于 2023-11-27 17:37:36

发错群组了，不好意思

xj6019 发表于 2023-11-27 18:20:25

本帖最后由 xj6019 于 2023-11-27 18:23 编辑

陈鱼儿 发表于 2023-11-27 17:37
发错群组了，不好意思
给你个常用的dcl小模板，套就是了

陈鱼儿 发表于 2023-11-28 08:31:55

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

好的！！！万分感谢！！

lijunfa12345 发表于 2024-9-26 21:04:32

值得学习学习，，，，

世井 发表于 2024-11-13 15:56:24

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

如果对有选择集的数值处理，要怎么弄么

世井 发表于 2024-11-14 08:37:20

世井 发表于 2024-11-13 15:56
如果对有选择集的数值处理，要怎么弄么

你现在这个DCL的KEY值对应的是点的操作，如果是对选择集这样操作是要怎么弄
页: [1]
查看完整版本: lisp怎么获取dcl的key值？