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

elitefish

说明：由于 Lisp 程序自身原因，在幻灯片显示效率相对低下，所以切换图标更新相对其他语言编写的图库反应较慢，也请大家谅解

更新了下：

1.增加：删除图块时，增加警告对话框，预防误操作

2.增加：可以选择自动插入炸开图块

3.说明：双击图标可进入图片预览模式以较大图片查看图库

4.重新调整了截面

以下为旧版文件

xj6019

确实非常想用这个图库插件，找了好几版，基本问题是增加炸开功能，彻底炸开，或者只炸开一次，双击直接插入图块，镜像和旋转可以在插入的时候调用就完美了，比如空格一次旋转90度，动态循环。H,V两个按键控制水平和垂直方向的镜像。老大，再优化一下源码吧，真的非常期待呀！

zhangrunze

感谢分享~

启动出错，运行记录如下：

命令: (LOAD "C:/Users/Administrator/Desktop/EF_Library/EF_Library.VLX") EF_Tools工具箱 EF_Library图库装载完毕
启动图库管理器 EF-Lib-Main
添加图块到当前图库 EF-Lib-BlockAdd
修改图块后更新图块幻灯片 EF-Lib-Refresh
       nil
命令: EF-LIB-MAIN
"参数类型错误: stringp nil"

elitefish

源程序提供

另求：lisp中控制 slide 滚动条 max_value 属性的方法 找来找去就是找不到 所以这个程序中对 图像边的滚动条没有处理

111123456789

学习一下谢啦

xshrimp

不错。

zhongzilei

好程序，学习了

5061220

向楼主学习

liao1968

我来试一下，看看

龙龙仔

移動slider,觸動key  "fillet_radius"        

: slider {
                    key = "fillet_slid";
                  width = 50 ;
              min_value = 0;
              max_value = 100;
                 action = "(set_tile \"fillet_radius\" (rtos(/ (atof $value)2)))";
                      }

elitefish

龙龙仔发表于2009-7-27 8:04:00移動slider,觸動key  \"fillet_radius\"         : slider {             

想知道的不是 在DCL中的设置max_value  而是在lisp驱动程序中 动态设置$value