Как добавить выбранные элементы в указанный блок?

Option Explicit
Sub Q()
Dim line    As AcadEntity
Dim blRef   As AcadBlockReference
Dim bl      As AcadBlock
Dim blName  As String
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
Dim a, b, c
ThisDrawing.Utility.GetEntity blRef, 0
blName = blRef.Name
Set bl = ThisDrawing.Blocks(blName)
a = ThisDrawing.Utility.GetPoint
b = ThisDrawing.Utility.GetPoint
c = blRef.InsertionPoint
startPoint(0) = a(0) - c(0): startPoint(1) = a(1) - c(1): startPoint(2) = a(2) - c(2)
endPoint(0) = b(0) - c(0): endPoint(1) = b(1) - c(1): endPoint(2) = b(2) - c(2)
Set line = bl.AddLine(startPoint, endPoint)
End Sub