[高飞鸟的【越飞越高】像素提取专家]－生成的数据二次压缩
本帖最后由 NetBee 于 2018-8-20 15:04 编辑[【高飞鸟】] 【飞鸟集】像素提取专家（更新至20130130）
该帖大大的方便了我们在DCL中进行图像显示，丰富了我们的LSP程序。
该程序于2013年就已经发布了，由于太忙，仅当时看了一下，还算好，在论坛中一直置顶的。;P
当然该数据文件数据很丰富，而且用途也不限于DCL显示。
而我们若仅用于DCL显示的话，则该数据就过于丰富了，在使用过程因为数据量太大，导致我们的程序包也增加很大。
因此，在仅用于DCL的情况下，我们可以进行数据的压缩。以较少的数据量获得一样的显示效果。
压缩原理：
1、同一列中相同RGB值的合并。
2、将RGB值合并成索引值
合并后格式：（X Y 长度 颜色索引值）
越简单的图压缩效果越明显。大家可以试一下。
我这个压缩前396K，压缩后82K
压缩命令：NBTC_PixelComp
测试命令： 对话框：test CAD：test1
本帖最后由 NetBee 于 2018-8-28 16:57 编辑
ynhh 发表于 2018-8-27 09:13
大师的那个ZBBZ我们很多施工员都在用
你这水平太牛了
我都虚心买了你这简化图片的代码学习
2.54赞赏码扫了没有呀？:lol
(and vlst_actPixel
(/= backcolor oldColor) ;;_不为背景色backcolor
(setq vlst_actPixel
(cons oldColor (cons len vlst_actPixel))
vlst_NewImage(append vlst_NewImage (list (reverse vlst_actPixel)))
)
)
NetBee 发表于 2018-8-30 23:32
backcolor你赋值了没?
在程序最开始的地方
(setq backcolor 255)
谢谢大师的耐心指点
我也是太笨，难以学会应用
但仍是发自内心的感谢您
你那微信上的赞赏
你知道是谁赏的吗？
如你不知道是谁赏的
那你还是在QQ群中
发动大家赞赏
我一定会积极赞赏
实再不行，我就在这送您明经币如何
谢谢您 找到原因了。
用楼主的代码压缩后的表的格:
'((指针 45
(0 0 32 255)
(1 0 32 255)
.....
)
)
使用测试代码出错，出错原因找到了
(foreach pt (cdr Image) =>(foreach pt (cddr Image)
不错~~文件大小缩小了好多好多 若定义了透明色，还可以更小 为什么提取不了图像并生成数字呢？请版主告知，谢谢！ 自己设计的压缩算法，支持一下 xieling888 发表于 2018-8-15 17:03
为什么提取不了图像并生成数字呢？请版主告知，谢谢！
:L这个是针对高飞鸟的程序提取后的LSP文件进行再次压缩。你得先用高飞鸟哈。。。。 嘿嘿。我自己也弄了一个类似的，我的图大多是在 CAD中做出截屏的。
我将黑色的背景去除。减少了大不分的内容 本帖最后由 NetBee 于 2018-8-20 15:20 编辑
前生 发表于 2018-8-16 23:43
嘿嘿。我自己也弄了一个类似的，我的图大多是在 CAD中做出截屏的。
我将黑色的背景去除。减少了大不分的内 ...
是呀，原始数据400K，编码压缩到80K，再去了背景，又减少到60K，编译成FAS后40K。 前生 发表于 2018-8-16 23:43
嘿嘿。我自己也弄了一个类似的，我的图大多是在 CAD中做出截屏的。
我将黑色的背景去除。减少了大不分的内 ...
大师这个去黑背景的
也发来让大家学习一下啊
也还可收点币哈 NetBee 发表于 2018-8-20 15:01
是呀，原始数据400K，编码压缩到80K，再去了背景，又减少到60K，编译成FAS后40K。
我买了下载来学习
不知你说的透明更小
不知如何透明？
如去除黑色背景。
不知要改那一些代码
请大师指点:handshake