DCL动态输入

ymcui2005

如何才能做到自动得出总数.
比如（1+？=总数）?输入1总数自动变成2,在1后面再输入1相当(11)总数自动变成12
谢谢

Lisphk

用OPENDCL吧，免费的。DCL不行，没事件回调监控。

fangmin723

在一个输入框输入数据后，按    回车   或   点击计算按钮   或   点击其他的输入框    就会计算总数！希望能帮到你！

1. (defun c:tt();此部分是测试代码用
   
2.         (jixuanqi_load)
   
3. )
   
4. ;-------------------------------------
   
5. (defun jixuanqi_load(/ dcl_id dcl_file dialog_return keys key)
   
6.         (vl-load-com)
   
7.         (setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl_jixuanqi))));对话框加载
   
8.         (vl-file-delete Dcl_File);加载后删除DCL文件
   
9.         (setq Dialog_Return 2)
   
10.         (while (> Dialog_Return 1) ;循环控制对话框是否结束
    
11.                 (new_dialog "jisuanqi" dcl_id);建立窗体
    
12.         ;--->--->---对话框初始化--->--->---
    
13.                 (setq keys '("befnum" "midnum" "endnum" "zero"));列表全部控件名称
    
14.                 ;(action_tile "accept" "(done_dialog 1)")
    
15.                 ;(action_tile "cancel" "(done_dialog 0)")
    
16.                 (foreach key keys;全部控件的初始化
    
17.                         ;(if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容
    
18.                         (action_tile key "(Action_jixuanqi_Keys $key $value)");点击动作 $reason
    
19.                 )
    
20.         ;---<---<---对话框初始化完成---<---<---
    
21.                 (setq Dialog_Return (start_dialog));开启对话框(用户可见)
    
22.         )
    
23.         (unload_dialog dcl_id);退出时卸载对话框
    
24.         (cond
    
25.                 ;((= Dialog_Return 1) (princ "\n确定"))
    
26.                 ((= Dialog_Return 0) (princ "\n*取消*"))
    
27.         )
    
28.         (prin1);防止函数回显
    
29. )
    
30. ;-------------------------------------
    
31. (defun Action_jixuanqi_Keys (key value);全部控件的点击动作触发
    
32.         (cond
    
33.                 ((= key "accept") ;{确认按钮}
    
34.                         ()
    
35.                         ;(Get_jixuanqi_Data)
    
36.                         ;(done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1
    
37.                 )
    
38.                 ((= key "zero") ;{确认按钮}
    
39.                         (set_tile "befnum" "")
    
40.                         (set_tile "midnum" "")
    
41.                         (set_tile "endnum" "")
    
42.                 )
    
43.                 ((= key "cancel") ;{取消按钮}
    
44.                         (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0
    
45.                 )
    
46.                 ((= key "befnum");{ } (输入框)
    
47.                         (setq befnum (atof (get_tile "befnum")))
    
48.                         (setq midnum (atof (get_tile "midnum")))
    
49.                         (setq endnum (atof (get_tile "endnum")))
    
50.                         (cond
    
51.                                 ((and (/= befnum 0) (/= midnum 0)) (setq endnum (+ befnum midnum)) (set_tile "endnum" (rtos endnum)))
    
52.                                 (T (set_tile "endnum" ""))
    
53.                         )
    
54.                 )
    
55.                 ((= key "midnum");{ } (输入框)
    
56.                         (setq befnum (atof (get_tile "befnum")))
    
57.                         (setq midnum (atof (get_tile "midnum")))
    
58.                         (setq endnum (atof (get_tile "endnum")))
    
59.                         (cond
    
60.                                 ((and (/= befnum 0) (/= midnum 0)) (setq endnum (+ befnum midnum)) (set_tile "endnum" (rtos endnum)))
    
61.                                 (T (set_tile "endnum" ""))
    
62.                         )
    
63.                 )
    
64.                 ((= key "endnum");{ } (输入框)
    
65.                         (setq befnum (atof (get_tile "befnum")))
    
66.                         (setq midnum (atof (get_tile "midnum")))
    
67.                         (setq endnum (atof (get_tile "endnum")))
    
68.                         (cond
    
69.                                 ((and (/= befnum 0) (/= endnum 0) (= midnum 0)) (setq lsnum 1))
    
70.                                 ((and (/= midnum 0) (/= endnum 0) (= befnum 0)) (setq lsnum 0))
    
71.                         )
    
72.                         (cond
    
73.                                 ((= lsnum 1) (setq midnum (- endnum befnum)) (set_tile "midnum" (rtos midnum)))
    
74.                                 ((= lsnum 0) (setq befnum (- endnum midnum)) (set_tile "befnum" (rtos befnum)))
    
75.                         )
    
76.                 )
    
77.         )
    
78. )
    
79. ;-------------------------------------
    
80. ;(defun Get_jixuanqi_Data( / key);临时生成Dcl文件 返回文件名
    
81. ;        (foreach key keys
    
82. ;                (set (read (strcat key "_bak")) (get_tile key));每个控件都赋给一个变量 用于下次开启初始化
    
83. ;        )
    
84. ;)
    
85. ;-------------------------------------
    
86. (defun Write_Dcl_jixuanqi(/ Dcl_File file str)
    
87.         (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
    
88.         (setq file (open Dcl_File "w"))
    
89.         (foreach str '(
    
90.                 "/*★★★★★ListDCL @ fsxm.mjtd.com★★★★★*/"
    
91.                 ""
    
92.                 "jisuanqi:dialog{"
    
93.                 "    key = \"计算器\" ;"
    
94.                 "    label = \"计算器\" ;"
    
95.                 "    :row {"
    
96.                 "        :edit_box {"
    
97.                 "            key = \"befnum\" ;"
    
98.                 "        }"
    
99.                 "        :text {"
    
100.                 "            label = \"+\" ;"
     
101.                 "        }"
     
102.                 "        :edit_box {"
     
103.                 "            key = \"midnum\" ;"
     
104.                 "        }"
     
105.                 "        :text {"
     
106.                 "            label = \"=\" ;"
     
107.                 "        }"
     
108.                 "        :edit_box {"
     
109.                 "            key = \"endnum\" ;"
     
110.                 "        }"
     
111.                 "    }"
     
112.                 "    :row {"
     
113.                 "        :button {"
     
114.                 "            key = \"zero\" ;"
     
115.                 "            label = \"归零\" ;"
     
116.                 "        }"
     
117.                 "        :button {"
     
118.                 "            key = \"accept\" ;"
     
119.                 "            label = \"计算\" ;"
     
120.                 "        }"
     
121.                 "        :button {"
     
122.                 "            is_cancel = true ;"
     
123.                 "            key = \"cancel\" ;"
     
124.                 "            label = \"取消\" ;"
     
125.                 "        }"
     
126.                 "    }"
     
127.                 "}"
     
128.                                                                 )
     
129.                                                                 (write-line str file)
     
130.         )
     
131.         (close file)
     
132.         Dcl_File
     
133. )
     

(defun c:tt();此部分是测试代码用<br />         (jixuanqi_load)<br /> )<br /> ;-------------------------------------<br /> (defun jixuanqi_load(/ dcl_id dcl_file dialog_return keys key)<br />         (vl-load-com)<br />         (setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl_jixuanqi))));对话框加载<br />         (vl-file-delete Dcl_File);加载后删除DCL文件<br />         (setq Dialog_Return 2)<br />         (while (> Dialog_Return 1) ;循环控制对话框是否结束<br />                 (new_dialog "jisuanqi" dcl_id);建立窗体<br />         ;--->--->---对话框初始化--->--->---<br />                 (setq keys '("befnum" "midnum" "endnum" "zero"));列表全部控件名称<br />                 ;(action_tile "accept" "(done_dialog 1)")<br />                 ;(action_tile "cancel" "(done_dialog 0)")<br />                 (foreach key keys;全部控件的初始化<br />                         ;(if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容<br />                         (action_tile key "(Action_jixuanqi_Keys $key $value)");点击动作 $reason<br />                 )<br />         ;---<---<---对话框初始化完成---<---<---<br />                 (setq Dialog_Return (start_dialog));开启对话框(用户可见)<br />         )<br />         (unload_dialog dcl_id);退出时卸载对话框<br />         (cond<br />                 ;((= Dialog_Return 1) (princ "\n确定"))<br />                 ((= Dialog_Return 0) (princ "\n*取消*"))<br />         )<br />         (prin1);防止函数回显<br /> )<br /> ;-------------------------------------<br /> (defun Action_jixuanqi_Keys (key value);全部控件的点击动作触发<br />         (cond<br />                 ((= key "accept") ;{确认按钮}<br />                         ()<br />                         ;(Get_jixuanqi_Data)<br />                         ;(done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1<br />                 )<br />                 ((= key "zero") ;{确认按钮}<br />                         (set_tile "befnum" "")<br />                         (set_tile "midnum" "")<br />                         (set_tile "endnum" "")<br />                 )<br />                 ((= key "cancel") ;{取消按钮}<br />                         (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0<br />                 )<br />                 ((= key "befnum");{ } (输入框)<br />                         (setq befnum (atof (get_tile "befnum")))<br />                         (setq midnum (atof (get_tile "midnum")))<br />                         (setq endnum (atof (get_tile "endnum")))<br />                         (cond<br />                                 ((and (/= befnum 0) (/= midnum 0)) (setq endnum (+ befnum midnum)) (set_tile "endnum" (rtos endnum)))<br />                                 (T (set_tile "endnum" ""))<br />                         )<br />                 )<br />                 ((= key "midnum");{ } (输入框)<br />                         (setq befnum (atof (get_tile "befnum")))<br />                         (setq midnum (atof (get_tile "midnum")))<br />                         (setq endnum (atof (get_tile "endnum")))<br />                         (cond<br />                                 ((and (/= befnum 0) (/= midnum 0)) (setq endnum (+ befnum midnum)) (set_tile "endnum" (rtos endnum)))<br />                                 (T (set_tile "endnum" ""))<br />                         )<br />                 )<br />                 ((= key "endnum");{ } (输入框)<br />                         (setq befnum (atof (get_tile "befnum")))<br />                         (setq midnum (atof (get_tile "midnum")))<br />                         (setq endnum (atof (get_tile "endnum")))<br />                         (cond<br />                                 ((and (/= befnum 0) (/= endnum 0) (= midnum 0)) (setq lsnum 1))<br />                                 ((and (/= midnum 0) (/= endnum 0) (= befnum 0)) (setq lsnum 0))<br />                         )<br />                         (cond<br />                                 ((= lsnum 1) (setq midnum (- endnum befnum)) (set_tile "midnum" (rtos midnum)))<br />                                 ((= lsnum 0) (setq befnum (- endnum midnum)) (set_tile "befnum" (rtos befnum)))<br />                         )<br />                 )<br />         )<br /> )<br /> ;-------------------------------------<br /> ;(defun Get_jixuanqi_Data( / key);临时生成Dcl文件 返回文件名<br /> ;        (foreach key keys<br /> ;                (set (read (strcat key "_bak")) (get_tile key));每个控件都赋给一个变量 用于下次开启初始化<br /> ;        )<br /> ;)<br /> ;-------------------------------------<br /> (defun Write_Dcl_jixuanqi(/ Dcl_File file str)<br />         (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))<br />         (setq file (open Dcl_File "w"))<br />         (foreach str '(<br />                 "/*★★★★★ListDCL @ fsxm.mjtd.com★★★★★*/"<br />                 ""<br />                 "jisuanqi:dialog{"<br />                 "    key = \"计算器\" ;"<br />                 "    label = \"计算器\" ;"<br />                 "    :row {"<br />                 "        :edit_box {"<br />                 "            key = \"befnum\" ;"<br />                 "        }"<br />                 "        :text {"<br />                 "            label = \"+\" ;"<br />                 "        }"<br />                 "        :edit_box {"<br />                 "            key = \"midnum\" ;"<br />                 "        }"<br />                 "        :text {"<br />                 "            label = \"=\" ;"<br />                 "        }"<br />                 "        :edit_box {"<br />                 "            key = \"endnum\" ;"<br />                 "        }"<br />                 "    }"<br />                 "    :row {"<br />                 "        :button {"<br />                 "            key = \"zero\" ;"<br />                 "            label = \"归零\" ;"<br />                 "        }"<br />                 "        :button {"<br />                 "            key = \"accept\" ;"<br />                 "            label = \"计算\" ;"<br />                 "        }"<br />                 "        :button {"<br />                 "            is_cancel = true ;"<br />                 "            key = \"cancel\" ;"<br />                 "            label = \"取消\" ;"<br />                 "        }"<br />                 "    }"<br />                 "}"<br />                                                                 )<br />                                                                 (write-line str file)<br />         )<br />         (close file)<br />         Dcl_File<br /> )<br />

ymcui2005

fangmin723 发表于 2017-5-12 11:00

非常感谢,但程序还有一点问题.无法运行( 错误: 参数太少),希望解决 谢谢

ymcui2005

fangmin723 发表于 2017-5-12 11:00

还是说我用的CAD版本不行,我用的是CAD2006

fangmin723

ymcui2005 发表于 2017-5-12 14:02

我用的是2012

ymcui2005

fangmin723 发表于 2017-5-12 15:50

谢谢,我装个2012试试

fangmin723

ymcui2005 发表于 2017-5-12 16:30

你这CAD是哪个版本啊

ymcui2005

fangmin723 发表于 2017-5-14 08:00

CAD2006