[求助]：救命！！dcl问题

ssh · 发表于 2003-12-30 10:46:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

为什么不运行我的取值程序？
(defun getdata()
  (setq a $key1)
....
)
(defun dialogs ()
  (setq dcl_id (load_dialog "lispPs.dcl"))
  (if (not (new_dialog "dcl_show" dcl_id))
(exit)
  )

  (setq x (dimx_tile "image")
y (dimy_tile "image")
  )
  (start_image "image")
  (slide_image 0 0 x y "lispPs")
  (end_image)

  (action_tile "accept" " (getdata)(done_dialog 1) ")
  (setq ret (start_dialog))
  (unload_dialog dcl_id)
)

怎么就是不运行我的getdata呢？

playboy · 发表于 2003-12-30 11:32:18

对不起dcl我也是刚刚学习可能我的水平还不如你。
你为什么不用 (getvar "cdate")这个直接取出系统的日期呢

ssh · 发表于 2003-12-30 11:43:54

不是要求得日期的
是取得对话框中编辑框的得内容阿
然后根据这些数值画出图形

841594 · 发表于 2003-12-30 18:15:43

我想（setq a $key1）可能有问题
为什么不试试（setq a (get_tile "xxx")）呢

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

[求助] [求助]：救命！！dcl问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子