[VBA程序]：创建和插入“块”的纯ActiveX/VBA 代码

XDSoft

How to create/insert a block using pure ActiveX/VBA code  
ID    47502  
Applies to:    AutoCAD 2000
  
This document is part of    Block Reference   COM-ActiveX Interfaces   VBA     


Question
How should I use the AutoCAD ActiveX Automation API to create a block and insert
it into model space?
Answer
The sequence of the block creation process in ActiveX is to add an AcadBlock
object to the AcadBlocks collection, then you add an AcadCircle, such as to the
AcadBlock. Note that you can add as many objects as you like to the AcadBlock.
When done, call InsertBlock() method to insert it into a particular space, such
as model space.  The following example illustrates this:

2. 
   
3. [FONT=courier new]
   
4. Sub createInsertBlock()
   
5. 
   
6.    Dim blk As AcadBlock
   
7.    Dim pt(0 To 2) As Double
   
8.    Dim cir As AcadCircle
   
9.    Dim ctr(0 To 2) As Double
   
10.    Const blkName = "test"
    
11.    
    
12.    Set blk = ThisDrawing.Blocks.Add(pt, blkName)
    
13.    ctr(0) = 2: ctr(1) = 2
    
14.    
    
15.    Set cir = blk.AddCircle(ctr, 1.5)
    
16.    
    
17.    ThisDrawing.ModelSpace.InsertBlock pt, blkName, 1, 1, 1, 0
    
18. End Sub[/FONT]

<br /> [FONT=courier new]<br /> Sub createInsertBlock()<br /> <br />    Dim blk As AcadBlock<br />    Dim pt(0 To 2) As Double<br />    Dim cir As AcadCircle<br />    Dim ctr(0 To 2) As Double<br />    Const blkName = "test"<br />    <br />    Set blk = ThisDrawing.Blocks.Add(pt, blkName)<br />    ctr(0) = 2: ctr(1) = 2<br />    <br />    Set cir = blk.AddCircle(ctr, 1.5)<br />    <br />    ThisDrawing.ModelSpace.InsertBlock pt, blkName, 1, 1, 1, 0<br /> End Sub[/FONT]