spp_wall 发表于 2014-8-7 10:00:45

图纸统一变成黑白颜色 应该怎么写？

          现在有不少图纸是彩色的想全部变成黑白颜色   

          已经有批量处理的程序    需要一个图纸统一改色的程序不需要点选就是把图纸里的图元全变成黑色包括块和标注什么的
时间比较急求教高手们！

819534890 发表于 2014-8-7 10:47:24

(vl-load-com)
(defun c:aa1(/ ss i sn)
(setq ss (ssget "x"))
(if ss
(progn
(setq i 0)
(repeat (sslength ss)
(setq sn (ssname ss i))
(if (= (cdr (assoc 0 (entget sn))) "INSERT")
(改块颜色) ;论坛很多，自己去搜索
(vla-put-color (vlax-ename->vla-object sn) 7))
(setq i (1+ i))
)
)
)
)

spp_wall 发表于 2014-8-7 11:03:59

819534890 发表于 2014-8-7 10:47 static/image/common/back.gif
(vl-load-com)
(defun c:aa1(/ ss i sn)
(setq ss (ssget "x"))


好像用了没什么反应！

尘缘一生 发表于 2017-10-23 10:10:40

这个问题具有实际意义，关键谁能写出，速度快的代码！

xinxirong 发表于 2017-10-23 12:58:46

目的是什么？用打印成dwf能满足你的要求？

vectra 发表于 2017-10-23 15:26:20

参见

http://bbs.mjtd.com/thread-175571-1-1.html
页: [1]
查看完整版本: 图纸统一变成黑白颜色 应该怎么写？