本帖最后由 highflybird 于 2012-12-4 22:43 编辑
zhongzilei 发表于 2012-12-4 18:32 static/image/common/back.gif
版主，附件里提供的lsp样本，能不能改成把对话框文件提取出来，单独一个dcl文件和一个lsp的文件那种形式。
在我的样本里面有一句：
(setq dcl (vl-filename-mktemp nil nil ".dcl"))
把这句 改成你的路径加dcl的扩展名即可，例如：
(setq dcl "D:\\work\\test.dcl")如果你想保留这个dcl，把下面的这句注释:
(and dcl (findfile dcl) (vl-file-delete dcl))
不晓得这个小软件的功能有什么具体的用处嫩？？画图好像用不到啊~~
版主：
这个工具很好用，感谢开发了这个好用的工具，现在用对话框也能做也漂亮的图像按钮了。
如果增加一个去除指定颜色的选项就更好了，因有图像大些的话的显示就慢了，就要减少像素点，用相同底色填充，显示会快点。
如果能用直线或填充方式，那DCL图像显示就更快了。
太实用了 谢谢
应网友的要求，再增加一个例子,附件见1楼
本帖最后由 自贡黄明儒 于 2013-1-30 16:20 编辑
highflybir 发表于 2013-1-30 13:11 http://bbs.mjtd.com/static/image/common/back.gif
应网友的要求，再增加一个例子,附件见1楼
有增加的例子就太好了，从而我们可以照虎画猫了
祥子 发表于 2012-12-23 22:33 static/image/common/back.gif
版主：
这个工具很好用，感谢开发了这个好用的工具，现在用对话框也能做也漂亮的图像按钮了。
如果增加一 ...
对，加入这个算法好。数据包会大大减少。
还一个想法，同一水平相同rgb的点可以用线代替，数据更小了。
;;;;;;;;;;;;;;;;;;;;;去除像素
(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 于 2013-5-20 03:11 编辑
神一样的功能
整个把矢量图软件变成像素图软件了。
我是用来转换二维码的，但是好像读取二维码后的LSP精度不够。
好多的 list 呀，怎么没碰见那个关于 list 的bug
为啥我就这么背，遇见两次
好东东，牛人，给力