Dim db As Database = HostApplicationServices.WorkingDatabase
Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
Dim docLock As DocumentLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument()
Dim blockId As ObjectId = ObjectId.Null
Dim record As BlockTableRecord = New BlockTableRecord()
record.Name = "Blockobj"
record.Origin = New Point3d(insertPnt(0), insertPnt(1), insertPnt(2))
Using trans As Transaction = db.TransactionManager.StartTransaction()
Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForWrite)
For Each id As ObjectId In ss1.Value.GetObjectIds()
Dim ent As Entity = trans.GetObject(id, OpenMode.ForWrite)
Dim NewEnt As Entity = ent.Clone()
record.AppendEntity(NewEnt)
blockId = bt.Add(record)
trans.AddNewlyCreatedDBObject(record, True)
Next
trans.Commit()
End Using