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

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

本帖最后由 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

太谢谢啦，刚学这个！
现在能用了！

账号		自动登录	找回密码
密码			注册