如何编写弹出式窗口的对话框？
 

如何编写弹出式窗口的对话框？
www.dimcax.com
如何编写弹出式窗口的对话框？
本人编了一个命令行输入参数的齿轮程序，可我想改成弹出窗口式的，不知道如何编程？希望能得到各位高手的帮助，先谢谢！以下为命令行输入参数的程序：
(defun c:cl()
(setq m(getreal "输入模数:m=?"))
(setq z(getint "输入齿数:z=?"))
(setq h(getreal "输入齿轮宽度:h=?"))
(setq zj(getreal "输入齿轮轴径:zj=?"))
(setq jk(getreal "输入键槽宽:jk=?")) ;键槽宽
(setq js(getreal "输入键槽深:js=?")) ; 键槽深
(setq lf(getreal "输入轮辐厚度（无轮辐结构时输入齿轮宽度）:lf=?"))
(if (> h lf) (progn
(setq gr(getreal "输入轮毂端面半径:gr=?")) ;轮毂径
(setq yr(getreal "输入轮缘端面半径:yr=?")) ;轮缘径
(setq s(/ (- h lf) 2)) ;凹入深度
(setq l(- h s))
)
)
。。。。。。

要编写对一个.dcl格式的对话框文件，定义所要的对话框。
使用：用load_dialog加载对话框，用new_dialog显示对话框，等等。
有些复杂。

学习，学习。楼主能提供一些资料就好了

谢谢1楼，我的思路也是这样，可是我不会编写.dcl格式的对话框文件，用.lisp可不可以直接写？
re:如何編寫彈出式窗口的對話框？
doslib下有 dos_proplist
或许合您用