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;

}

hhh454

获取对话框数值示例代码：read 读取数值

1. ;以下为对话框程序自动生成：
   
2. (defun ngc-dcl()
   
3. (setq dcl_file (vl-filename-mktemp nil nil ".dcl"))
   
4. (setq f_dcl (open dcl_file "w"))
   
5. ;;下面的对话框名称ngc，和下面的对应，可以改成自己的名称，要上下对应：
   
6. (write-line "ngc:dialog {" f_dcl)
   
7. (write-line "    label = \"春蝉可视化\" ;" f_dcl)
   
8. (write-line "    :edit_box {" f_dcl)
   
9. (write-line "        edit_width = 20 ;" f_dcl)
   
10. (write-line "        key = \"srsz\" ;" f_dcl)
    
11. (write-line "        label = \"圆的半径\" ;" f_dcl)
    
12. (write-line "    }" f_dcl)
    
13. (write-line "    ok_cancel;" f_dcl)
    
14. (write-line "}" f_dcl)
    
15. (close f_dcl)dcl_file)
    
16. ;;主程序开始：-------------------------------
    
17. (defun c:tt ()
    
18.   (setvar "cmdecho" 0) ;_关闭命令提示
    
19.   (setq osmode_bak (getvar "osmode")) ;_记录捕捉
    
20.   (setvar "osmode" 0) ;_关闭捕捉
    
21.   (setq dcl_id (load_dialog (setq dcl_file (ngc-dcl))));;对话框加载
    
22.   (vl-file-delete dcl_file);;加载后删除dcl文件
    
23.   (setq chk 0);;设置关键联动默认变量为0
    
24.   (new_dialog "ngc" dcl_id);;此处为对话框名称ngc，和上面对应,要上下对应
    
25.   (setq keys '("srsz" "accept" "cancel"));对话框key值列表
    
26.   (foreach key keys (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak"))))))
    
27.   (action_tile "accept" "(setq chk 1)(备份数据)(done_dialog 1)");;确定按钮动作关联
    
28.   (start_dialog)
    
29.   (读取对话框数据);;此处为读取对话框数据的地方
    
30.   (unload_dialog dcl_id)
    
31.   (运行程序);;此处为主要程序运行
    
32.   (setvar "osmode" osmode_bak) ;_还原捕捉
    
33.   (setvar "cmdecho" 1) ;_打开命令提示
    
34.   (princ))
    
35. (defun 读取对话框数据 ()
    
36.   (setq t1 (read srsz_bak)))
    
37. (defun 备份数据( / key)(foreach key keys (set (read (strcat key "_bak")) (get_tile key))))
    
38. (defun 运行程序 ()
    
39.   (if (= chk 1) ;;此处为自定义条件和执行，可以改成其他的关联方式
    
40.       (command "circle" (getpoint) t1)))
    
41.       ;;程序结束-----------------------------------
    

;以下为对话框程序自动生成：<br /> (defun ngc-dcl()<br /> (setq dcl_file (vl-filename-mktemp nil nil ".dcl"))<br /> (setq f_dcl (open dcl_file "w"))<br /> ;;下面的对话框名称ngc，和下面的对应，可以改成自己的名称，要上下对应：<br /> (write-line "ngc:dialog {" f_dcl)<br /> (write-line "    label = \"春蝉可视化\" ;" f_dcl)<br /> (write-line "    :edit_box {" f_dcl)<br /> (write-line "        edit_width = 20 ;" f_dcl)<br /> (write-line "        key = \"srsz\" ;" f_dcl)<br /> (write-line "        label = \"圆的半径\" ;" f_dcl)<br /> (write-line "    }" f_dcl)<br /> (write-line "    ok_cancel;" f_dcl)<br /> (write-line "}" f_dcl)<br /> (close f_dcl)dcl_file)<br /> ;;主程序开始：-------------------------------<br /> (defun c:tt ()<br />   (setvar "cmdecho" 0) ;_关闭命令提示<br />   (setq osmode_bak (getvar "osmode")) ;_记录捕捉<br />   (setvar "osmode" 0) ;_关闭捕捉<br />   (setq dcl_id (load_dialog (setq dcl_file (ngc-dcl))));;对话框加载<br />   (vl-file-delete dcl_file);;加载后删除dcl文件<br />   (setq chk 0);;设置关键联动默认变量为0<br />   (new_dialog "ngc" dcl_id);;此处为对话框名称ngc，和上面对应,要上下对应<br />   (setq keys '("srsz" "accept" "cancel"));对话框key值列表<br />   (foreach key keys (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak"))))))<br />   (action_tile "accept" "(setq chk 1)(备份数据)(done_dialog 1)");;确定按钮动作关联<br />   (start_dialog)<br />   (读取对话框数据);;此处为读取对话框数据的地方<br />   (unload_dialog dcl_id)<br />   (运行程序);;此处为主要程序运行<br />   (setvar "osmode" osmode_bak) ;_还原捕捉<br />   (setvar "cmdecho" 1) ;_打开命令提示<br />   (princ))<br /> (defun 读取对话框数据 ()<br />   (setq t1 (read srsz_bak)))<br /> (defun 备份数据( / key)(foreach key keys (set (read (strcat key "_bak")) (get_tile key))))<br /> (defun 运行程序 ()<br />   (if (= chk 1) ;;此处为自定义条件和执行，可以改成其他的关联方式<br />       (command "circle" (getpoint) t1)))<br />       ;;程序结束----------------------------------- <br />

直接复制或者下载，代码一样。

hhh454

shcvip 发表于 2023-11-28 19:29
如果是二行输入需要输入，那上面的DCL怎么写啊

1. ;以下为对话框程序自动生成：
   
2. (defun ngc-dcl()
   
3. (setq dcl_file (vl-filename-mktemp nil nil ".dcl"))
   
4. (setq f_dcl (open dcl_file "w"))
   
5. ;;下面的对话框名称ngc，和下面的对应，可以改成自己的名称，要上下对应：
   
6. (write-line "ngc:dialog {" f_dcl)
   
7. (write-line "    label = \"春蝉可视化\" ;" f_dcl)
   
8. (write-line "    :edit_box {" f_dcl)
   
9. (write-line "        edit_width = 20 ;" f_dcl)
   
10. (write-line "        key = \"srsz1\" ;" f_dcl)
    
11. (write-line "        label = \"圆的半径1\" ;" f_dcl)
    
12. (write-line "    }" f_dcl)
    
13. (write-line "    :edit_box {" f_dcl)
    
14. (write-line "        edit_width = 20 ;" f_dcl)
    
15. (write-line "        key = \"srsz2\" ;" f_dcl)
    
16. (write-line "        label = \"圆的半径2\" ;" f_dcl)
    
17. (write-line "    }" f_dcl)
    
18. (write-line "    ok_cancel;" f_dcl)
    
19. (write-line "}" f_dcl)
    
20. (close f_dcl)dcl_file)
    
21. ;;主程序开始：-------------------------------
    
22. (defun c:tt ()
    
23.   (setvar "cmdecho" 0) ;_关闭命令提示
    
24.   (setq osmode_bak (getvar "osmode")) ;_记录捕捉
    
25.   (setvar "osmode" 0) ;_关闭捕捉
    
26.   (setq dcl_id (load_dialog (setq dcl_file (ngc-dcl))));;对话框加载
    
27.   (vl-file-delete dcl_file);;加载后删除dcl文件
    
28.   (setq chk 0);;设置关键联动默认变量为0
    
29.   (new_dialog "ngc" dcl_id);;此处为对话框名称ngc，和上面对应,要上下对应
    
30.   (setq keys '("srsz1" "srsz2" "accept" "cancel"));对话框key值列表
    
31.   (foreach key keys (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak"))))))
    
32.   (action_tile "accept" "(setq chk 1)(备份数据)(done_dialog 1)");;确定按钮动作关联
    
33.   (start_dialog)
    
34.   (读取对话框数据);;此处为读取对话框数据的地方
    
35.   (unload_dialog dcl_id)
    
36.   (运行程序);;此处为主要程序运行
    
37.   (setvar "osmode" osmode_bak) ;_还原捕捉
    
38.   (setvar "cmdecho" 1) ;_打开命令提示
    
39.   (princ))
    
40. (defun 读取对话框数据 ()
    
41.   (setq t1 (read srsz1_bak)
    
42.         t2 (read srsz2_bak))
    
43. )
    
44. (defun 备份数据( / key)(foreach key keys (set (read (strcat key "_bak")) (get_tile key))))
    
45. (defun 运行程序 ()
    
46.   (if (= chk 1) ;;此处为自定义条件和执行，可以改成其他的关联方式
    
47.       (progn
    
48.       (setq pt (getpoint "\n指定圆心画同心圆"))
    
49.       (command "circle" pt t1)
    
50.       (command "circle" pt t2)
    
51. ))
    
52. )
    
53.       ;;程序结束-----------------------------------
    

;以下为对话框程序自动生成：<br /> (defun ngc-dcl()<br /> (setq dcl_file (vl-filename-mktemp nil nil ".dcl"))<br /> (setq f_dcl (open dcl_file "w"))<br /> ;;下面的对话框名称ngc，和下面的对应，可以改成自己的名称，要上下对应：<br /> (write-line "ngc:dialog {" f_dcl)<br /> (write-line "    label = \"春蝉可视化\" ;" f_dcl)<br /> (write-line "    :edit_box {" f_dcl)<br /> (write-line "        edit_width = 20 ;" f_dcl)<br /> (write-line "        key = \"srsz1\" ;" f_dcl)<br /> (write-line "        label = \"圆的半径1\" ;" f_dcl)<br /> (write-line "    }" f_dcl)<br /> (write-line "    :edit_box {" f_dcl)<br /> (write-line "        edit_width = 20 ;" f_dcl)<br /> (write-line "        key = \"srsz2\" ;" f_dcl)<br /> (write-line "        label = \"圆的半径2\" ;" f_dcl)<br /> (write-line "    }" f_dcl)<br /> (write-line "    ok_cancel;" f_dcl)<br /> (write-line "}" f_dcl)<br /> (close f_dcl)dcl_file)<br /> ;;主程序开始：-------------------------------<br /> (defun c:tt ()<br />   (setvar "cmdecho" 0) ;_关闭命令提示<br />   (setq osmode_bak (getvar "osmode")) ;_记录捕捉<br />   (setvar "osmode" 0) ;_关闭捕捉<br />   (setq dcl_id (load_dialog (setq dcl_file (ngc-dcl))));;对话框加载<br />   (vl-file-delete dcl_file);;加载后删除dcl文件<br />   (setq chk 0);;设置关键联动默认变量为0<br />   (new_dialog "ngc" dcl_id);;此处为对话框名称ngc，和上面对应,要上下对应<br />   (setq keys '("srsz1" "srsz2" "accept" "cancel"));对话框key值列表<br />   (foreach key keys (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak"))))))<br />   (action_tile "accept" "(setq chk 1)(备份数据)(done_dialog 1)");;确定按钮动作关联<br />   (start_dialog)<br />   (读取对话框数据);;此处为读取对话框数据的地方<br />   (unload_dialog dcl_id)<br />   (运行程序);;此处为主要程序运行<br />   (setvar "osmode" osmode_bak) ;_还原捕捉<br />   (setvar "cmdecho" 1) ;_打开命令提示<br />   (princ))<br /> (defun 读取对话框数据 ()<br />   (setq t1 (read srsz1_bak)<br />         t2 (read srsz2_bak))<br /> )<br /> (defun 备份数据( / key)(foreach key keys (set (read (strcat key "_bak")) (get_tile key))))<br /> (defun 运行程序 ()<br />   (if (= chk 1) ;;此处为自定义条件和执行，可以改成其他的关联方式<br />       (progn<br />       (setq pt (getpoint "\n指定圆心画同心圆"))<br />       (command "circle" pt t1)<br />       (command "circle" pt t2)<br /> ))<br /> )<br />       ;;程序结束----------------------------------- <br />

Andyhon

在实务上个人倾向用dos_editbox
(dos_editbox title prompt [default])

ljfdjjj

不用搞子程序，我在群里教过你的，一句话就能搞定。当然你这样写也可以，不过你的这句 (unload_dialog my_dialog)错了，后面的参数不是DCL的文件名，而是DCL文件的id。也就是你前面赋值的那个变量：dcl_id，所以这句应该这么写(unload_dialog dcl_id)。再给你看下我教你的那种写法

1. (defun c:sr()
   
2.   (setq dcl_id (load_dialog "my_dialog"))
   
3.   (if(< dcl_id 0)(exit))
   
4.   (if(not(new_dialog "a0" dcl_id))(exit))
   
5.   (action_tile "accept" "(setq in(atoi(get_tile \"srsz\")))(done_dialog 1)")
   
6.   (start_dialog)
   
7.   (unload_dialog dcl_id)
   
8.   (alert(strcat"你输入的数值是"(itoa in)))
   
9. )

(defun c:sr()<br />   (setq dcl_id (load_dialog "my_dialog"))<br />   (if(< dcl_id 0)(exit))<br />   (if(not(new_dialog "a0" dcl_id))(exit))<br />   (action_tile "accept" "(setq in(atoi(get_tile \"srsz\")))(done_dialog 1)")<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br />   (alert(strcat"你输入的数值是"(itoa in)))<br /> )

kozmosovia

只输入一个。直接用(lisped "缺省值")就行了，没必要折腾DCL

liuhe

kozmosovia 发表于 2023-11-28 09:51
只输入一个。直接用(lisped "缺省值")就行了，没必要折腾DCL

大佬 我刚才试了一下，那个全屏编辑是啥啊

magicheno

感谢大佬分享

shcvip

hhh454 发表于 2023-11-27 19:25
获取对话框数值示例代码：read 读取数值

如果是二行输入需要输入，那上面的DCL怎么写啊

shcvip

hhh454 发表于 2023-11-28 23:03

如果对话框，弹出来的时候，就给他一个默认值，这个更完美了。