请大佬帮忙看看

624777395

2. (defun C:E1E (/ dcl_file tmp-dcl-file-name dcl_id AA AAZ)
   
3.   ;; 创建临时DCL文件并写入对话框定义
   
4.   (setq dcl_file (open (setq tmp-dcl-file-name (vl-filename-mktemp nil nil ".DCL")) "w"))
   
5.   (foreach x
   
6.     '(
   
7.       "ZW:dialog {"
   
8.       "  label = "测试窗体";"
   
9.       "  :row {"
   
10.       "    :edit_box { key = "AAZ"; height = 1; edit_width = 7; }"
    
11.       "  }"
    
12.       "  :row {"
    
13.       "    :button { label = "测试"; key = "CESHI"; height = 1; }"
    
14.       "  }"
    
15.       "  ok_cancel;"
    
16.       "}"
    
17.     )
    
18.     (write-line x dcl_file)
    
19.   )
    
20.   (close dcl_file)
    
21. 
    
22.   ;; 加载并显示对话框
    
23.   (setq dcl_id (load_dialog tmp-dcl-file-name))
    
24.   (if (not (new_dialog "ZW" dcl_id))
    
25.     (progn
    
26.       (unload_dialog dcl_id)
    
27.       (exit)
    
28.     )
    
29.   )
    
30.   ;; 编辑框记忆功能
    
31.   (if (setq AAZ (vl-bb-ref 'AAZ))
    
32.     (set_tile "AAZ" AAZ) ; 对话框二次出现
    
33.     (set_tile "AAZ" "1") ; 对话框首次出现
    
34.   )
    
35.   
    
36. (action_tile "AAZ"  (vl-prin1-to-string'(
    
37.                         (lambda ( / itm )
    
38.          (setq AAZ(get_tile "AAZ"))
    
39.          (vl-bb-set 'AAZ AAZ);_保存原值
    
40.         )
    
41.                  )
    
42.    )
    
43. )
    
44. 
    
45.   ;; 设置取消按钮的动作
    
46.   (action_tile "cancel" "(done_dialog 0)")
    
47. 
    
48.   ;; 设置测试按钮的动作
    
49.   (action_tile "CESHI" "(done_dialog 1)")
    
50. 
    
51.   ;; 启动对话框
    
52.   (setq AA (start_dialog))
    
53. 
    
54.   ;; 根据用户选择执行相应操作
    
55.   (if (= AA 1)
    
56.     (CHZ)
    
57.   )
    
58. 
    
59.   ;; 卸载对话框
    
60.   (unload_dialog dcl_id)
    
61. 
    
62.   ;; 清理临时文件
    
63.   (vl-file-delete tmp-dcl-file-name)
    
64. 
    
65.   (princ)
    
66. )
    
67. 
    
68. 
    
69. ;; 处理测试按钮点击后的逻辑
    
70. (defun CHZ ()
    
71. 
    
72.   (setq qws (* 5 (atof(get_tile "AAZ"))))
    
73. 
    
74.   ;; 打印信息到命令行
    
75.   (princ (strcat "\n数值:" qws " "))
    
76.   (princ)
    
77. )
    
78. 
    
79. ;; 确保在加载时不会自动运行
    
80. (princ)

(defun C:E1E (/ dcl_file tmp-dcl-file-name dcl_id AA AAZ)<br />   ;; 创建临时DCL文件并写入对话框定义<br />   (setq dcl_file (open (setq tmp-dcl-file-name (vl-filename-mktemp nil nil ".DCL")) "w"))<br />   (foreach x<br />     '(<br />       "ZW:dialog {"<br />       "  label = "测试窗体";"<br />       "  :row {"<br />       "    :edit_box { key = "AAZ"; height = 1; edit_width = 7; }"<br />       "  }"<br />       "  :row {"<br />       "    :button { label = "测试"; key = "CESHI"; height = 1; }"<br />       "  }"<br />       "  ok_cancel;"<br />       "}"<br />     )<br />     (write-line x dcl_file)<br />   )<br />   (close dcl_file)<br /> <br />   ;; 加载并显示对话框<br />   (setq dcl_id (load_dialog tmp-dcl-file-name))<br />   (if (not (new_dialog "ZW" dcl_id))<br />     (progn<br />       (unload_dialog dcl_id)<br />       (exit)<br />     )<br />   )<br />   ;; 编辑框记忆功能<br />   (if (setq AAZ (vl-bb-ref 'AAZ))<br />     (set_tile "AAZ" AAZ) ; 对话框二次出现<br />     (set_tile "AAZ" "1") ; 对话框首次出现<br />   )<br />   <br /> (action_tile "AAZ"  (vl-prin1-to-string'(<br />                         (lambda ( / itm )<br />          (setq AAZ(get_tile "AAZ"))<br />          (vl-bb-set 'AAZ AAZ);_保存原值<br />         )<br />                  )<br />    )<br /> )<br /> <br />   ;; 设置取消按钮的动作<br />   (action_tile "cancel" "(done_dialog 0)")<br /> <br />   ;; 设置测试按钮的动作<br />   (action_tile "CESHI" "(done_dialog 1)")<br /> <br />   ;; 启动对话框<br />   (setq AA (start_dialog))<br /> <br />   ;; 根据用户选择执行相应操作<br />   (if (= AA 1)<br />     (CHZ)<br />   )<br /> <br />   ;; 卸载对话框<br />   (unload_dialog dcl_id)<br /> <br />   ;; 清理临时文件<br />   (vl-file-delete tmp-dcl-file-name)<br /> <br />   (princ)<br /> )<br /> <br /> <br /> ;; 处理测试按钮点击后的逻辑<br /> (defun CHZ ()<br /> <br />   (setq qws (* 5 (atof(get_tile "AAZ"))))<br /> <br />   ;; 打印信息到命令行<br />   (princ (strcat "\n数值:" qws " "))<br />   (princ)<br /> )<br /> <br /> ;; 确保在加载时不会自动运行<br /> (princ)

这段代码点击测试按钮后，会提示类型错误，大佬们帮忙看看哪里出错了

ssyfeng

这里有问题：

'(
      "ZW:dialog {"
      "  label = \"测试窗体\";"
      "  :row {"
      "    :edit_box { key = \"AAZ\"; height = 1; edit_width = 7; }"
      "  }"
      "  :row {"
      "    :button { label = \"测试\"; key = \"CESHI\"; height = 1; }"
      "  }"
      "  ok_cancel;"
      "}"
    )

624777395

ssyfeng 发表于 2024-12-4 11:47
这里有问题：

'(

原代码是有斜杠的，不知道为什么上传之后就不见斜杠了

自贡黄明儒

手写(vl-filename-mktemp&#160;nil&#160;nil&#160;".DCL")临时对话框，确实容易出错。所以我发布了由程序读取DCL，这样就不容易出错了。