社区 › AutoCAD工具插件 › [原创]EF_Library 图库管理 －纯粹Lisp图库

elitefish 发表于 2009-7-25 03:24:00

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

本帖最后由 作者 于 2009-7-27 14:54:58 编辑 <br /><br /> <p>说明：由于 Lisp 程序自身原因，在幻灯片显示效率相对低下，所以切换图标更新相对其他语言编写的图库反应较慢，也请大家谅解</p><p>更新了下：</p><p>1.增加：删除图块时，增加警告对话框，预防误操作</p><p>2.增加：可以选择自动插入炸开图块</p><p>3.说明：双击图标可进入图片预览模式以较大图片查看图库</p><p>4.重新调整了截面</p><p></p><p></p><p></p><p></p><p></p><p>以下为旧版文件</p><p></p><p></p>

xj6019 发表于 2020-8-26 18:22:02

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

白色微風1991 发表于 5 天前

感謝分享~

啟動出錯，咝杏涗浫缦拢

白色微風1991 发表于 5 天前

感謝分享~

啟動出錯，咝杏涗浫缦拢

elitefish 发表于 2009-7-25 03:28:00

<p>源程序提供</p><p><font color="#ff0000">另求：lisp中控制 slide 滚动条 max_value 属性的方法 找来找去就是找不到 所以这个程序中对 图像边的滚动条没有处理</font></p><p></p>

111123456789 发表于 2009-7-25 07:54:00

学习一下谢啦

xshrimp 发表于 2009-7-25 14:03:00

不错。

zhongzilei 发表于 2009-7-25 21:56:00

好程序，学习了

5061220 发表于 2009-7-26 09:16:00

<p>向楼主学习</p>

liao1968 发表于 2009-7-26 15:42:00

我来试一下，看看

龙龙仔 发表于 2009-7-27 08:04:00

<p>移動slider,觸動key&nbsp; "fillet_radius"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p><p>: slider {<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; key = "fillet_slid"; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; width = 50 ;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; min_value = 0;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; max_value = 100;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; action = "(set_tile \"fillet_radius\" (rtos(/ (atof $value)2)))";<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }</p>

elitefish 发表于 2009-7-27 08:57:00

龙龙仔发表于2009-7-27 8:04:00static/image/common/back.gif移動slider,觸動key&nbsp; \"fillet_radius\"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : slider {&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

<p>想知道的不是 在DCL中的设置max_value &nbsp;而是在lisp驱动程序中 动态设置$value</p>

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

查看完整版本: [原创]EF_Library 图库管理 －纯粹Lisp图库