明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1493|回复: 9

[提问] 让所以图层都改成白色

[复制链接]
发表于 2015-3-9 08:03:15 | 显示全部楼层 |阅读模式
让所以图层都改成白色,这个怎么写,请帮帮忙
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2015-3-9 09:05:44 | 显示全部楼层
(command ".chprop" "all" ""  "co" "byblock" "" )
 楼主| 发表于 2015-3-9 10:31:11 | 显示全部楼层
spp_wall 发表于 2015-3-9 09:05
(command ".chprop" "all" ""  "co" "byblock" "" )

其它的都行,就是这个不能把图中的块改为白色。
发表于 2015-3-9 14:07:41 | 显示全部楼层
szx025 发表于 2015-3-9 10:31
其它的都行,就是这个不能把图中的块改为白色。

(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)
      )
    )
  )
)
发表于 2015-3-9 16:04:18 | 显示全部楼层
q3_2006 发表于 2015-3-9 14:07
(defun c:ttt (/ bl bk n)
  (vl-load-com)
  (setq *obj* (vlax-get-acad-object))

q哥是大好人啊
发表于 2015-3-9 16:46:17 | 显示全部楼层
love1030312 发表于 2015-3-9 16:04
q哥是大好人啊

干嘛。。来抄代码了。。
发表于 2015-3-9 17:25:47 | 显示全部楼层
q3_2006 发表于 2015-3-9 16:46
干嘛。。来抄代码了。。

Q哥不光是大好人  还是非常聪明的人,一看就知道我在干什么事
发表于 2015-3-16 21:55:00 | 显示全部楼层
本帖最后由 iszc 于 2015-3-16 21:56 编辑
q3_2006 发表于 2015-3-9 14:07
(defun c:ttt (/ bl bk n)
  (vl-load-com)
  (setq *obj* (vlax-get-acad-object))

这个能修改下,不修改锁定层颜色么
这个遇到锁定层会出错
发表于 2015-3-17 06:50:59 | 显示全部楼层
iszc 发表于 2015-3-16 21:55
这个能修改下,不修改锁定层颜色么
这个遇到锁定层会出错

你先保存图层状态...改色后恢复一下就行了...搜论坛..有现成代码...
发表于 2015-3-17 07:24:48 | 显示全部楼层
q3_2006 发表于 2015-3-17 06:50
你先保存图层状态...改色后恢复一下就行了...搜论坛..有现成代码...

这个可以保存图层状态,想能不能做到部分层颜色不修改,比如不想修改的层将其锁定或其他措施
测试了,这个改所有层颜色还是蛮好的,有时部分关联的标注(未炸开的标注)颜色不能修改,不知什么原因
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-7-16 14:47 , Processed in 0.195861 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表