[高飞鸟的【越飞越高】像素提取专家]－生成的数据二次压缩

NetBee · 发表于 2018-8-13 15:42

本帖最后由 NetBee 于 2018-8-20 15:04 编辑

[【高飞鸟】] 【飞鸟集】像素提取专家（更新至20130130）
该帖大大的方便了我们在DCL中进行图像显示，丰富了我们的LSP程序。
该程序于2013年就已经发布了，由于太忙，仅当时看了一下，还算好，在论坛中一直置顶的。

当然该数据文件数据很丰富，而且用途也不限于DCL显示。
而我们若仅用于DCL显示的话，则该数据就过于丰富了，在使用过程因为数据量太大，导致我们的程序包也增加很大。
因此，在仅用于DCL的情况下，我们可以进行数据的压缩。以较少的数据量获得一样的显示效果。
压缩原理：
1、同一列中相同RGB值的合并。
2、将RGB值合并成索引值
　合并后格式：（X　Y　长度颜色索引值）

越简单的图压缩效果越明显。大家可以试一下。
我这个压缩前396K，压缩后82K

压缩命令：NBTC_PixelComp
测试命令：　对话框：test　CAD：test1

NetBee · 发表于 2018-8-28 16:24

本帖最后由 NetBee 于 2018-8-28 16:57 编辑

ynhh 发表于 2018-8-27 09:13
大师的那个ZBBZ我们很多施工员都在用
你这水平太牛了
我都虚心买了你这简化图片的代码学习

2.54赞赏码扫了没有呀？

(and vlst_actPixel
(/= backcolor oldColor) ;;_不为背景色backcolor
(setq vlst_actPixel
(cons oldColor (cons len vlst_actPixel))
vlst_NewImage (append vlst_NewImage (list (reverse vlst_actPixel)))
)
)

ynhh · 发表于 2018-8-31 19:57

NetBee 发表于 2018-8-30 23:32
backcolor你赋值了没?
在程序最开始的地方
(setq backcolor 255)

谢谢大师的耐心指点
我也是太笨，难以学会应用
但仍是发自内心的感谢您
你那微信上的赞赏
你知道是谁赏的吗？
如你不知道是谁赏的
那你还是在QQ群中
发动大家赞赏
我一定会积极赞赏
实再不行，我就在这送您明经币如何
谢谢您

pzweng · 发表于 2018-9-3 15:14

找到原因了。
用楼主的代码压缩后的表的格:
'((指针 45
      (0 0 32 255)
      (1 0 32 255)
.....
  )
)
使用测试代码出错，出错原因找到了
(foreach pt (cdr Image) =>  (foreach pt (cddr Image)

love1030312 · 发表于 2018-8-14 08:07

不错~~文件大小缩小了好多好多

NetBee · 发表于 2018-8-14 23:13

若定义了透明色，还可以更小

xieling888 · 发表于 2018-8-15 17:03

为什么提取不了图像并生成数字呢？请版主告知，谢谢！

zzyong00 · 发表于 2018-8-16 08:42

自己设计的压缩算法，支持一下

NetBee · 发表于 2018-8-16 14:12

xieling888 发表于 2018-8-15 17:03
为什么提取不了图像并生成数字呢？请版主告知，谢谢！

这个是针对高飞鸟的程序提取后的LSP文件进行再次压缩。你得先用高飞鸟哈。。。。

前生 · 发表于 2018-8-16 23:43

嘿嘿。我自己也弄了一个类似的，我的图大多是在 CAD中做出截屏的。
我将黑色的背景去除。减少了大不分的内容

NetBee · 发表于 2018-8-20 15:01

本帖最后由 NetBee 于 2018-8-20 15:20 编辑

前生发表于 2018-8-16 23:43
嘿嘿。我自己也弄了一个类似的，我的图大多是在 CAD中做出截屏的。
我将黑色的背景去除。减少了大不分的内 ...

是呀，原始数据400K，编码压缩到80K，再去了背景，又减少到60K，编译成FAS后40K。

ynhh · 发表于 2018-8-20 19:02

前生发表于 2018-8-16 23:43
嘿嘿。我自己也弄了一个类似的，我的图大多是在 CAD中做出截屏的。
我将黑色的背景去除。减少了大不分的内 ...

大师这个去黑背景的
也发来让大家学习一下啊
也还可收点币哈

ynhh · 发表于 2018-8-20 19:04

NetBee 发表于 2018-8-20 15:01
是呀，原始数据400K，编码压缩到80K，再去了背景，又减少到60K，编译成FAS后40K。

我买了下载来学习
不知你说的透明更小
不知如何透明？
如去除黑色背景。
不知要改那一些代码
请大师指点

账号		自动登录	找回密码
密码			注册

[源码] [高飞鸟的【越飞越高】像素提取专家]－生成的数据二次压缩

本帖子中包含更多资源

评分