Đặt Block cho 2 hình khối (1 người xem)

[N2NTrung]

Mình loay hoay mò mãi mà không viết nổi lệnh đặt Block cho 2 hình khối, các bạn hướng dẫn cho mình với

 

[DOSNET]

Mình thì loay hoay mò mãi mà không hiểu nổi câu hỏi của bạn....

 

[N2NTrung]

Mình đặt Block cho 1 hình tròn :
Sub Dat_Block()
Dim BlockObj As AcadBlock
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 1.5
insertionPnt(1) = 2.5
insertionPnt(2) = 0
Set BlockObj = ThisDrawing.Blocks.Add(insertionPnt, "abc")
Set TV4Obj = BlockObj.AddCircle(insertionPnt, 5)
Dim blockRefObj As AcadBlockReference
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "abc", 1#, 1#, 1#, 0)
End Sub

bạn hướng dẫn cho mình đặt block cho nhiều 1 hình khối