Cómo insertar bloques externos en CAD usando código VBA
Suponiendo que el mosaico externo es un archivo llamado bbb.dwg, puede elegir la ruta. El código de VBA es el siguiente
Sub ttt()
Dim insertionPnt(0 To 2) As Double
Dim blockRefObj As AcadBlockReference
Dim blockRefObj As AcadBlockReference
insertionPnt(0) = 0#: insertionPnt(1) = 0#: insertionPnt(2) = 0#
blockRefObj =ThisDrawing.ModelSpace.InsertBlock( insertionPnt, " bbb.dwg", 1#, 1#, 1#, 0)
end sub