c#怎样在CAD词典内检索数据(已解决)

xgr

看了教程还是不太懂，只知道创建词典条目，却不知道如何为词典条目设置和读取数据。

1. //将比例尺设置到词典对象，词典条目名称为Xggj_Tool
   
2.             Document acDoc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
   
3.             Database acCurDb = acDoc.Database;
   
4.             Transaction trans = acCurDb.TransactionManager.StartTransaction();
   
5.             DocumentLock dl = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument();
   
6.             try
   
7.             {
   
8.                 //首先，获取NOD……
   
9.                 DBDictionary NOD = (DBDictionary)trans.GetObject(acCurDb.NamedObjectsDictionaryId, OpenMode.ForWrite);
   
10. 
    
11.                 //定义一个自定义级别的字典"Xggj_Tool"
    
12.                 DBDictionary acmeDict;
    
13.                 try
    
14.                 {
    
15.                     //如果Xg_Tool不存在，则转到catch块，这里什么也不做
    
16.                     acmeDict = (DBDictionary)trans.GetObject(NOD.GetAt("Xggj_Tool"), OpenMode.ForRead);
    
17.                 }
    
18.                 catch
    
19.                 {
    
20.                     //如果Xggj_Tool不存在，则创建它并把它加入到NOD中……
    
21.                     acmeDict = new DBDictionary();
    
22. 
    
23.                     NOD.SetAt("Xggj_Tool", acmeDict);
    
24.                     trans.AddNewlyCreatedDBObject(acmeDict, true);
    
25. 
    
26.                     //定义子阶别的字典条目"Xggj_Scales"（比例尺）
    
27.                     DBDictionary divDict;
    
28.                     try
    
29.                     {
    
30.                         divDict = (DBDictionary)trans.GetObject(acmeDict.GetAt("Xggj_Scales"), OpenMode.ForWrite);
    
31.                     }
    
32.                     catch
    
33.                     {
    
34.                         divDict = new DBDictionary();
    
35.                         acmeDict.SetAt("Xggj_Scales", divDict);
    
36.                         trans.AddNewlyCreatedDBObject(divDict, true);
    
37.                     }
    
38.                 }
    
39.                 trans.Commit();
    
40.             }
    
41.             finally
    
42.             {
    
43.                 dl.Dispose();
    
44.             }

复制代码

运行后可以查看到词典条目，请问怎样设置值何取值

LISP有
(vlax-ldata-get dict key [default-data] [private])
(vlax-ldata-put dict key data [private])
c#怎么做？？谢谢！

xgr

问题已解决
首先建立词典条目Xggj_Tool
并设置Xggj_Tool的值为1000，

1. //将比例尺设置到词典对象，词典条目名称为Xggj_Tool
   
2.             Document acDoc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
   
3.             Database acCurDb = acDoc.Database;
   
4.             Transaction trans = acCurDb.TransactionManager.StartTransaction();
   
5.             DocumentLock dl = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument();
   
6.             try
   
7.             {
   
8.                 //首先，获取NOD……
   
9.                 DBDictionary NOD = (DBDictionary)trans.GetObject(acCurDb.NamedObjectsDictionaryId, OpenMode.ForWrite);
   
10. 
    
11.                 //定义一个自定义级别的字典"Xggj_Tool"
    
12.                 DBDictionary acmeDict;
    
13.                 try
    
14.                 {
    
15.                     //如果Xg_Tool不存在，则转到catch块，这里什么也不做
    
16.                     acmeDict = (DBDictionary)trans.GetObject(NOD.GetAt("Xggj_Tool"), OpenMode.ForRead);
    
17.                 }
    
18.                 catch
    
19.                 {
    
20.                     //如果Xggj_Tool不存在，则创建它并把它加入到NOD中……
    
21.                     acmeDict = new DBDictionary();
    
22. 
    
23.                     NOD.SetAt("Xggj_Tool", acmeDict);
    
24.                     trans.AddNewlyCreatedDBObject(acmeDict, true);
    
25. 
    
26. 
    
27.                     Xrecord mgrXRec;
    
28.                     try
    
29.                     {
    
30.                         mgrXRec = (Xrecord)trans.GetObject(acmeDict.GetAt("Xggj_Scales"), OpenMode.ForWrite);
    
31.                     }
    
32.                     catch
    
33.                     {
    
34.                         mgrXRec = new Xrecord();
    
35.                         mgrXRec.Data = new ResultBuffer(new TypedValue((int)DxfCode.Text, "1000"));
    
36.                         acmeDict.SetAt("Xggj_Scales", mgrXRec);
    
37.                         trans.AddNewlyCreatedDBObject(mgrXRec, true);
    
38.                     }
    
39.                 }
    
40.                 trans.Commit();
    
41.             }
    
42.             finally
    
43.             {
    
44.                 dl.Dispose();
    
45.             }

复制代码

读取Xggj_Tool的值

1. //读取词典对象的值
   
2.             Transaction trans1 = acCurDb.TransactionManager.StartTransaction();
   
3.             DBDictionary NOD1 = (DBDictionary)trans1.GetObject(acCurDb.NamedObjectsDictionaryId, OpenMode.ForRead);
   
4.             DBDictionary Dict1 = (DBDictionary)trans1.GetObject(NOD1.GetAt("Xggj_Tool"), OpenMode.ForRead);
   
5.             Xrecord salesXRec = (Xrecord)trans1.GetObject(Dict1.GetAt("Xggj_Scales"), OpenMode.ForRead);
   
6.             TypedValue resBuf = salesXRec.Data.AsArray()[0];
   
7.             acDoc.Editor.WriteMessage("当前词典对象的值为：" + Convert.ToString(resBuf.Value));
   
8.             trans1.Commit();

复制代码

运行命令行显示：“当前词典对象的值为：1000“