szx025 发表于 2015-3-9 08:03:15

让所以图层都改成白色

让所以图层都改成白色，这个怎么写，请帮帮忙

spp_wall 发表于 2015-3-9 09:05:44

(command ".chprop" "all" """co" "byblock" "" )

szx025 发表于 2015-3-9 10:31:11

spp_wall 发表于 2015-3-9 09:05 static/image/common/back.gif
(command ".chprop" "all" """co" "byblock" "" )

其它的都行，就是这个不能把图中的块改为白色。

q3_2006 发表于 2015-3-9 14:07:41

szx025 发表于 2015-3-9 10:31 static/image/common/back.gif
其它的都行，就是这个不能把图中的块改为白色。

(defun c:ttt (/ bl bk n)
(vl-load-com)
(setq *obj* (vlax-get-acad-object))
(setq *doc* (vla-get-activedocument *obj*))
(setq bl (vla-get-blocks *doc*))
(vlax-for bk bl
    (vlax-for n bk
      (if (/= (vla-get-color n) 0)
      (vla-put-color n 0)
      )
    )
)
)

love1030312 发表于 2015-3-9 16:04:18

q3_2006 发表于 2015-3-9 14:07 static/image/common/back.gif
(defun c:ttt (/ bl bk n)
(vl-load-com)
(setq *obj* (vlax-get-acad-object))


q哥是大好人啊

q3_2006 发表于 2015-3-9 16:46:17

love1030312 发表于 2015-3-9 16:04 static/image/common/back.gif
q哥是大好人啊

干嘛。。来抄代码了。。

love1030312 发表于 2015-3-9 17:25:47

q3_2006 发表于 2015-3-9 16:46 static/image/common/back.gif
干嘛。。来抄代码了。。

Q哥不光是大好人还是非常聪明的人，一看就知道我在干什么事

iszc 发表于 2015-3-16 21:55:00

本帖最后由 iszc 于 2015-3-16 21:56 编辑

q3_2006 发表于 2015-3-9 14:07 static/image/common/back.gif
(defun c:ttt (/ bl bk n)
(vl-load-com)
(setq *obj* (vlax-get-acad-object))

这个能修改下，不修改锁定层颜色么
这个遇到锁定层会出错

q3_2006 发表于 2015-3-17 06:50:59

iszc 发表于 2015-3-16 21:55 static/image/common/back.gif
这个能修改下，不修改锁定层颜色么
这个遇到锁定层会出错

你先保存图层状态...改色后恢复一下就行了...搜论坛..有现成代码...

iszc 发表于 2015-3-17 07:24:48

q3_2006 发表于 2015-3-17 06:50 static/image/common/back.gif
你先保存图层状态...改色后恢复一下就行了...搜论坛..有现成代码...
这个可以保存图层状态，想能不能做到部分层颜色不修改，比如不想修改的层将其锁定或其他措施
测试了，这个改所有层颜色还是蛮好的，有时部分关联的标注（未炸开的标注）颜色不能修改，不知什么原因
页: [1]
查看完整版本: 让所以图层都改成白色