[求助]跟DWG保存个人数据问题？

wolunli

我想写一个图层分组管理的程序，但我不知道图层分组后的信息如何跟着DWG保存，

在下次打开DWG时还能读取这些分组信息呢，请问各位前辈，这些个人的信息一般

都保存在哪里啊！如何实现呢？请给些参考吧？

雪山飞狐_lzh

放在字典

wolunli

谢谢！早上就看了版主的答复。

但我对字典不熟，查了一下资料，只找到了给实体加扩展数据的程序片断。

没找到添加命名扩展字典的程序片断，如果版主有添加扩展字典的程序片断，

能否粘一个上来参考一下吗？谢谢！

雪山飞狐_lzh

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=75604
三楼的
SetXRecordData函数

wolunli

非常感谢！

我要慢慢研究消化一下。没搞过扩展记录这东西。

wolunli

实现了一部分功能，不错，下面是扩展记录的部分代码，由于扩展记录分析手段不懂，有些功能没实现。

Try
            Dim NOD As DBDictionary = trans1.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForWrite, False)
            Dim lpDict As DBDictionary
            Try
                lpDict = trans1.GetObject(NOD.GetAt("图层分组"), OpenMode.ForRead)
                Dim dgv As DataGridView() = {DataGridView1, DataGridView2, DataGridView3, DataGridView4, DataGridView5}
                Dim dgvn As Integer
                For j = 0 To li - 1
                    dgvn = 1
                    Dim objxRec As Xrecord
                    Try
                        objxRec = trans1.GetObject(lpDict.GetAt(ltr(j).Name), OpenMode.ForRead)
                        Dim resbuf As TypedValue = objxRec.Data.AsArray(0)
                        dgvn = resbuf.Value
                    Finally
                    End Try
                    With dgv(dgvn - 1)
                        Dim tpa As System.Drawing.Image = tpn
                        Dim tpb As System.Drawing.Image = tpn
                        If ltr(j).IsOff Then
                            tpa = tpc
                        Else
                            tpa = tpo
                        End If
                        If ltr(j).IsLocked Then
                            tpb = tpl
                        Else
                            tpb = tpu
                        End If
                        .Rows.Add(tpa, tpb, ltr(j).Name)
                    End With
                Next
            Catch
                lpDict = New DBDictionary()
                NOD.SetAt("图层分组", lpDict)
                trans1.AddNewlyCreatedDBObject(lpDict, True)

                Dim xRec(li) As Xrecord
                For i = 0 To li - 1
                    xRec(i) = New Xrecord()
                    xRec(i).Data = New ResultBuffer(New TypedValue(DxfCode.Int8, 1))
                    lpDict.SetAt(ltr(i).Name, xRec(i))
                    trans1.AddNewlyCreatedDBObject(xRec(i), True)
                Next