You are on the right path, here's a sample in vb that inserts a block into a drawing in memory...
'path to blocks dwg
Dim insertblock As String = ""
'path to drawing to load in memory
Dim filepath As String
Try
For Each Me.filepath In ListBox1.Items
'Your drawing in memory
Dim fi As New FileInfo(filepath)
Dim SelectedDWG As String = DWGNMComboBox.SelectedItem.ToString
CreateBlock()
Catch Ex As System.Exception
System.Windows.Forms.MessageBox.Show(Ex.ToString)
End Try
Public Sub CreateBlock()
Dim db As New Database(False, True)
db.ReadDwgFile(filepath, System.IO.FileShare.ReadWrite, False, "")
Dim trans As Transaction
trans = db.TransactionManager.StartTransaction
Try
Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead, False)
Dim btr As BlockTableRecord
btr = trans.GetObject(bt.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite, False)
Dim id As ObjectId
If bt.Has(blckname) Then
Dim btrSrc As BlockTableRecord
btrsrc=trans.GetObject(bt.Item(blckname), OpenMode.ForWrite)
btrSrc.Erase()
Else
End If
Dim dbDwg As New Database(False, True)
dbDwg.ReadDwgFile(insertblock, IO.FileShare.Read, True, "")
id = db.Insert(blckname, dbDwg, False)
dbDwg.Dispose()
'Modify insertion settings
Dim ptInsert As New Point3d(IPX, IPY, IPz)
Dim blkRef As New BlockReference(ptInsert, id)
blkRef.ScaleFactors = New Scale3d(blkscale)
btr.AppendEntity(blkRef)
trans.AddNewlyCreatedDBObject(blkRef, True)
trans.Commit()
Catch
MsgBox(Err.Description + "ouch")
Finally
trans.Dispose()
End Try
db.SaveAs(filepath, DwgVersion.Current)
End Sub
