设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 幻灯片打包成幻灯片库后如何调用？
12下一页
返回列表 发新帖
查看: 4528|回复: 18

[求助] 幻灯片打包成幻灯片库后如何调用？

[复制链接]
lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-5-8 09:25:23 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
如题，将幻灯片01.sld ,02.sld ,03.sld 打包成一个xxx.slb
那么在对话框中如何调用，原来的代码如下：
  1. :image_button {
  2.   key = "01";
  3.   width = 20;
  4.   aspect_ratio = 1.0;
  5.   color = 0;
  6.   }


幻灯片, 如何

相关帖子

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

使用道具 举报

ll_j

已领礼包: 6530个

财富等级: 富甲天下
发表于 2014-5-8 09:59:04 | 显示全部楼层
R14帮助。
11111.jpg

点评

lucas3
这样改为什么不对，幻灯片库名为xxx.slb  详情 回复 发表于 2014-5-8 10:29
lucas3
谢谢长老，我会试一下  发表于 2014-5-8 10:19
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 1 反对 0

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2014-5-8 09:51:26 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 /db_自贡黄明儒_ 于 2014-5-8 09:53 编辑

我从不用幻灯片，好象打包括就够麻烦的了。{:soso_e113:}
我有一种想法，是不是用高飞的像素提取专家爽一点呢？

点评

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

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
 楼主| 发表于 2014-5-8 10:29:18 | 显示全部楼层
ll_j 发表于 2014-5-8 09:59
R14帮助。

  1. :image_button {
  2.   key = "xxx(01)";
  3.   width = 20;
  4.   aspect_ratio = 1.0;
  5.   color = 0;
  6.   }


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

使用道具 举报

ll_j

已领礼包: 6530个

财富等级: 富甲天下
发表于 2014-5-8 10:51:47 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
lucas3 发表于 2014-5-8 10:29
这样改为什么不对，幻灯片库名为xxx.slb

好久不搞这些了，具体记不清楚了，不过调用sld应该是slide_image吧。

点评

lucas3
谢谢长老，搜了一下，明经Z版回复过这类的话题，只是看不懂，能指定下吗？ http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101587  详情 回复 发表于 2014-5-8 11:37
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
 楼主| 发表于 2014-5-8 11:37:22 | 显示全部楼层
ll_j 发表于 2014-5-8 10:51
好久不搞这些了，具体记不清楚了，不过调用sld应该是slide_image吧。

谢谢长老，搜了一下，明经Z版回复过这类的话题，只是看不懂，能指定下吗？
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=101587
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ll_j

已领礼包: 6530个

财富等级: 富甲天下
发表于 2014-5-8 12:29:36 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
lucas3 发表于 2014-5-8 11:37
谢谢长老，搜了一下，明经Z版回复过这类的话题，只是看不懂，能指定下吗？
http://bbs.mjtd.com/forum.p ...

真的理不清思路了，你可以看看我前面的贴图，就是相关图像控件的，最后部分是幻灯片的。
总之，操控图像控件的函数多带_image后缀。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

牢固

已领礼包: 344个

财富等级: 日进斗金
发表于 2014-5-8 17:25:10 | 显示全部楼层
调用时这样写幻灯片名称“ xxx（01）”即可

点评

lucas3
谢谢固版主，是这样改的呀，是改DCL文件吧，看4楼，为什么改了后，都显示空白的了  详情 回复 发表于 2014-5-8 18:43
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
 楼主| 发表于 2014-5-8 18:43:34 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
牢固 发表于 2014-5-8 17:25
调用时这样写幻灯片名称“ xxx（01）”即可

谢谢固版主，是这样改的呀，是改DCL文件吧，看4楼，为什么改了后，都显示空白的了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11227个

财富等级: 富甲天下
发表于 2014-5-8 20:08:21 | 显示全部楼层
;...
(setq tile_v (dimy_tile imgkey)
       tile_h (dimx_tile imgkey))
(start-_mage imgkey)
(file_image 0 0 tile_h tile_v 0)
(slide_image 0 0 tile_h tile_v "xxx(01)")
(end_image)
;...

点评

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

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
 楼主| 发表于 2014-5-8 20:30:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 lucas3 于 2014-5-8 20:34 编辑
zxq0220 发表于 2014-5-8 20:08
;...
(setq tile_v (dimy_tile imgkey)
       tile_h (dimx_tile imgkey))

那这个要改哪里？
  2. (setq dcl_chain (load_dialog "chain"))
  3.   (if (not (new_dialog "chain" dcl_chain))
  4.     (exit)
  5.     )
  6.   (foreach no chain-sort
  7.     (setq chain_key (strcat "chain_" no))
  8.     (start_image chain_key)
  9.     (slide_image 0 0 (dimx_tile chain_key) (- (dimy_tile chain_key) 15) chain_key)
  10.     (end_image)
  11.     )
  12.   (setq chain_key "chain_zs")
  13.   (mode_tile chain_key 4)
  14.   (foreach no chain-sort
  15.     (action_tile (strcat "chain_" no)
  16.      "(mode_tile chain_key 4) (setq chain_key $key) (mode_tile chain_key 4)"
  17.      )
  18.     )
  19.   (showlst "chainno" chainno)
  20.   (set_tile "chainno" "4")
  21.   (set_tile "toothnum" "13")
  22.   (set_tile "chain-p" "12.7")
  23.   (set_tile "chain-d1" "7.92")
  24.   (set_tile "chain-d" (rtos d))
  25.   (set_tile "chain-da" (rtos da))
  26.   (set_tile "chain-df" (rtos df))
  27.   (set_tile "chain-dg" (rtos dg))
  28.   (set_tile "chain-bf" (rtos bf))
  29.   (set_tile "chain-ba" (rtos ba))
  30.   (set_tile "chain-rx" (rtos rx))
  31.   (set_tile "chain-ra" (rtos ra))
  32.   (action_tile "chainno" "(get_chainno)")
  33.   (action_tile "toothnum" "(set-tile)")
  34.   (action_tile "chain-p" "(change-par 20 (atoi $value))")
  35.   (action_tile "chain-d1" "(change-par 30 (atoi $value))")
  36.   (action_tile "chain-d" "(setq d (atof $value))")
  37.   (action_tile "chain-da" "(setq da (atof $value))")
  38.   (action_tile "chain-df" "(setq df (atof $value))")
  39.   (action_tile "chain-dg" "(setq dg (atof $value))")
  40.   (action_tile "chain-bf" "(setq bf (atof $value))")
  41.   (action_tile "chain-rx" "(setq rx (atof $value))")
  42.   (action_tile "chain-ba" "(setq ba (atof $value))")
  43.   (action_tile "chain-ra" "(setq ra (atof $value))")
  44.   (setq hidedcl (start_dialog))
  45.   (cond  ((= hidedcl 0)
  46.    (done_dialog 0)
  47.    )
  48.   ((and (= hidedcl 1) (= chain_key "chain_zs"))
  49.    ("chain_zs)
  50.    )
  51.   ((and (= hidedcl 1) (= chain_key "chain_cs1"))
  52.    (chain_cs1)
  53.    )
  54.   ((and (= hidedcl 1) (= chain_key "chain_cs2"))
  55.    (chain_cs2)
  56.    )
  57.   )
  58.   (unload_dialog dcl_chain)
  59.   (command "_.undo" "end")
  60.   (princ)
  61.   )

试着这样改了无效
  1.   ((and (= hidedcl 1) (= chain_key "chain_zs"))
  2.    ("xxx(01))
  3.    )
  4.   ((and (= hidedcl 1) (= chain_key "chain_cs1"))
  5.    (xxx(02))
  6.    )
  7.   ((and (= hidedcl 1) (= chain_key "chain_cs2"))
  8.    (xxx(03))
复制代码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 11227个

财富等级: 富甲天下
发表于 2014-5-9 07:34:00 | 显示全部楼层
本帖最后由 zxq0220 于 2014-5-9 19:57 编辑
lucas3 发表于 2014-5-8 20:30
那这个要改哪里？试着这样改了无效
  2.   (foreach no chain-sort
  3.     (setq chain_key (strcat "chain_" no))
  4.     (start_image chain_key)
  5.     (slide_image 0 0 (dimx_tile chain_key) (- (dimy_tile chain_key) 15) (strcat "xxx(" chain_key ")"))
  6.     (end_image)
  7.    )

点评

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

使用道具 举报

zxq0220

已领礼包: 11227个

财富等级: 富甲天下
发表于 2014-5-9 19:58:02 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
楼上改了。再试试

点评

lucas3
z版现在可以，感谢您对论坛做出的贡献！谢谢！ 现在我试着修改了一下，也可以了，只是改动比较大点，现在贴出来给有需要的朋友参考 现面这段代码是在11楼的的代码基础上修改的，同时DCL文件也需要修改，还是按4  详情 回复 发表于 2014-5-9 23:58
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
 楼主| 发表于 2014-5-9 23:58:35 | 显示全部楼层
zxq0220 发表于 2014-5-9 19:58
楼上改了。再试试

z版现在可以，感谢您对论坛做出的贡献！谢谢！
今天下午我试着修改了一下，也是可以了，只是改动比较大点，现在贴出来给有需要的朋友参考

现面这段代码是在11楼的的代码基础上修改的，同时DCL文件也需要修改，还是按4楼修改的，所以说改动比较大
  1.   (setq dcl_chain (load_dialog "chain"))
  2.   (if (not (new_dialog "chain" dcl_chain))
  3.     (exit)
  4.     )
  5.   (foreach no chain-sort
  6.     (setq chain_key (strcat "xxx(chain_"no")"));;修改by_zzxxqq
  7.     (start_image chain_key)
  8.     (slide_image 0 0 (dimx_tile chain_key) (- (dimy_tile chain_key) 15) chain_key)
  9.     (end_image)
  10.     )
  11.   (setq chain_key "xxx(chain_zs)");;修改过by_lucas,表示默认选中的是绘制主视
  12.   (mode_tile chain_key 4)
  13.   (foreach no chain-sort
  14.     (action_tile (strcat "xxx(chain_"no")");;修改过by_lucas
  15.      "(mode_tile chain_key 4) (setq chain_key $key) (mode_tile chain_key 4)"
  16.      )
  17.     )
  18.   (showlst "chainno" chainno)
  19.   (set_tile "chainno" "4")
  20.   (set_tile "toothnum" "13")
  21.   (set_tile "chain-p" "12.7")
  22.   (set_tile "chain-d1" "7.92")
  23.   (set_tile "chain-d" (rtos d))
  24.   (set_tile "chain-da" (rtos da))
  25.   (set_tile "chain-df" (rtos df))
  26.   (set_tile "chain-dg" (rtos dg))
  27.   (set_tile "chain-bf" (rtos bf))
  28.   (set_tile "chain-ba" (rtos ba))
  29.   (set_tile "chain-rx" (rtos rx))
  30.   (set_tile "chain-ra" (rtos ra))
  31.   (action_tile "chainno" "(get_chainno)")
  32.   (action_tile "toothnum" "(set-tile)")
  33.   (action_tile "chain-p" "(change-par 20 (atoi $value))")
  34.   (action_tile "chain-d1" "(change-par 30 (atoi $value))")
  35.   (action_tile "chain-d" "(setq d (atof $value))")
  36.   (action_tile "chain-da" "(setq da (atof $value))")
  37.   (action_tile "chain-df" "(setq df (atof $value))")
  38.   (action_tile "chain-dg" "(setq dg (atof $value))")
  39.   (action_tile "chain-bf" "(setq bf (atof $value))")
  40.   (action_tile "chain-rx" "(setq rx (atof $value))")
  41.   (action_tile "chain-ba" "(setq ba (atof $value))")
  42.   (action_tile "chain-ra" "(setq ra (atof $value))")
  43.   (setq hidedcl (start_dialog))
  44.   (cond  ((= hidedcl 0)
  45.    (done_dialog 0)
  46.    )
  47.   ((and (= hidedcl 1) (= chain_key "xxx(chain_zs)"));;修改过by_lucas
  48.    (chain_zs)
  49.    )
  50.   ((and (= hidedcl 1) (= chain_key "xxx(chain_cs1)"));;修改过by_lucas
  51.    (chain_cs1)
  52.    )
  53.   ((and (= hidedcl 1) (= chain_key "xxx(chain_cs2)"));;修改过by_lucas
  54.    (chain_cs2)
  55.    )
  56.   )
  57.   (unload_dialog dcl_chain)
  58.   (command "_.undo" "end")
  59.   (princ)
  60.   )


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

使用道具 举报

totorojdm
发表于 2014-5-10 10:29:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
站个位子~等有需要时参考~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-9-2 03:32 , Processed in 0.463410 second(s), 66 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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