老大,有没有除自写函数外更简单的方法实现冻结当前层外的其他图层?

h_lon

mccad

2. ' 冻结除当前图层外的图层
   
3. Sub FreezeOtherLayer()
   
4.     Dim layer As AcadLayer
   
5.     For Each layer In ThisDrawing.Layers
   
6.         If layer.Name <> ThisDrawing.ActiveLayer.Name Then layer.Freeze = True
   
7.     Next
   
8.     ThisDrawing.Application.Update
   
9. End Sub
   
10. 
    
11. ' 解冻除当前图层外的图层
    
12. Sub UnFreezeOtherLayer()
    
13.     Dim layer As AcadLayer
    
14.     For Each layer In ThisDrawing.Layers
    
15.         If layer.Name <> ThisDrawing.ActiveLayer.Name Then layer.Freeze = False
    
16.     Next
    
17.     ThisDrawing.Regen acAllViewports
    
18. End Sub
    
19. 
    

' 冻结除当前图层外的图层<br /> Sub FreezeOtherLayer()<br />     Dim layer As AcadLayer<br />     For Each layer In ThisDrawing.Layers<br />         If layer.Name <> ThisDrawing.ActiveLayer.Name Then layer.Freeze = True<br />     Next<br />     ThisDrawing.Application.Update<br /> End Sub<br /> <br /> ' 解冻除当前图层外的图层<br /> Sub UnFreezeOtherLayer()<br />     Dim layer As AcadLayer<br />     For Each layer In ThisDrawing.Layers<br />         If layer.Name <> ThisDrawing.ActiveLayer.Name Then layer.Freeze = False<br />     Next<br />     ThisDrawing.Regen acAllViewports<br /> End Sub<br /> <br />

h_lon

太谢谢你了.

mikewolf2k

express/bonus 内好像有一个该功能的命令,你找找看.

h_lon

mikewolf2k兄,express/bonus 是哪里的命令?能不能说详细点.谢谢!

mikewolf2k

express/bonus 是安装cad时附带的.不过听说2002,2004中没有.
layers下有一大堆关于图层的命令,你自己看看吧.我没用过.

subtlation

express有一些关于图层的命令，但是没有楼主所说的那一项。

mikewolf2k

是吗，不好意思，我只知道有一些关于图层的命令，但我没用过，具体什么功能并不清楚．

subtlation

已经把老大这个程序下载了，然后在增加了加锁和解锁。方便多了。
原来经常用cad自带的命令，慢许多，可是一直想不起来要编一个。多到这儿来可以拓宽思路啊。