elitefish 发表于 2009-7-27 09:16:00

<p>配置文件作用</p><p>&nbsp;一、程序以查找该文件来确定程序主目录</p><p>二、当用户自定义图库主目录时,主目录路径就保存在改文件中</p>

xchrimp 发表于 2009-7-27 09:24:00

elitefish 发表于 2009-7-27 10:11:00

<p>你用的 CAD2006?或者没有将 EF_Library 目录放到cad搜索目录中?</p><p>CAD2006 有人反应程序执行不了 ,不过我这没有2006所以也没法测试</p><p>2004 2008 我都测试过 可以用</p>

asdfxx 发表于 2009-7-27 11:00:00

龙龙仔 发表于 2009-7-27 11:12:00

<p>dcl就能驅動&nbsp;&nbsp;</p><p>&nbsp;:slider {<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key = "sld_Image" ;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; layout = vertical ;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; min_value = 1;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; max_value = 12;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; action= "(EF-LibIconClick&nbsp; (abs (- 12 (atoi $value))))";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }</p><p></p><p></p><p></p>

elitefish 发表于 2009-7-27 11:31:00

龙龙仔发表于2009-7-27 11:12:00static/image/common/back.gifdcl就能驅動&nbsp;&nbsp;&nbsp;:slider {&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key = \"sld_Image\" ;&nbsp

<p>可能我说的不是太清楚</p><p>我的想法是&nbsp; :slider中&nbsp;&nbsp; min_value 始终为1&nbsp;&nbsp; max_value根据图库中图形数量来定,比如 50个图块&nbsp;可以显示 5页 &nbsp;就将max_value设置为 5</p><p>当更换图库时&nbsp; 新图库 有 120个图块 可以显示10页&nbsp; 就将max_value 设为 10</p><p>所以 必须在lisp中 动态设置 max_value ;在dcl中只能设置定值</p>

elitefish 发表于 2009-7-27 11:37:00

xchrimp发表于2009-7-27 9:24:00static/image/common/back.gif4866148662不行呀,EL哥

<p>是不是 只下载了源程序? 源程序里面没有 EF_Library.ini 和 Library目录 的&nbsp; 下载上面的编译后的程序 里面有 这2个</p>

mmmmmm 发表于 2009-7-27 12:31:00

<p>绝对设置max_value是不可能的,因为需要重载DCL。</p><p>作为程序驱动,可采用相对的办法,即原始的max_value=100</p><p>如果共有10页,则每页的变化=5=10</p><p>如果页数改变了,如20页,则每页的变化=5</p>

龙龙仔 发表于 2009-7-27 12:35:00

<p>max_value&nbsp;只是解析度,透過$value值的變化,判斷$value的值再計算你要的值</p><p>dcl中<br/>&nbsp;:slider {<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key = "sld_Image" ;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; layout = vertical ;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; min_value = 1;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; max_value = 12;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; //action= "(EF-LibIconClick&nbsp; (abs (- 12 (atoi $value))))";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }</p><p><br/>lsp程序中就是</p><p>(action_tile "sld_Image" "(EF-LibIconClick&nbsp; (abs (- 12 (atoi $value))))")</p><p><br/>根据图库中图形数量 + $value 來定显示的页數</p><p></p>

elitefish 发表于 2009-7-27 14:40:00

<p>看来 DCL :slider&nbsp; 限制还是比较大了,不能达到我预期的效果了</p><p>只能放弃slider了,换成按钮群来替代了 呵呵,重新上传 编译好的文件</p><p>&nbsp;</p>
页: 1 [2] 3 4 5 6 7 8 9 10
查看完整版本: [原创]EF_Library 图库管理 -纯粹Lisp图库