[原创]EF_Library 图库管理 －纯粹Lisp图库

elitefish

配置文件作用

 一、程序以查找该文件来确定程序主目录

二、当用户自定义图库主目录时，主目录路径就保存在改文件中

elitefish

你用的 CAD2006？或者没有将 EF_Library 目录放到cad搜索目录中？

CAD2006 有人反应程序执行不了 ，不过我这没有2006所以也没法测试

2004 2008 我都测试过 可以用

龙龙仔

dcl就能驅動  

 :slider {
                    key = "sld_Image" ;
                    layout = vertical ;
                 min_value = 1;
                 max_value = 12;
                  action= "(EF-LibIconClick  (abs (- 12 (atoi $value))))";
                }

elitefish

龙龙仔发表于2009-7-27 11:12:00dcl就能驅動   :slider {                    key = \"sld_Image\" ; 

可能我说的不是太清楚

我的想法是  ：slider中   min_value 始终为1   max_value根据图库中图形数量来定，比如 50个图块 可以显示 5页  就将max_value设置为 5

当更换图库时  新图库 有 120个图块 可以显示10页  就将max_value 设为 10

所以 必须在lisp中 动态设置 max_value ；在dcl中只能设置定值

elitefish

xchrimp发表于2009-7-27 9:24:004866148662不行呀，EL哥

是不是 只下载了源程序？ 源程序里面没有 EF_Library.ini 和 Library目录 的  下载上面的编译后的程序 里面有 这2个

mmmmmm

绝对设置max_value是不可能的，因为需要重载DCL。

作为程序驱动，可采用相对的办法，即原始的max_value=100

如果共有10页，则每页的变化=5=10

如果页数改变了，如20页，则每页的变化=5

龙龙仔

max_value 只是解析度,透過$value值的變化,判斷$value的值再計算你要的值

dcl中
 :slider {
                    key = "sld_Image" ;
                    layout = vertical ;
                 min_value = 1;
                 max_value = 12;
                 //action= "(EF-LibIconClick  (abs (- 12 (atoi $value))))";
                }

lsp程序中就是

(action_tile "sld_Image" "(EF-LibIconClick  (abs (- 12 (atoi $value))))")

根据图库中图形数量 + $value 來定显示的页數

elitefish

看来 DCL :slider  限制还是比较大了，不能达到我预期的效果了

只能放弃slider了，换成按钮群来替代了 呵呵，重新上传 编译好的文件