Using WblockCloneObjects to copy a Layout from the active document to a new drawing

Comments

4 responses to “Using WblockCloneObjects to copy a Layout from the active document to a new drawing”

1. 

   André Dagenais

   July 20, 2012

   Hi Stephen,
   I use your code to create a function to import a layout from a drawing file in the current drawing. I’m working in VB .Net. But I had a problem when copying the objects on the layout. It is working but it is also copying new “bizarre” viewport in the current layout.
   I change the parameter DuplicateRecordCloning from MangleName to Ignore and the problem disapears. What is the difference between these differents options?
   Here you will find my function:
   Public Function GetLayoutFromDWG(ByVal DWGFilename As String, ByVal LayoutName As String) As ObjectId
   Dim bReturnValue As ObjectId = Nothing
   Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor()
   Dim sourceDb As Database = New Database(False, True)
   Dim destDb As Database = ed.Document.Database()
   Dim acDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
   Try
   ”Read the DWG into a side database
   sourceDb.ReadDwgFile(DWGFilename, System.IO.FileShare.Read, True, “”)
   Using doclock As DocumentLock = acDoc.LockDocument
   Using tm1 As Transaction = destDb.TransactionManager.StartTransaction()
   ‘Création de la nouvelle présentation
   Dim newLytMgr As LayoutManager = LayoutManager.Current()
   Dim newLayoutId As ObjectId = newLytMgr.CreateLayout(LayoutName)
   Dim newLayout As Layout = tm1.GetObject(newLayoutId, OpenMode.ForWrite)
   HostApplicationServices.WorkingDatabase = sourceDb
   Using tm2 As Transaction = sourceDb.TransactionManager.StartTransaction()
   ”Open the layout dictionary
   Dim layoutDic As DBDictionary = tm2.GetObject(sourceDb.LayoutDictionaryId, OpenMode.ForRead, False)
   If Not layoutDic.Contains(LayoutName) Then
   bReturnValue = Nothing
   Else
   Dim sourceLytMgr As LayoutManager = LayoutManager.Current()
   Dim sourceLayoutId = sourceLytMgr.GetLayoutId(LayoutName)
   Dim sourceLayout As Layout = tm2.GetObject(sourceLayoutId, OpenMode.ForRead)
   newLayout.CopyFrom(sourceLayout)
   Dim blkTableRec As BlockTableRecord
   blkTableRec = tm2.GetObject(sourceLayout.BlockTableRecordId, OpenMode.ForRead)
   ‘Get the object ids of the objects in the existing block table record
   Dim objIdCol As New ObjectIdCollection()
   For Each objId As ObjectId In blkTableRec
   objIdCol.Add(objId)
   Next
   ‘ Clone the objects to the new layout
   Dim idMap As IdMapping = New IdMapping()
   destDb.WblockCloneObjects(objIdCol, newLayout.BlockTableRecordId, idMap, DuplicateRecordCloning.Ignore, False)
   ‘destDb.WblockCloneObjects(objIdCol, newLayout.BlockTableRecordId, idMap, DuplicateRecordCloning.MangleName, False)
   tm2.Commit()
   bReturnValue = newLayoutId
   End If
   End Using
   If Not bReturnValue = Nothing Then tm1.Commit()
   End Using
   End Using
   Catch ex As Autodesk.AutoCAD.Runtime.Exception
   ed.WriteMessage(“\nImpossible d’importer la présentation ” & LayoutName & “: ” & ex.Message)
   Finally
   HostApplicationServices.WorkingDatabase = destDb
   End Try
   sourceDb.Dispose()
   Return bReturnValue
   End Function
   Regards
   André

   Loading…

   Reply
2. 

   Stephen Preston

   July 20, 2012

   Hi Andre,
   Take a look at the ObjectARX documentation for AcDbDatabase::wblockCloneObjects() for an explanation of Mangle vs Ignore. This governs how AutoCAD deals with when duplicate symbol or dictionary names during the clone operation. If the Ignore option works for you, then go ahead and use it.
   Can’t comment on the bizarre viewport without seeing it.
   Cheers,
   Stephen

   Loading…

   Reply
3. 

   Stephan Gumpert

   May 4, 2014

   I seam to get the same problem here.
   I end up with an extra Viewport surrounding the Drawing sheet in my Exported layout.
   Apart from this everything work like a dream
   I can’t explain why? Do you have any ideas?

   Loading…

   Reply
4. 

   Anton

   November 25, 2016

   There is an example of your function in C#. Probably somebody need it.
   private static void CopyLayout()
   {
   var curDwgLayout = “Layout1”;
   var ed = AcadCurrentInstances.Editor;
   var db = AcadCurrentInstances.ThisDocument.Database;
   var newDb = new Database(true, false);
   using (var newDbTr = newDb.TransactionManager.StartTransaction())
   {
   //Make the working database the new database
   HostApplicationServices.WorkingDatabase = newDb;
   // Create a new Layout
   var newLayoutMngr = LayoutManager.Current;
   var newLayoutId = newLayoutMngr.CreateLayout(curDwgLayout);
   var newLayout = (Layout)newDbTr.GetObject(newLayoutId, OpenMode.ForWrite);
   // Make the original database the working database
   HostApplicationServices.WorkingDatabase = db;
   using (var dbTr = db.TransactionManager.StartTransaction() )
   {
   var layoutDictionary = (DBDictionary)dbTr.GetObject(db.LayoutDictionaryId, OpenMode.ForRead);
   if (!layoutDictionary.Contains(curDwgLayout))
   {
   ed.WriteMessage(“Layout named \”Layout1\” does not exist in current dwg “);
   return;
   }
   //Get the layout in the original database
   var layoutMngr = LayoutManager.Current;
   var layoutId = layoutMngr.GetLayoutId(curDwgLayout);
   var layout = (Layout)dbTr.GetObject(layoutId, OpenMode.ForRead);
   newLayout.CopyFrom(layout);
   //Get the block table record of the existing layout
   var layoutTableRecord =
   (BlockTableRecord) dbTr.GetObject(layout.BlockTableRecordId, OpenMode.ForRead);
   //Get the object ids of the objects in the existing block table record
   var objIdCol = new ObjectIdCollection();
   foreach (var layoutOBjectId in layoutTableRecord)
   {
   objIdCol.Add(layoutOBjectId);
   }
   //Clone the objects to the new layout
   var idMap = new IdMapping();
   newDb.WblockCloneObjects(objIdCol, newLayout.BlockTableRecordId, idMap,
   DuplicateRecordCloning.MangleName, false);
   dbTr.Commit();
   }
   newDbTr.Commit();
   }
   }

   Loading…

   Reply