[必看]：恭喜新版主上任，送点见面礼

Free-Lancer

首先恭喜新斑竹上任，送上份贺礼！！

以后还会有更多更精彩的内容奉献给大家。



声明：本帖内容禁止转贴，请注意！！！[/COLOR][/SIZE]

2. 
   
3. use VBA events to keep a layer from being unlocked  
   
4. ID    83365  
   
5. Applies to:    AutoCAD 2002
   
6. AutoCAD 2004
   
7. 
   
8. Date    1/30/2004  
   
9. 
   
10. This document is part of   Layers   VBA   
    
11. 
    
12. 
    
13. Question
    
14. Is there a way to keep a layer locked using VBA events?
    
15. Answer
    
16. Four different events could be used to keep a layer locked. Below is a VBA example
    
17. that keeps a layer named "Layer1" locked. The EndCommand locks Layer1 if the
    
18. layer command was run. The ObjectModified changes a global flag to true when
    
19. the Toolbar is used to unlock the layer. When a command is started the BeginCommand
    
20. checks this flag and locks the layer. The SelectionChanged event checks this
    
21. flag and locks the layer when an entity is selected.
    
22. 
    
23. To test this example copy this code into the ThisDrawing module in the VBA editor
    
24. 
    
25. 
    
26. Public checkLayer As Boolean
    
27. 
    
28. Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    
29.     If CommandName = "LAYER" Or CommandName = "-LAYER" Then
    
30.         Dim ly As AcadLayer
    
31.         For Each ly In ThisDrawing.Layers
    
32.             If ly.Name = "Layer1" Then
    
33.                 ly.Lock = True
    
34.             End If
    
35.         Next ly
    
36.    End If
    
37. End Sub
    
38. 
    
39. Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
    
40.     If Object.ObjectName = "AcDbLayerTableRecord" Then
    
41.         If Object.Name = "Layer1" Then
    
42.             checkLayer = True
    
43.         End If
    
44.     End If
    
45. 
    
46. End Sub
    
47. 
    
48. Private Sub AcadDocument_SelectionChanged()
    
49.     If checkLayer = True Then
    
50.         ThisDrawing.Layers("Layer1").Lock = True
    
51.         checkLayer = False
    
52.     End If
    
53. End Sub
    
54. 
    
55. Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    
56.     If checkLayer = True Then
    
57.         ThisDrawing.Layers("Layer1").Lock = True
    
58.         checkLayer = False
    
59.     End If
    
60. End Sub
    

<br /> use VBA events to keep a layer from being unlocked  <br /> ID    83365  <br /> Applies to:    AutoCAD 2002<br /> AutoCAD 2004<br /> <br /> Date    1/30/2004  <br /> <br /> This document is part of   Layers   VBA    <br /> <br /> <br /> Question<br /> Is there a way to keep a layer locked using VBA events?<br /> Answer<br /> Four different events could be used to keep a layer locked. Below is a VBA example <br /> that keeps a layer named "Layer1" locked. The EndCommand locks Layer1 if the <br /> layer command was run. The ObjectModified changes a global flag to true when <br /> the Toolbar is used to unlock the layer. When a command is started the BeginCommand <br /> checks this flag and locks the layer. The SelectionChanged event checks this <br /> flag and locks the layer when an entity is selected.<br /> <br /> To test this example copy this code into the ThisDrawing module in the VBA editor<br /> <br /> <br /> Public checkLayer As Boolean<br /> <br /> Private Sub AcadDocument_EndCommand(ByVal CommandName As String)<br />     If CommandName = "LAYER" Or CommandName = "-LAYER" Then<br />         Dim ly As AcadLayer<br />         For Each ly In ThisDrawing.Layers<br />             If ly.Name = "Layer1" Then<br />                 ly.Lock = True<br />             End If<br />         Next ly<br />    End If<br /> End Sub<br /> <br /> Private Sub AcadDocument_ObjectModified(ByVal Object As Object)<br />     If Object.ObjectName = "AcDbLayerTableRecord" Then<br />         If Object.Name = "Layer1" Then<br />             checkLayer = True<br />         End If<br />     End If<br /> <br /> End Sub<br /> <br /> Private Sub AcadDocument_SelectionChanged()<br />     If checkLayer = True Then<br />         ThisDrawing.Layers("Layer1").Lock = True<br />         checkLayer = False<br />     End If<br /> End Sub<br /> <br /> Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)<br />     If checkLayer = True Then<br />         ThisDrawing.Layers("Layer1").Lock = True<br />         checkLayer = False<br />     End If<br /> End Sub <br />

声明：本帖内容禁止转贴，请注意！！！[/COLOR][/SIZE]

雪山飞狐(lzh)

谢谢捧场，期待你的精彩内容，如果有好的我会考虑封红包的