Hello guys, i'm creating a class that saves the setting of my form app into the current dwg NOD. Have anyone done something similar? Is this the right way? Any suggestions? Thanks.
Public Sub Create(ByVal dict As Dictionary(Of String, Control))
Dim trans As Transaction = ed.Document.Database.TransactionManager.StartTransaction
Dim dLock As DocumentLock = Application.DocumentManager.MdiActiveDocument.LockDocument
Try
Dim nod As DBDictionary = trans.GetObject(ed.Document.Database.NamedObjectsDictionaryId, OpenMode.ForRead)
If Not nod.Contains("Yrion Settings") Then
nod.UpgradeOpen()
Dim d As New DBDictionary
nod.SetAt("Yrion Settings", d)
trans.AddNewlyCreatedDBObject(d, True)
Dim list As New List(Of String)(dict.Keys)
For Each str As String In list
Dim data As ResultBuffer = New ResultBuffer(New TypedValue(DxfCode.Text, dict(str).Text))
Dim xr As New Xrecord
xr.Data = data
d.SetAt(str, xr)
trans.AddNewlyCreatedDBObject(xr, True)
Next
End If
trans.Commit()
Catch ex As Exception
ed.WriteMessage(vbLf & "A problem occurred because " & ex.Message & vbLf)
Finally
trans.Dispose()
dLock.Dispose()
End Try
End Sub