Red de conocimiento informático - Material del sitio web - Cómo insertar bloques externos en CAD usando código VBA

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