[VBA程序]：请教：在vba中如何建块？

luln

如何利用vba函数创建块？

efan2000

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_Add()
   
5.     ' 创建一新块，名称为"New_Block"
   
6.     Dim blockObj As AcadBlock
   
7.    
   
8.     ' 定义块
   
9.     Dim insertionPnt(0 To 2) As Double
   
10.     insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
    
11.    
    
12.     ' 添加块到块集合中
    
13. 
    
14.     Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "New_Block")
    
15.     MsgBox blockObj.Name & " has been added." & vbCrLf & _
    
16.             "Origin: " & blockObj.Origin(0) & ", " & blockObj.Origin(1) _
    
17.             & ", " & blockObj.Origin(2), , "Add Example"
    
18. 
    
19.     ' 在块中创建圆.
    
20.    
    
21.     Dim circleObj As AcadCircle
    
22.     Dim centerPoint(0 To 2) As Double
    
23.     Dim radius As Double
    
24.    
    
25.     ' 定义圆
    
26.     centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    
27.     radius = 5#
    
28.    
    
29.     ' 添加圆到块中
    
30.    
    
31.     Set circleObj = blockObj.AddCircle(centerPoint, radius)
    
32. 
    
33.    
    
34. End Sub
    
35.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_Add()<br />     ' 创建一新块，名称为"New_Block"<br />     Dim blockObj As AcadBlock<br />     <br />     ' 定义块<br />     Dim insertionPnt(0 To 2) As Double<br />     insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#<br />     <br />     ' 添加块到块集合中<br /> <br />     Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "New_Block")<br />     MsgBox blockObj.Name & " has been added." & vbCrLf & _<br />             "Origin: " & blockObj.Origin(0) & ", " & blockObj.Origin(1) _<br />             & ", " & blockObj.Origin(2), , "Add Example"<br /> <br />     ' 在块中创建圆.<br />    <br />     Dim circleObj As AcadCircle<br />     Dim centerPoint(0 To 2) As Double<br />     Dim radius As Double<br />     <br />     ' 定义圆<br />     centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#<br />     radius = 5#<br />     <br />     ' 添加圆到块中<br />     <br />     Set circleObj = blockObj.AddCircle(centerPoint, radius)<br /> <br />     <br /> End Sub<br />   [/FONT]<br />

luln

谢谢！

gyl

如何建匿名块？

efan2000

直接在VBA建匿名块是不行的，不过可以借助于VLAX类模块。

ndy888

贴错了，对不起，重新编辑过