请问大家这个VB怎么写啊？

askask

初学CAD，看到以下的一段宏VB，但是想修改为自己实用的一些功能，但是怎么改都不成功，望各位大虾们指点赐教、最好有详细的说明；）  谢谢啦！
' q+ C' U8 l, L0 V2 A! r按照以下代码的大概意思（偶也看得不太懂～），打开和关闭、解锁和锁定 是针对所有层的操作的，如果我想针对于某个层 例如Bondary层使用如下操作，我该如何修改其代码？ 烦劳各位详解  大谢！！！
8 p, ]1 H+ z7 D4 U6 M( R2 J, M代码如下：
5 g- F( I" ?/ E$ E3 v8 Q3 k
--------------------------------------------------------------------------------------------------
' Y- a8 V& a7 ]- y( A2 k$ l'打开所有图层
/ p! Z2 ?! o' |2 d'***********************
Public Sub OpenAll_Layers()
; B+ g4 _& e! a0 l6 q  Call OpenAllLayer(True)
End Sub
& P! r/ B& Q/ B, d) i% w- A! r! a--------------------------------------------------------------------------------------------------
: m; V9 J, Z3 t2 O; q'关闭所有图层
'**********************
Public Sub CloseAll_Layers()
  Call OpenAllLayer(False)
9 \. s5 r& P+ P6 F" B( N! wEnd Sub
--------------------------------------------------------------------------------------------------
. u% M: r, f& D- y* {'锁定所有图层
! G) @7 Z9 `# F9 I- k+ l. t'***********************
1 _" n7 I1 m& e# Q4 I& P, K4 BPublic Sub LockAll_Layers()
  Call LockAllLayer(True)
End Sub
--------------------------------------------------------------------------------------------------
! d, U0 B/ C$ c$ y9 e# U0 l'解锁所有图层
'***********************
Public Sub UnLockAll_Layers()
  Call LockAllLayer(False)
End Sub
  O+ w: j% z% X9 z) N2 `& r;这些是工具栏按钮显示的名称；

3 d% ^- m6 T% ^- ~
--------------------------------------------------------------------------------------------------
'Close on Open All Layer
'*****************************************
Public Sub OpenAllLayer(ByVal IsOpen As Boolean)
  Dim i As Integer
! y5 ]6 h* Y, L6 u  For i = 0 To ThisDrawing.Layers.count - 1
/ E6 F& l; ?/ i! g4 B# o    If ThisDrawing.Layers.Item(i).Name = ThisDrawing.ActiveLayer.Name _
9 }0 j2 p6 i8 M9 X( V        And IsOpen = False Then
      ThisDrawing.Layers.Item(i).LayerOn = Not (IsOpen)
. g2 l3 k% l; x    Else
; J# M" d- h6 b3 O; C- r7 i      ThisDrawing.Layers.Item(i).LayerOn = IsOpen
    End If
  Next i
. I! }, ~& o3 Q- O+ [( r1 j/ p. oEnd Sub
--------------------------------------------------------------------------------------------------
'Lock on UnLock All Layer
'*****************************************
Public Sub LockAllLayer(ByVal IsLock As Boolean)
$ x5 P; H5 S* K' R; c9 }  Dim i As Integer
9 p) z. d% o, l6 d  B  For i = 0 To ThisDrawing.Layers.count - 1
    ThisDrawing.Layers.Item(i).Lock = IsLock
  Next i
End Sub
--------------------------------------------------------------------------------------------------
；这些才是宏语言；

askask

以上代码  打开和关闭、解锁和锁定  的修改   烦劳各位详解  大谢了！！！