0 Members and 1 Guest are viewing this topic.
Dim blockRefObj As AcadBlockReference Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(returnPnt, "C:\Acad_2008\2008_Blocks\Controllers\nxs0015a1007-01.dwg", 1#, 1#, 1#, 0)
From your codeCode: [Select]Dim blockRefObj As AcadBlockReference Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(returnPnt, "C:\Acad_2008\2008_Blocks\Controllers\nxs0015a1007-01.dwg", 1#, 1#, 1#, 0) blockRefObj.explode