怎样判断用户点击了哪一个单选开关

HQ_2003 · 发表于 2003-7-5 19:14:00

[此贴子已经被作者于2003-7-6 7:42:07编辑过]

njshf · 发表于 2003-7-7 06:12:00

通过返回码

lzfat · 发表于 2003-7-8 14:38:00

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:ccrsb0ngfpm.lsp
下载次数:0 文件大小:257 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:ugknetc03zd.dcl
下载次数:0 文件大小:892 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

我通过“(action_tile "accept" "(setq bbb (get_tile \"xx\"))")
来判断用户点击了第二个单选开关，但是“bbb"为什么没有值啊？基本问题不要见笑

HQ_2003 · 发表于 2003-8-5 12:16:00

有几个问题，accept的动作应该还有结束对话框，
动作函数应该放在new_dialog之后start_dialog之前调用。
你这样写函数，即使返回了正确的值，你也看不出来，必须要将返回的值打印出来，或别的显示才可以知道其值。
这样改，再试试。

copy


(defun c:test( / dcl_id bbb)
(setq dcl_id (load_dialog "HQ_2003.dcl"));加载 DCL 文件 
  (if (not (new_dialog "hello" dcl_id));初始化对话框 
    (exit);
  )
  (action_tile "accept" "(PRINC (setq bbb (get_tile "xx"))) (DONE_DIALOG)")
  (start_dialog);
  
  (unload_dialog dcl_id);卸载 DCL 文件
  (princ)
)

meflying · 发表于 2003-8-5 13:25:00

(defun C:TT ()
  (setq DCL_ID (load_dialog "2.dcl"))       ;加載 DCL 文件
  (if (not (new_dialog "hello" DCL_ID))       ;初始化對話框
(exit)                               ;
  )
  (action_tile
"xx"
"(setq bbb $value)"
  )
  (action_tile "accept" "(done_dialog 1)")
  (start_dialog)
  (unload_dialog DCL_ID)             ;卸載 DCL 文件
  (print BBB)
)

怎样判断用户点击了哪一个单选开关

发表回复

精选推荐