怎样记录之前的图层信息

happysheep

看到一个插件，功能是这样的：

除了选定对象所在的图层外，锁定所有其他图层，把所有其他图层的颜色都改为灰色。
再次运行命令时，如果什么都没选，则会将所有灰色的图层都改为原来的颜色。

问题是，程序里面是怎样记录之前的图层颜色设定的，有什么特别的变量会保存在图形文件里吗？

谢谢诸位

masterlong

命令-layer选项A

happysheep

masterlong 发表于 2014-2-26 17:08
命令-layer选项A

如果不用command命令的话，如何实现这个功能呢

自贡黄明儒

这个G版有，而且与众不同

q3_2006

自贡黄明儒 发表于 2014-2-26 18:10
这个G版有，而且与众不同

没找到...拜托黄工能转下源码,谢谢!

自贡黄明儒

q3_2006 发表于 2014-2-26 18:48
没找到...拜托黄工能转下源码,谢谢!

1 这个一般人想到的是command layer
2 修改组码
3 (acet-layerp-mode)见明经通道和caoyin推荐
4 highflybir用的vla- ，所以我一直用他的程序
5 G版的出现在他的程序中，看起来很不错，但我没有实践过。如果G版有空,有兴趣,他来回答是最合适了

q3_2006

自贡黄明儒 发表于 2014-2-27 09:06
1 这个一般人想到的是command layer
2 修改组码
3 (acet-layerp-mode)见明经通道和caoyin推荐

新手,没用过.....想了解下......

happysheep

自贡黄明儒 发表于 2014-2-27 09:06
1 这个一般人想到的是command layer
2 修改组码
3 (acet-layerp-mode)见明经通道和caoyin推荐

能给下高飞鸟和G版程序的链接吗？

happysheep

自贡黄明儒 发表于 2014-2-27 09:06
1 这个一般人想到的是command layer
2 修改组码
3 (acet-layerp-mode)见明经通道和caoyin推荐

我找到了一段代码如下，这个代码在cad里执行就会返回nil，不知道为什么

2. (defun c:ccc()
   
3.   (vl-load-com)
   
4.   (vlax-for Blk (vla-get-Blocks
   
5.     (vla-get-ActiveDocument
   
6.       (vlax-get-Acad-Object)
   
7.     )
   
8.   )
   
9.     (vlax-for Obj Blk
   
10.       (vla-put-Color Obj 256)    ;256随层
    
11.       (if (= (vla-get-ObjectName Obj) "AcDbBlockReference")
    
12.         (foreach Att (vlax-invoke Obj 'GetAttributes)
    
13.            (vla-put-Color Att 256);256随层
    
14.         )
    
15.       )
    
16.     )
    
17.   )
    
18. )

(defun c:ccc()<br />   (vl-load-com)<br />   (vlax-for Blk (vla-get-Blocks<br />     (vla-get-ActiveDocument<br />       (vlax-get-Acad-Object)<br />     )<br />   )<br />     (vlax-for Obj Blk<br />       (vla-put-Color Obj 256)    ;256随层<br />       (if (= (vla-get-ObjectName Obj) "AcDbBlockReference") <br />         (foreach Att (vlax-invoke Obj 'GetAttributes)<br />            (vla-put-Color Att 256);256随层<br />         )<br />       )<br />     )<br />   )<br /> )