本帖最后由 无聊老用户 于 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"))
- )
|