bingshuier 发表于 2014-9-24 00:30:39

dcl 闪退了，不知道为什么

本帖最后由 bingshuier 于 2014-9-24 00:34 编辑

(defun c:xx()
(setvar "cmdecho" 0)
(setq dcl_id1 (load_dialog "C:\\Documents and Settings\\Administrator\\桌面

\\lisp练习程序\\dcl\\edit-box.dcl"))
(new_dialog "aa" dcl_id1)
(set_tile "pline1" (rtos (getvar "plinewid")))
(set_tile "filiet1" (rtos (getvar "filltrad")))
(set_tile "text1" (rtos (getvar "textsize")))
(set_tile "save1" (itoa (getvar "savetime")))
(action_tile "accept" "(func1)(done_dialog 1)")
(start_dialog)
)
(defun func1()
(setvar "plinewid" (atof (get_tile "pline1")))
(setvar "filltrad" (atof (get_tile "filiet1")))
(setvar "textsize" (atof (get_tile "text1")))
(setvar "savetime" (atoi (get_tile "save1")))
)

aa:dialog{
    label="AUtoCAD绘图默认值设置";
    :edit_box
         {
         label="Pline宽度";
         key="pline1";
         edit_width=10;
         }
    :edit_box
         {
         label="Filiet半径";
         key="filiet1";
         edit_width=10;
         }
    :edit_box
         {
         label="TEXT字高";
         key="text1";
         edit_width=10;         
         }
   :edit_box
         {
         label="自动保存时间";
         key="save1";
         edit_width=10;               
         }
ok_cancel;
}

bingshuier 发表于 2014-9-24 01:07:01

自己摸索了好久 终于知道什么问题了！！

llsheng_73 发表于 2014-9-24 18:36:32

set_tile的时候给了错误数据型？

bingshuier 发表于 2014-9-24 20:49:34

llsheng_73 发表于 2014-9-24 18:36
set_tile的时候给了错误数据型？

是控件的长度太长了！

llsheng_73 发表于 2014-9-24 20:52:44

bingshuier 发表于 2014-9-24 20:49 static/image/common/back.gif
是控件的长度太长了！

加一个:column{}
把:EDIT_box全放到里边就不会太长了，好象它默认会是:row{ }？
页: [1]
查看完整版本: dcl 闪退了，不知道为什么