It might be eaiser to just add the styles from a drawing instead of inserting the drawing
I am not at my normal computer so later I can post the code that is not quickly thrown together as this and a better example, but this should be good enough to show the general idea.
This adds all the textstyles and plotsettings(Page Setups) from a existing drawing .
The textstyles is to show grabbing from a Symbol Table and the PlotSettings is to show grabbing from a Dictionary
<CommandMethod("AddTextStylesAndPlotSettings")> _
Public Sub AddTextStylesAndPlotSettings()
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim stylesDb As New Database(False, True)
stylesDb.ReadDwgFile("C:\Test\Styles.dwg", FileOpenMode.OpenForReadAndAllShare, True, "")
Dim objIdColl As New ObjectIdCollection
Using trx As Transaction = db.TransactionManager.StartTransaction
Using stylesTrx As Transaction = stylesDb.TransactionManager.StartTransaction
Dim txtStyleTbl As TextStyleTable = db.TextStyleTableId.GetObject(OpenMode.ForWrite)
Dim stylesTxtStyleTbl As TextStyleTable = stylesDb.TextStyleTableId.GetObject(OpenMode.ForRead)
For Each objId As ObjectId In stylesTxtStyleTbl
Dim txtStyleRec As TextStyleTableRecord = objId.GetObject(OpenMode.ForRead)
If Not txtStyleTbl.Has(txtStyleRec.Name) Then
objIdColl.Add(txtStyleRec.ObjectId)
End If
Next
Dim map As New IdMapping
db.WblockCloneObjects(objIdColl, txtStyleTbl.ObjectId, map, DuplicateRecordCloning.Replace, False)
Dim stylesPlotDic As DBDictionary = stylesDb.PlotSettingsDictionaryId.GetObject(OpenMode.ForRead)
For Each dicEntry As DictionaryEntry In stylesPlotDic
Dim objId As ObjectId = CType(dicEntry.Value, ObjectId)
Dim pltSettings As PlotSettings = objId.GetObject(OpenMode.ForRead)
Dim copyPltSettings As New PlotSettings(False)
copyPltSettings.CopyFrom(pltSettings)
copyPltSettings.AddToPlotSettingsDictionary(db)
Next
trx.Commit()
End Using
End Using
End Sub
