[VBA函数]：匿名块的两个函数

efan2000

根据上次探讨的话题，给出两个常用的函数。

2. 
   
3.   [FONT=courier new]
   
4. '获取块集合中匿名块的数量
   
5. Function GetUNBlockCount() As Integer
   
6.     Dim BlockObj As AcadBlock
   
7.     Dim n As Integer
   
8.     For Each BlockObj In ThisDrawing.Blocks
   
9.         If Left(BlockObj.Name, 1) = "*" Then
   
10.             If BlockObj.Name <> "*Model_Space" And Left(BlockObj.Name, 12) <> "*Paper_Space" Then
    
11.                 n = n + 1
    
12.             End If
    
13.         End If
    
14.     Next
    
15.     GetUNBlockCount = n
    
16.     Set BlockObj = Nothing
    
17. End Function
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> '获取块集合中匿名块的数量 <br /> Function GetUNBlockCount() As Integer <br />     Dim BlockObj As AcadBlock <br />     Dim n As Integer <br />     For Each BlockObj In ThisDrawing.Blocks <br />         If Left(BlockObj.Name, 1) = "*" Then <br />             If BlockObj.Name <> "*Model_Space" And Left(BlockObj.Name, 12) <> "*Paper_Space" Then <br />                 n = n + 1 <br />             End If <br />         End If <br />     Next <br />     GetUNBlockCount = n <br />     Set BlockObj = Nothing <br /> End Function<br />   [/FONT]<br />

2. 
   
3.   [FONT=courier new]
   
4. '返回最后创建的匿名块
   
5. Public Function GetUNBlock() As AcadBlock
   
6.     Dim BlockObj As AcadBlock
   
7.     Dim n As Integer
   
8.     For Each BlockObj In ThisDrawing.Blocks
   
9.         If Left(BlockObj.Name, 1) = "*" Then
   
10.             If BlockObj.Name <> "*Model_Space" And Left(BlockObj.Name, 12) <> "*Paper_Space" Then
    
11.                 If Mid(BlockObj.Name, 3) >= n Then
    
12.                     n = Mid(BlockObj.Name, 3)
    
13.                     Set GetUNBlock = BlockObj
    
14.                 End If
    
15.             End If
    
16.         End If
    
17.     Next
    
18.     Set BlockObj = Nothing
    
19. End Function
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> '返回最后创建的匿名块<br /> Public Function GetUNBlock() As AcadBlock<br />     Dim BlockObj As AcadBlock<br />     Dim n As Integer<br />     For Each BlockObj In ThisDrawing.Blocks<br />         If Left(BlockObj.Name, 1) = "*" Then<br />             If BlockObj.Name <> "*Model_Space" And Left(BlockObj.Name, 12) <> "*Paper_Space" Then<br />                 If Mid(BlockObj.Name, 3) >= n Then<br />                     n = Mid(BlockObj.Name, 3)<br />                     Set GetUNBlock = BlockObj<br />                 End If<br />             End If<br />         End If<br />     Next<br />     Set BlockObj = Nothing<br /> End Function<br />   [/FONT]<br />