mmh1 发表于 2010-12-23 17:01:27

dcl里用自定义变量的数据类型怎么改都说错误？

本帖最后由 mmh1 于 2010-12-23 17:01 编辑

(defun c:v1()
(setvar "cmdecho" 0)
(dcl_dia5a)
(prin1)
)
(defun dcl_dia5a()
(setq dcl_id (load_dialog "E:\\1\\dcl\\mmh111.dcl"))
(new_dialog "dia5a" dcl_id)
(set_tile "edit_1" (rtos (setenv "a")))
(set_tile "edit_2" (rtos (setenv "b")))
(set_tile "edit_3" (rtos (setenv "ji")))
(action_tile "accept" "(vg)(done_dialog 1)")
(action_tile "accept" "(vg)(done_dialog 2)")
(action_tile "accept" "(vg)(done_dialog 3)")
(setq mmh1 (start_dialog))
(cond ((= mmh1 3) (vghh))
(t (alert "未完成任何动作!!!")))
(start_dialog)
)
(defun vg()
(setenv "a" (atof(get_tile "edit_1")))
(setenv "b" (atof(get_tile "edit_2")))
(setenv "c" (atof(get_tile "edit_3")))
)

mmh1 发表于 2010-12-23 17:03:40

dia5a:dialog{
        label="相关数据";
        :edit_box{
                label="1";
                key="edit_1";
                edit_width=6;
        }
        :edit_box{
                label="2";
                key="edit_2";
                edit_width=6;
        }
        :edit_box{
                label="3";
                key="edit_3";
                edit_width=6;
        }
        ok_cancel;
}
dcl在这里

无聊老用户 发表于 2010-12-23 17:33:43

本帖最后由 无聊老用户 于 2010-12-23 17:34 编辑

setenv后面应该跟字符串吧.
楼主的程序写的有点乱.没有条理,稍微改了一下(defun c:v1()
(setvar "cmdecho" 0)
(dcl_dia5a)
(prin1)
)
(defun dcl_dia5a()
(setq dcl_id (load_dialog "E:\\1\\dcl\\mmh111.dcl"))
(new_dialog "dia5a" dcl_id)
(if (getenv "a")(set_tile "edit_1" (getenv "a")))
(if (getenv "b")(set_tile "edit_2" (getenv "b")))
(if (getenv "ji") (set_tile "edit_3" (getenv "ji")))

(action_tile "accept" "(vg)(done_dialog 1)")
(start_dialog)
)
(defun vg()
(setenv "a" (get_tile "edit_1"))
(setenv "b" (get_tile "edit_2"))
(setenv "ji" (get_tile "edit_3"))
)

mmh1 发表于 2010-12-23 17:48:30

太谢谢啦，刚学这个！
现在能用了！
页: [1]
查看完整版本: dcl里用自定义变量的数据类型怎么改都说错误？