Dear All,

Need assistance in VBA on how to merge 2 block in AutoCAD 2016 as 1 block.
Below are my code to insert the 2 block to my drawing.

Code:
   
 For i = 1 To AddHole        
        dwgInsert = gsGetPath(objVBE.ActiveVBProject.FileName) & "\Blocks\FrameProtector\HoleOS43.dwg"
        insertionPoint(0) = SP1 + (HoleGap * i): insertionPoint(1) = SP2: insertionPoint(2) = 0#
        Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPoint, dwgInsert, 1#, 1#, 1#, 0)
 Next
    
    dwgInsert = gsGetPath(objVBE.ActiveVBProject.FileName) & "\Blocks\FrameProtector\FPDOUBLEXXXX.dwg"
    insertionPoint(0) = SP1: insertionPoint(1) = SP2: insertionPoint(2) = 0#
    Set blockObj = ThisDrawing.ModelSpace.InsertBlock(insertionPoint, dwgInsert, 1#, 1#, 1#, 0)
    
    GetAtt = blockObj.GetAttributes
    For vari = 0 To UBound(GetAtt)
        Select Case GetAtt(vari).TagString
        Case "ITEMCODE"
               GetAtt(vari).TextString = CodeHeight & CodeDirection & CodeLength
        Case "QTY"
               GetAtt(vari).TextString = "1"
        Case "VIEW"
               GetAtt(vari).TextString = "PV"
        Case "CREATEDBY"
               GetAtt(vari).TextString = "SYSTEM"
        Case "PRODUCTTYPE"
               GetAtt(vari).TextString = "FRAME PROTECTOR"
        Case "PRODUCTCATEGORY"
               GetAtt(vari).TextString = "i600"
        End Select
    Next
    
    dynVar = blockObj.GetDynamicBlockProperties
    For counter = LBound(dynVar) To UBound(dynVar)
        If dynVar(counter).PropertyName = "length" Then
            dynVar(counter).Value = CDbl(Length) - 500
        End If
    Next counter