[编程申请]：如何以最快的速度将每个实体的颜色有彩色变为白色？

cqsnowfox

如何以最快的速度将每个实体的颜色有彩色变为白色？（遍历实体速度太慢）图形数据量比较大约３０Ｍ
（可以提供ＶＢＡ的思路方法吗？）

mr cool

CTRL+A
在图层颜色中选白色

eachy

用命令修改Modelspace空间实体，用遍历的方法修改块内实体

cqsnowfox

3楼楼主可以讲详细点吗?谢谢

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.    (setq ss (ssget "X"))
   
4.   (command "chprop" ss "" "co" "7" "")
   
5. )[/FONT]

[FONT=courier new](defun c:test ()<br />    (setq ss (ssget "X"))<br />   (command "chprop" ss "" "co" "7" "")<br /> )[/FONT]

cqsnowfox

谢谢５楼楼主，你的方法真的好快！！！！

lshpool

你的这个程序如何使用

李军

这样用：
把5楼代码另存为lsp文件，在CAD中加载


刚试用了一下，发现不能改变块内实体的颜色
5楼朋友可改进一下吗？

谢谢

LUCAS

http://www.tacocity.com.tw/hitop/   
到27页找

eachy

2. 
   
3. (defun c:tt (/ ss)
   
4.   (vl-load-com)
   
5.   (if (setq ss (ssget "x"))
   
6.     (command "_chprop" ss "" "co" "7" "")
   
7.   )
   
8.   (vlax-for blkdef (vla-get-blocks
   
9.                      (vla-get-activedocument (vlax-get-acad-object))
   
10.                    )
    
11.     (if        (not (wcmatch (vla-get-name obj) "`**_Space*"))
    
12.       (vlax-for        obj blkdef
    
13.         (vla-put-color obj acWhite)
    
14.       )
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

<br /> (defun c:tt (/ ss)<br />   (vl-load-com)<br />   (if (setq ss (ssget "x"))<br />     (command "_chprop" ss "" "co" "7" "")<br />   )<br />   (vlax-for blkdef (vla-get-blocks<br />                      (vla-get-activedocument (vlax-get-acad-object))<br />                    )<br />     (if        (not (wcmatch (vla-get-name obj) "`**_Space*"))<br />       (vlax-for        obj blkdef<br />         (vla-put-color obj acWhite)<br />       )<br />     )<br />   )<br />   (princ)<br /> )