[讨论]：如何用VBA创建匿名块？

efan2000

在AutoCAD中，确实可以用VBA创建匿名块，那么如何创建呢，请大家共同来探讨这一话题，发表一下自己的心得。

下图中，首先生成U开头的三个匿名块，再分别生成A、U开头的各一个，接下来生成A开头的两个，最后生成C开头的一个。检查块集合中的块名称如下：

efan2000

那么怎么生成匿名块呢，其实制作匿名块的方法和制作普通块的方法是一样的。
如：

2. 
   
3.   [FONT=courier new]
   
4.     Dim iPt(0 To 2) As Double
   
5.     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0
   
6.     Dim BlockObj As AcadBlock
   
7.     Set BlockObj = ThisDrawing.Blocks.Add(iPt, "*U")
   
8.     Set BlockObj = Nothing
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br />     Dim iPt(0 To 2) As Double<br />     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0<br />     Dim BlockObj As AcadBlock<br />     Set BlockObj = ThisDrawing.Blocks.Add(iPt, "*U")<br />     Set BlockObj = Nothing<br />   [/FONT]<br />

上面的代码中在块集合生成了一个U开头的匿名块，你可以试试用下面的代码测试一下。

2. 
   
3.   [FONT=courier new]
   
4.     Dim BlockObj As AcadBlock
   
5.     For Each BlockObj In ThisDrawing.Blocks
   
6.         Debug.Print BlockObj.Name
   
7.     Next
   
8.     Set BlockObj = Nothing
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br />     Dim BlockObj As AcadBlock<br />     For Each BlockObj In ThisDrawing.Blocks<br />         Debug.Print BlockObj.Name<br />     Next<br />     Set BlockObj = Nothing<br />   [/FONT]<br />

看了上面的代码，是不是制作匿名块其实很简单。

efan2000

但是如何获取刚创建的块的名称呢？
下面的代码用于枚举匿块的数量

2. 
   
3.   [FONT=courier new]
   
4.     Dim BlockObj As AcadBlock
   
5.     Dim n As Integer
   
6.     For Each BlockObj In ThisDrawing.Blocks
   
7.         If Left(BlockObj.Name, 1) = "*" Then
   
8.             If BlockObj.Name <> "*Model_Space" And Left(BlockObj.Name, 12) <> "*Paper_Space" Then '原来有错，应该是并的关系，表示即不是模型空间，也不是国纸空间。
   
9.                 n = n + 1
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     Debug.Print n '匿名块的数量
    
14.     Set BlockObj = Nothing
    
15.   [/FONT]
    

<br />   [FONT=courier new]<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 />     Debug.Print n '匿名块的数量 <br />     Set BlockObj = Nothing<br />   [/FONT]<br />

知道了吧，其中为数值为n的块名就是匿名块的名称了，比如上次刚创建了一个“*U”的匿名块，如果得出的数量为1，那么块的名称就是“*U1”。

2. 
   
3.   [FONT=courier new]
   
4.     Dim iPt(0 To 2) As Double
   
5.     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0
   
6.     Dim BlockRefObj As AcadBlockReference
   
7.     Set BlockRefObj = ThisDrawing.ModelSpace.InsertBlock(iPt, "*U1", 1, 1, 1, 0)
   
8.     Debug.Print BlockRefObj.Name
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br />     Dim iPt(0 To 2) As Double<br />     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0<br />     Dim BlockRefObj As AcadBlockReference<br />     Set BlockRefObj = ThisDrawing.ModelSpace.InsertBlock(iPt, "*U1", 1, 1, 1, 0)<br />     Debug.Print BlockRefObj.Name<br />   [/FONT]<br />

efan2000

上面仅仅提供了一种创建匿名块的思路，大家在实际使用中可以自己加以完善。

gyl

谢谢斑竹！:4 :4

efan2000

有什么疑问吗？

fjw_ok

问斑竹，创建匿名块的用处，可以讲一下吗？

efan2000

在CAD中，标注用的就是匿名块。

fjw_ok

哈哈

efan2000

匿名块的用处就是把几个实体做成一个整体，以方便统一调用。还有一个就是CAD系统会自动管理匿名块，如果没有使用的匿名块，会自动清除，而不会留在块集体中。

god

噢，原来如此，不过实际应用中好像作用不大

efan2000

当然，有什么用处是要靠你自己去想象和挖掘了。

efan2000

在VBA中，可以用于创建匿名块的字母共有二十四个，除了字母M和P之外，其它的都可以用于创建匿名块。因此，如果对于图中块的种类不多的话，可以为每一类型的块分别以不同的字母来创建，便于分类管理。
如下是我做的一个测试，列出了可以创建匿名块的字母：

1. 
   
2.   [FONT=courier new]
   
3. *A49
   
4. *B50
   
5. *C51
   
6. *D52
   
7. *E53
   
8. *F54
   
9. *G55
   
10. *H56
    
11. *I57
    
12. *J58
    
13. *K59
    
14. *L60
    
15. *N61
    
16. *O62
    
17. *Q63
    
18. *R64
    
19. *S65
    
20. *T66
    
21. *U67
    
22. *V68
    
23. *W69
    
24. *X70
    
25. *Y71
    
26. *Z72
    
27.   [/FONT]
    

复制代码

爱好者

关于匿名块的用处只有自己遇到问题时才会发现它的用处！
  还想请教efan几个问题：
  1。我将你这个程序执行
Dim BlockObj As AcadBlock
    Dim n As Integer
    For Each BlockObj In ThisDrawing.Blocks
        If Left(BlockObj.Name, 1) = "*" Then
            If BlockObj.Name <> "*Model_Space" Or Left(BlockObj.Name, 12) <> "*Paper_Space" Then
                n = n + 1
            End If
        End If
    Next
    Debug.Print n '匿名块的数量
   
  该程序执行结果n ：好象是包括"*Model_Space ，*Paper_Space三个图块，那它们也属于匿名图块吗？如果不是的话，那么该枚取匿名图块数量的程序该怎样修改？

  2.使用匿名块不会出现块重复画线的问题。可是efan能告诉我未使用匿名块时块重复现象的问题症结所在？以及块重复的规律，因为有的图像是重复两次，而有的是三次，这两次和三次是怎么回事？

efan2000

If BlockObj.Name <> "*Model_Space" Or Left(BlockObj.Name, 12) <> "*Paper_Space" Then
这一句有错，中间是AND，表示块的名称既不是模型空间也不是图纸空间，这是块的名称前带*号的就是所要的匿名块了。其实在CAD中，模型空间和图纸空间都是块集合中的成员，也都是匿名块，但它们的命名方式和其它的匿名块不一样。

对于你上次的例子中，引用的块是同一个名称。有没有注意到每次运行程序时，都是用Add方法，表示往这个块中添加成员，但原来的块中已经有实体存在。因而重复的次数就是运行程序的次数了。但用了匿名块后，其实它是分别往不同的块中添加实体，因而也就不会重复了。