找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 6332|回复: 43

[求助] 能不能用mapcar mapcar这类来批量定义ODCL按钮标题?

[复制链接]
发表于 2014-10-24 19:41:43 | 显示全部楼层 |阅读模式

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

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

×

能不能用mapcar mapcar这类来批量定义ODCL按钮标题?
下面这串真的很烦~~能不能精简?
  1. (defun loadmenu1(l)
  2.   (dcl_Control_SetCaption TT_FORM2_G1 (car(nth 0 l)))
  3.   (dcl_Control_SetCaption TT_FORM2_G2 (car(nth 1 l)))
  4.   (dcl_Control_SetCaption TT_FORM2_G3 (car(nth 2 l)))
  5.   (dcl_Control_SetCaption TT_FORM2_G4 (car(nth 3 l)))
  6.   (dcl_Control_SetCaption TT_FORM2_G5 (car(nth 4 l)))
  7.   (dcl_Control_SetCaption TT_FORM2_G6 (car(nth 5 l)))
  8.   (dcl_Control_SetCaption TT_FORM2_G7 (car(nth 6 l)))
  9. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2014-10-24 19:50:34 | 显示全部楼层
肯定可以啊,就这个论坛,你找找以前的帖子,看看怎么用 EVAL,READ组合批量处理控件的例子。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-10-24 20:35:58 | 显示全部楼层
多谢楼上,搞定!
   (setq i 0)
  (foreach x l
          (setq i (1+ i))
          (dcl_Control_SetCaption (eval(read (strcat "TT_FORM2_B" (rtos i 2 0)))) x)
          )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-10-24 21:32:42 | 显示全部楼层
本帖最后由 77077 于 2014-10-25 00:01 编辑

f.gif

未完成,请勿下载。等完成后发出源码~~~
请点击此处下载

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

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

文件名称:TT自编工具箱菜单测试(未完).rar 
下载次数:48  文件大小:3 KB  售价:10D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]


请点击此处下载

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

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

文件名称:TT自编工具箱菜单测试(未完).rar 
下载次数:48  文件大小:3 KB  售价:10D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 859个

财富等级: 财运亨通

发表于 2014-10-25 10:38:46 | 显示全部楼层
和 eachy 站长作的菜单界面类似
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-10-27 22:48:55 | 显示全部楼层
怎么老是出错,求高手帮忙完善下
思路:三层菜单表
用按钮图标判断菜单状态,打开/收拢
用按钮背景颜色判断菜单级别,主菜单/中菜单/小菜单
头晕了,整不清楚。。。。求帮忙。。。。。。。。。。。。。。。。
88.gif
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

文件名称:工具箱菜单.rar 
下载次数:66  文件大小:2.84 KB 
下载权限: 不限 以上  [免费赚D豆]


点评

哪里有错了?  详情 回复 发表于 2014-10-27 23:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2014-10-27 23:29:39 | 显示全部楼层
77077 发表于 2014-10-27 22:48
怎么老是出错,求高手帮忙完善下
思路:三层菜单表
用按钮图标判断菜单状态,打开/收拢

哪里有错了?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-10-28 09:55:06 | 显示全部楼层
把 ODCL 文件发上来

点评

这个是对应的ODCL文件~  详情 回复 发表于 2014-10-28 10:15
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-10-28 10:15:17 | 显示全部楼层
st788796 发表于 2014-10-28 09:55
把 ODCL 文件发上来

请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

文件名称:TT.odcl 
下载次数:56  文件大小:1.71 KB 
下载权限: 不限 以上  [免费赚D豆]

这个是对应的ODCL文件~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2014-10-28 11:20:16 | 显示全部楼层
看的头晕,你把思路详细说说
这种菜单一般就考虑两级,三级太麻烦
你这样貌似展开,但一级、二级菜单同时显示,就要考虑菜单容量,总共 30 个按钮,一级菜单多少、每个一级菜单最大容纳多少二级菜单

点评

头晕,弄出来三层的了,可惜经常出错~~~  详情 回复 发表于 2014-10-28 14:36
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-10-28 13:53:06 | 显示全部楼层
我也头晕,如果是两级菜单,倒是弄得差不多了。现在这个三级菜单,我也看糊涂了~~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-10-28 14:35:29 | 显示全部楼层
77077 发表于 2014-10-28 13:53
我也头晕,如果是两级菜单,倒是弄得差不多了。现在这个三级菜单,我也看糊涂了~~~

1 第一次显示时全部为一级菜单
2 点击 -> 第一个保持一级菜单返回功能(修改 caption)
          -> 修改下面 Button 为二级菜单标题
3 在第二级菜单模式下,如果含第三级菜单按钮单独图标,如果点击该 Button
    -〉 第一个 button 保持不变(返回一级菜单功能)
    -〉第二个 button 修改为 二级菜单标题
         -〉 第三个以后 button 修改为三级菜单 caption

这里变为二级菜单或三级菜单时,不属于该级菜单的图标全部隐藏,混杂在一起人为增加难度,而且容量变小了,这样在二级菜单时可以有 30 -1 个命令或三级菜单,在三级菜单时有 30 -2 个按钮可供使用

点评

诶,不错不错,我试试看~~~  详情 回复 发表于 2014-10-28 15:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-10-28 14:36:24 | 显示全部楼层
本帖最后由 77077 于 2014-10-28 14:40 编辑
eachy 发表于 2014-10-28 11:20
看的头晕,你把思路详细说说
这种菜单一般就考虑两级,三级太麻烦
你这样貌似展开,但一级、二级菜单同时 ...

请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

文件名称:TT.lsp 
下载次数:30  文件大小:6.12 KB 
下载权限: 不限 以上  [免费赚D豆]


头晕,弄出来三层的了,可惜经常出错~~~
ffff0.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-10-28 15:29:40 | 显示全部楼层
st788796 发表于 2014-10-28 14:35
1 第一次显示时全部为一级菜单
2 点击 -> 第一个保持一级菜单返回功能(修改 caption)
          -> 修 ...

诶,不错不错,我试试看~~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-10-28 15:36:20 | 显示全部楼层
77077 发表于 2014-10-28 15:29
诶,不错不错,我试试看~~~

继续努力,一级菜单你准备放多少个?
如果点最后一个后面还有几个二级菜单可用?还不可以使用三级菜单?

点评

问题出来了,如果一级菜单放置5-10个,那可用的二级菜单也就只剩下20-25个了,如果二级里面再去掉5-10个,那剩下的菜单就灰常少了~~~ 等我装个天正看看,天正里面是怎么搞的,研究下~~~  详情 回复 发表于 2014-10-28 16:35
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 18:02 , Processed in 0.469153 second(s), 71 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表