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

ww5w

sunny20102 发表于 2013-1-21 11:48
Z版改的就很好的,只是需要把两行改下:改为:因为对话框文件里只有ok,没有cancel,所以只有设置ok为退出了

还是不行,提示:
命令: tt
; 错误: no function definition: LINE
命令:
而且选中的在下面的选择里不能显示
麻烦你再看看.

sunny20102

ww5w 发表于 2013-1-21 12:01
还是不行,提示:
命令: tt
; 错误: no function definition: LINE

Z版里面的line circle copy move 均为自定义函数,需要你自己写的
现在没有该函数,肯定出错的了

qianzj

(action_tile "klist" "(sub_klist $value) (if (= $reason 4) (progn (ok_dia7a) (done_dialog 1)))") 发我一个给你参考下，(if (= $reason 4) (progn (ok_dia7a) (done_dialog 1))) 主要是这句
(= $reason 4)表示双击

ww5w

qianzj 发表于 2013-1-21 13:32
(action_tile "klist" "(sub_klist $value) (if (= $reason 4) (progn (ok_dia7a) (done_dialog 1)))") 发我 ...

现在主要是不能关联命令,这个列表的id怎么指定到相关命令上,
可以发个列表设id然后指定id执行相关命令例学习一下吗?
谢谢

masterlong

ww5w 发表于 2013-1-21 10:44
谢谢你,想问一下这里的 序号是指那些,我理解是列表的0~n,改成1提示:错误: no function definition: SETP; ...

1.
这句是从我自己的程序里挑出来的
"序号"和(vvfdclget1)这些需要改成你的程序段
这一句的功能是
首先将$value赋值给参数id
$value就是你所选中的列表行数
但它是字符串形式的
每次单击或双击都会重新赋值
再当双击列表中某一行时
会先执行(vvfdclget1)
再执行(done_dialog 1)
即退出对话框执行cond语句中的RUN=1
这个时候
你需要修改的内容是
再建立一个cond
判断id的值并执行对应的程序
模式如下
(cond
  ((= 1 run)
    .....
    (cond
       ((= id "0")(c:line))
       ((= id "1")(c:copy))
      .....
    )
    .....
  )
  ((= 2 run) .....)
)

2.
(action_tile "0" "(setq id $value)(if (= 4 $reason) (progn (vvfdclget1)(done_dialog 1)))")
这一句是无效的
因为你没有对应的"0"这个控件

3.
控件名称要避免使用"list"这样和函数名相同的字符

669423907

可以参考  风之影  的表面粗糙度的程序，他的的做得很好。

sunny20102

sunny20102 发表于 2013-1-21 11:48
Z版改的就很好的,只是需要把两行改下:改为:因为对话框文件里只有ok,没有cancel,所以只有设置ok为退出了

不好意思了,惊动Z版了,
我是初学者,幸亏Z版指正,不然误人子弟了,谢谢

ww5w

终于弄明白,搞定了,3楼的程序可用,不过要弄成双击的,不然有冲突.

.