【飞鸟集】像素提取专家（更新至20130130）

highflybird

zhongzilei 发表于 2012-12-4 18:32
版主，附件里提供的lsp样本，能不能改成把对话框文件提取出来，单独一个dcl文件和一个lsp的文件那种形式。

在我的样本里面有一句：

1. (setq dcl (vl-filename-mktemp nil nil ".dcl"))

(setq dcl (vl-filename-mktemp nil nil ".dcl"))

把这句 改成你的路径加dcl的扩展名即可，例如：
(setq dcl "D:\\work\\test.dcl")如果你想保留这个dcl，把下面的这句注释:

1. (and dcl (findfile dcl) (vl-file-delete dcl))
   
2. 
   

(and dcl (findfile dcl) (vl-file-delete dcl))<br /> <br />

江豚大大

不晓得这个小软件的功能有什么具体的用处嫩？？画图好像用不到啊~~

祥子

版主：
这个工具很好用，感谢开发了这个好用的工具，现在用对话框也能做也漂亮的图像按钮了。
如果增加一个去除指定颜色的选项就更好了，因有图像大些的话的显示就慢了，就要减少像素点，用相同底色填充，显示会快点。
如果能用直线或填充方式，那DCL图像显示就更快了。

塞林格

太实用了 谢谢

highflybir

应网友的要求，再增加一个例子,附件见1楼

自贡黄明儒

highflybir 发表于 2013-1-30 13:11
应网友的要求，再增加一个例子,附件见1楼

有增加的例子就太好了，从而我们可以照虎画猫了

NetBee

祥子 发表于 2012-12-23 22:33
版主：
这个工具很好用，感谢开发了这个好用的工具，现在用对话框也能做也漂亮的图像按钮了。
如果增加一 ...

对，加入这个算法好。数据包会大大减少。
还一个想法，同一水平相同rgb的点可以用线代替，数据更小了。

lht

;;;;;;;;;;;;;;;;;;;;;去除像素

(defun c:scxs ()
    (command "_ucs" "w")                          ;设置世界坐标
    (setvar "osmode" 0)
    (setq p1 (getpoint "图像右下角点："))      
    (setq p2 (getpoint "图像左上角点："))
    (setq k 0)
    (while (= k 0)
         (setq s1 (car (entsel "\n选取删除的像素:")))
         (setq m (cdr (assoc 62 (entget s1))))   ;得到颜色值
         (command "_zoom" p2 p1)                 
         (setq ss (ssadd))
         (setq ss (ssget "w" p1 p2))
         (command "_zoom" "p")
         (setq n 0)                    ;选择集清空
         (repeat (sslength ss)
              (setq s (ssname ss n))                 ;依次取出像素
              (setq p (cdr (assoc 62 (entget s))))   ;得到颜色值
              (if (= p m) (entdel s))                ;删除像素
              (setq n (+ n 1))
         )
         (if (= s1 nil) (setq k 1))        ;退出循环
    )
    (setvar "osmode" 35)
)

yxp

神一样的功能
整个把矢量图软件变成像素图软件了。
我是用来转换二维码的，但是好像读取二维码后的LSP精度不够。

好多的 list 呀，怎么没碰见那个关于 list 的bug
为啥我就这么背，遇见两次

陈亚娣

好东东，牛人，给力