标准化输入对话框lisp代码

guangdonglbq

;;;标准输入对话框
;;;调用形式 (InputBox 显示的对话框名称 表( ( "editbox显示的说明" "editbox显示值" "editbox显示宽度") ...) )
;;;注意，调用参数均为字符串形式
;;;返回值为与输入表长度相等的字符串列表
;;;注意：以下代码未对输入代码格式进行检查，有需要时，需人加入格式检查的代码
(defun InputBox (strDialogName EditBoxDefList
/ ResultList fStream dclname tempFileName fileN fileStream templist i
dclid)
;;;-------------------------------------------------
(defun GetInput (len)
(setq i 1
ResultList nil
)

(repeat len
(setq ResultList
(append ResultList (list (get_tile (itoa i))))
)

(setq i (1+ i))
)
)
;;;-------------------------------------------------
(setq tempFileName (vl-filename-mktemp "dcltmp.dcl"))
(setq fileN (open tempFileName "w"))

(setq fileStream (list
"InputBox:dialog {\n"
(strcat "label =\"" strDialogName "\";\n")
)
)
(setq i 0)
(repeat (length EditBoxDefList)
(setq templist (nth i EditBoxDefList))
(setq fileStream (append fileStream
(list
":edit_box{\n"
"allow_accept = true ;\n"
(strcat "edit_width =" (caddr templist) ";\n")
"fixed_width = true ;\n"
(strcat "key =\"" (itoa (1+ i)) "\";\n")
(strcat "label=\"" (car templist) "\";\n")
(strcat "value=\"" (cadr templist) "\";\n")
)
)
)

(setq i (1+ i))
)

(setq fileStream (append fileStream
(list

"} ok_cancel;\n"
"}\n"
)
)
)
(foreach fStream
fileStream
(princ fStream fileN)
)
(close fileN)

(setq dclname tempFileName)


(setq dclid (load_dialog dclname))
(if (not (new_dialog "InputBox" dclid ""))
(progn (alert "对话框加载失败!") (exit))
)

(action_tile "accept" "(GetInput (length EditBoxDefList) ) (done_dialog 1)" )

(start_dialog)

(unload_dialog dclid)
(vl-file-delete dclname)

ResultList
)
;;;-------------------------------------------------

Michael527

试试楼主的函数，谢谢分享！

paulpipi

试试楼主的函数，谢谢分享！

yjtdkj

我试了一下，表里只有一项时是可以的，但表中有两项就出错了

yjtdkj

查到原因了，是少了一个括号

1. ;;;标准输入对话框
   
2. ;;;调用形式 (InputBox 显示的对话框名称 '( ( "editbox显示的说明" "editbox显示值" "editbox显示宽度") ...) )
   
3. ;;;注意，调用参数均为字符串形式
   
4. ;;;返回值为与输入表长度相等的字符串列表
   
5. ;;;注意：以下代码未对输入代码格式进行检查，有需要时，需人加入格式检查的代码
   
6. (defun InputBox  (strDialogName EditBoxDefList
   
7.      /         ResultList    fStream
   
8.      dclname       tempFileName  fileN
   
9.      fileStream    templist       i
   
10.      dclid n
    
11.     )
    
12. ;;;-------------------------------------------------
    
13.   (defun GetInput (len / i)
    
14.     (setq i 1
    
15.     ResultList
    
16.      nil
    
17.     )
    
18. 
    
19.     (repeat len
    
20.       (setq ResultList
    
21.        (append ResultList (list (get_tile (itoa i))))
    
22.       )
    
23. 
    
24.       (setq i (1+ i))
    
25.     )
    
26.   )
    
27. ;;;-------------------------------------------------
    
28.   (setq tempFileName (vl-filename-mktemp "dcltmp.dcl"))
    
29.   (setq fileN (open tempFileName "w"))
    
30. 
    
31.   (setq  fileStream
    
32.    (list
    
33.      "InputBox:dialog {\n"
    
34.      (strcat "label =\"" strDialogName "\";\n")
    
35.    )
    
36.   )
    
37.   (setq i 0)
    
38.   (repeat (length EditBoxDefList)
    
39.     (setq templist (nth i EditBoxDefList))
    
40.     (setq fileStream
    
41.      (append fileStream
    
42.        (list
    
43.          ":edit_box{\n"
    
44.          "allow_accept = true ;\n"
    
45.          (strcat "edit_width =" (caddr templist) ";\n")
    
46.          "fixed_width = true ;\n"
    
47.          (strcat "key =\"" (itoa (1+ i)) "\";\n")
    
48.          (strcat "label=\"" (car templist) "\";\n")
    
49.          (strcat "value=\"" (cadr templist) "\";\n")
    
50.          "}"
    
51.        )
    
52.      )
    
53.     )
    
54. 
    
55.     (setq i (1+ i))
    
56.   )
    
57. 
    
58.   (setq  fileStream
    
59.    (append fileStream
    
60.      (list
    
61. 
    
62.        "ok_cancel;\n"
    
63.        "}\n"
    
64.      )
    
65.    )
    
66.   )
    
67.   (foreach n
    
68.        fileStream
    
69.     (princ n fileN)
    
70.   )
    
71.   (close fileN)
    
72. 
    
73.   (setq dclname tempFileName)
    
74. 
    
75. 
    
76.   (setq dclid (load_dialog dclname))
    
77.   (if (not (new_dialog "InputBox" dclid ""))
    
78.     (progn (alert "对话框加载失败!") (exit))
    
79.   )
    
80. 
    
81.   (action_tile
    
82.     "accept"
    
83.     "(GetInput (length EditBoxDefList) ) (done_dialog 1)"
    
84.   )
    
85. 
    
86.   (start_dialog)
    
87. 
    
88.   (unload_dialog dclid)
    
89.   (vl-file-delete dclname)
    
90. 
    
91.   ResultList
    
92. )
    
93. ;;;-------------------------------------------------

;;;标准输入对话框<br /> ;;;调用形式 (InputBox 显示的对话框名称 '( ( "editbox显示的说明" "editbox显示值" "editbox显示宽度") ...) )<br /> ;;;注意，调用参数均为字符串形式<br /> ;;;返回值为与输入表长度相等的字符串列表<br /> ;;;注意：以下代码未对输入代码格式进行检查，有需要时，需人加入格式检查的代码<br /> (defun InputBox  (strDialogName EditBoxDefList<br />      /         ResultList    fStream<br />      dclname       tempFileName  fileN<br />      fileStream    templist       i<br />      dclid n<br />     )<br /> ;;;-------------------------------------------------<br />   (defun GetInput (len / i)<br />     (setq i 1<br />     ResultList<br />      nil<br />     )<br /> <br />     (repeat len<br />       (setq ResultList<br />        (append ResultList (list (get_tile (itoa i))))<br />       )<br /> <br />       (setq i (1+ i))<br />     )<br />   )<br /> ;;;-------------------------------------------------<br />   (setq tempFileName (vl-filename-mktemp "dcltmp.dcl"))<br />   (setq fileN (open tempFileName "w"))<br /> <br />   (setq  fileStream<br />    (list<br />      "InputBox:dialog {\n"<br />      (strcat "label =\"" strDialogName "\";\n")<br />    )<br />   )<br />   (setq i 0)<br />   (repeat (length EditBoxDefList)<br />     (setq templist (nth i EditBoxDefList))<br />     (setq fileStream<br />      (append fileStream<br />        (list<br />          ":edit_box{\n"<br />          "allow_accept = true ;\n"<br />          (strcat "edit_width =" (caddr templist) ";\n")<br />          "fixed_width = true ;\n"<br />          (strcat "key =\"" (itoa (1+ i)) "\";\n")<br />          (strcat "label=\"" (car templist) "\";\n")<br />          (strcat "value=\"" (cadr templist) "\";\n")<br />          "}"<br />        )<br />      )<br />     )<br /> <br />     (setq i (1+ i))<br />   )<br /> <br />   (setq  fileStream<br />    (append fileStream<br />      (list<br /> <br />        "ok_cancel;\n"<br />        "}\n"<br />      )<br />    )<br />   )<br />   (foreach n<br />        fileStream<br />     (princ n fileN)<br />   )<br />   (close fileN)<br /> <br />   (setq dclname tempFileName)<br /> <br /> <br />   (setq dclid (load_dialog dclname))<br />   (if (not (new_dialog "InputBox" dclid ""))<br />     (progn (alert "对话框加载失败!") (exit))<br />   )<br /> <br />   (action_tile<br />     "accept"<br />     "(GetInput (length EditBoxDefList) ) (done_dialog 1)"<br />   )<br /> <br />   (start_dialog)<br /> <br />   (unload_dialog dclid)<br />   (vl-file-delete dclname)<br /> <br />   ResultList<br /> )<br /> ;;;-------------------------------------------------