'Declaration
 
Protected Sub PrepareForWriting( _
   ByVal xRefName As String, _
   ByVal savedXRefPaths As Dictionary(Of String,String), _
   ByVal myEntities As IList(Of Entity), _
   ByVal myLayers As LayerKeyedCollection, _
   ByVal myBlocks As BlockKeyedCollection, _
   ByVal myTextStyles As TextStyleKeyedCollection, _
   ByVal myLineTypes As LineTypeKeyedCollection, _
   ByRef layersToSave As LayerKeyedCollection, _
   ByRef textStylesToSave As TextStyleKeyedCollection, _
   ByRef lineTypesToSave As LineTypeKeyedCollection, _
   ByRef mapLayersOldNew As Dictionary(Of String,String), _
   ByRef currXRefPaths As Dictionary(Of String,String), _
   ByRef blocksToSave As BlockKeyedCollection _
)