帮忙看一下让列表对话框双击或点确定都执行命令

ww5w · 发表于 2013-1-21 01:21:37

本帖最后由 ww5w 于 2013-1-21 01:24 编辑

(defun C:tt ()
(if (< (setq DCL_ID (load_dialog "cmdDCL.dcl")) 0)
(exit)
)
(setq LIS '("画线" "画圆" "复制" "移动"))
(new_dialog "cmdDCL" DCL_ID)
(start_list "list")
(action_tile "list" "(setq ind (nth (atoi $value) lis))(set_tile \"sset\" ind)")
(action_tile "accept" "(done_dialog 1)")
(setp run (start_dialog))
(cond
((= run 1) (c:line))
((= run 2) (c:copy))
(unload_dialog DCL_ID)
IND
)
;;对话框--
cmdDCL:dialog{
label="命令列表";
:list_box{
label="双击确定执行";
key="list";allow_accept=true;
list="画线\n画圆\n复制\n移动";
width=30;
height=10;
}
:row{
:edit_box{
label="选中:";
key="sset";
}
ok_button;
}
:row{help_button;}
帮忙改一下,我弄了一天没弄好,谢谢!

masterlong · 发表于 2013-1-21 05:34:42

(action_tile "序号" "(setq id $value)(if (= 4 $reason) (progn (vvfdclget1)(done_dialog 1)))")
参照着改吧

ZZXXQQ · 发表于 2013-1-21 08:06:39

本帖最后由 ZZXXQQ 于 2013-1-21 08:24 编辑

(defun C:tt ()
(if (> (setq DCL_ID (load_dialog "cmdDCL.dcl")) 0) (progn
(setq LIS '("画线" "画圆" "复制" "移动"))
(setq run 2)
(while (> run 0)
(if (new_dialog "cmdDCL" DCL_ID) (progn
(start_list "list")
(mapcar 'add_list lis)
(end_list)
(action_tile "list" "(setq ind (nth (atoi $value) lis))(set_tile \"sset\" ind) (done_dialog 1)")
(action_tile "accept" "(setq ind (nth (atoi (get_tile \"list\")) lis)) (done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(setq run (start_dialog))
)
(princ "\n无法显示对话框！")
)
(if (= run 1)
(cond
((= ind "画线") (line))
((= ind "画圆") (circle))
((= ind "复制") (copy))
((= ind "移动") (move))
);cond
);if
);while
(unload_dialog dcl_id)
)
(princ "\n无法加载对话框！")
)
(princ)
)

ww5w · 发表于 2013-1-21 10:37:16

ZZXXQQ 发表于 2013-1-21 08:06

版主,先谢谢你,跟你改的加载后变成单击了,还有下面选择框里不会显示选中的
单击后提示:
命令: tt
; 错误: no function definition: LINE
命令:
麻烦你看看是什么原因,

ww5w · 发表于 2013-1-21 10:44:35

masterlong 发表于 2013-1-21 05:34
(action_tile "序号" "(setq id $value)(if (= 4 $reason) (progn (vvfdclget1)(done_dialog 1)))")
参照着 ...

谢谢你,想问一下这里的序号是指那些,我理解是列表的0~n,改成1提示:错误: no function definition: SETP;
下面这样改的:
(setq LIS '("画线" "画圆" "复制" "移动"))
(new_dialog "cmdDCL" DCL_ID)
(start_list "xlist")
(action_tile "xlist" "(setq ind (nth (atoi $value) lis))(set_tile \"sset\" ind)")
(action_tile "0" "(setq id $value)(if (= 4 $reason) (progn (vvfdclget1)(done_dialog 1)))")
(action_tile "1" "(setq id $value)(if (= 4 $reason) (progn (vvfdclget1)(done_dialog 2)))")
(setp run (start_dialog))
(cond
((= run 1) (c:line))
((= run 2) (c:copy))
)
(unload_dialog DCL_ID)

sunny20102 · 发表于 2013-1-21 11:02:35

List_box 如果需要双击, 属性须加一条:is_default=true;
参考Vlisp帮助里的解释

ww5w · 发表于 2013-1-21 11:21:34

sunny20102 发表于 2013-1-21 11:02
List_box 如果需要双击, 属性须加一条:is_default=true;
参考Vlisp帮助里的解释

is_default=true;不是默认缺省按钮?
allow_accept=true;我看说这个是双击

sunny20102 · 发表于 2013-1-21 11:34:21

ww5w 发表于 2013-1-21 11:21
is_default=true;不是默认缺省按钮?
allow_accept=true;我看说这个是双击

在Vlisp里按F1 搜索Callback Reasons

ww5w · 发表于 2013-1-21 11:44:48

sunny20102 发表于 2013-1-21 11:34
在Vlisp里按F1 搜索Callback Reasons

不好意思,刚学这个,可以帮我看一下上面怎么改吗,我弄了好久都不行.谢谢

sunny20102 · 发表于 2013-1-21 11:48:20

ww5w 发表于 2013-1-21 11:44
不好意思,刚学这个,可以帮我看一下上面怎么改吗,我弄了好久都不行.谢谢

Z版改的就很好的,只是需要把两行改下:

(action_tile "accept" "(setq ind (nth (atoi (get_tile "list")) lis)) (done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")

改为:

(action_tile "accept" "(setq ind (nth (atoi (get_tile "list")) lis)) (done_dialog 0)")
;;; (action_tile "cancel" "(done_dialog 0)")

因为对话框文件里只有ok,没有cancel,所以只有设置ok为退出了

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

帮忙看一下让列表对话框双击或点确定都执行命令

本帖子中包含更多资源

相关帖子

点评

本帖子中包含更多资源

点评