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

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

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

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

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

(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

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

好像用了没什么反应！

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

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

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

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

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

参见

http://bbs.mjtd.com/thread-175571-1-1.html

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

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

相关帖子

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

相关帖子

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