[求助]急！急！急！关于块的问题

yuliang2477

<pre class="Code">首先我创建了一个块，随后在这个语句的后面有未知个语句（都是在CAD中画图元），</pre><pre class="Code">我想把这些语句所画的图元加入到前面建立的图块中，最后再把这个图块放到模型</pre><pre class="Code">的适当位置，但这些图元不知怎么才能加入到我所建立的图块当中？请各位大侠给点</pre><pre class="Code">提示！另外在程序中这样的环节还不少。</pre>

yuliang2477

补充一下，为了图形的美观，我为每一个图元都设置了不同的线型与颜色，图层也都分开了。

toosimple

<pre class="Code">Sub Example_InsertBlock()
    ' This example creates a block containing a circle.
    ' It then inserts the block.

    ' Create the block
    Dim blockObj As AcadBlock
    Dim insertionPnt(0 To 2) As Double
    insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
    Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "CircleBlock")
   
    ' Add a circle to the block
    Dim circleObj As AcadCircle
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 0: center(1) = 0: center(2) = 0
    radius = 1
    Set circleObj = blockObj.AddCircle(center, radius)
   
    ' Insert the block
    Dim blockRefObj As AcadBlockReference
    insertionPnt(0) = 2#: insertionPnt(1) = 2#: insertionPnt(2) = 0
    Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "CircleBlock", 1#, 1#, 1#, 0)
   
    ZoomAll
   
End Sub</pre>

yuliang2477

是这样的。

'=====================================================================================================

Call Example_InsertBlock(a)'a 是不定字符变量，根据要求建立不同的块名。

for i=1 to n'n值会在程序的其它地方给定此处未知

   Call Example_Addline(x1,y1,x2,y2)'有关参数值的程序已被略掉

   Call Example_AddCircle(x,y,r)
 

Next i

'==============我是想把以上部分画的图元加入到未知变量“a”的块中========================================   

Sub Example_AddLine(x1 as double,y1 as double,x2 as double,y2 as double)
       
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    
    startPoint(0) = x1: startPoint(1) = y1: startPoint(2) = 0#
    endPoint(0) = x2: endPoint(1) = y2: endPoint(2) = 0#
    
        Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    ZoomAll
    
End Sub

Sub Example_AddCircle(x1 as double,y1 as double,r as double)
     
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    
    
    centerPoint(0) = x1: centerPoint(1) = y1: centerPoint(2) = 0#
    radius = r
    
     Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
   
    
End Sub

yuliang2477

Call Example_InsertBlock(a)这个是建立块的子程序。

另外在这个语句下面有多少个画图元的语句也都是不一样。

yuliang2477

问题解决了，谢谢大侠费心。