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