C#操作有名字典

lionguns

(vlax-ldata-get dict key）
(vlax-ldata-put dict key data )
哪位大师能帮下忙。用C#实现LSp这两个函数。
研究了好久没搞明白

ivde

ldata是Autodesk为 alisp 专门做的一个数据，可以认为是一个“自定义实体”(0 . "VL_OBJ")，不管ARX还是 C# 都不能方便存取，只有那几个 alisp 使用才方便，当然用 dxf 可以获取，不过处理 resultburf 也不是一件轻松的事情（ldata 词典数据是自由的）

和 alisp 交互可以考虑下面方法

1 自己写词典存取函数，使用标准的 xrecord ，这个中 C# 中能处理，自己写 Lispfunction

2 使用 Alisp 变量过渡，在 C# 中使用 invoek 运行 (setq ldata (vlax-ldata-get "mydict" "first")) 语句，然后用 GetLispSymbol 获取，设置时 invoke 运行 (vlax-ldata-put "mydict" "first" '(1 2 2)) ，不需要返回值

lionguns

ivde 发表于 2015-10-4 11:36
ldata是Autodesk为 alisp 专门做的一个数据，可以认为是一个“自定义实体”(0 . "VL_OBJ")，不管ARX还是 C# ...

谢谢，原来C#不能这样存呀，
我只是想在图里存一个double,
然后可以用程序读取
不会搞，唉哟伤心

ivde

lionguns 发表于 2015-10-4 11:51
谢谢，原来C#不能这样存呀，
我只是想在图里存一个double,
然后可以用程序读取

在 根词典建立子词典然后设置 Xrecord

lionguns

ivde 发表于 2015-10-4 12:22
在 根词典建立子词典然后设置 Xrecord

就是不会设置和读取Xrecord

ivde

2. 
   
3. 
   
4. /// <summary>
   
5.         /// 获取或创建根词典
   
6.         /// </summary>
   
7.         /// <param name="name"></param>
   
8.         /// <returns></returns>
   
9.         public static DBDictionary GetOrCreateDictionary(string name)
   
10.         {
    
11.             var db = HostApplicationServices.WorkingDatabase;
    
12.             using (Transaction tr = db.TransactionManager.StartTransaction())
    
13.             {
    
14.                 var dict = db.NamedObjectsDictionaryId.GetObject<DBDictionary>(OpenMode.ForWrite);
    
15.                 if (!dict.Contains(name))
    
16.                 {
    
17.                     var ndict = new DBDictionary();
    
18.                     dict.SetAt(name, ndict);
    
19.                     tr.AddNewlyCreatedDBObject(ndict, true);
    
20.                     tr.Commit();
    
21.                     return ndict;
    
22.                 }
    
23.                 return dict;
    
24.             }
    
25.         }
    
26.         /// <summary>
    
27.         /// 创建词典并设置 XRecord
    
28.         /// 2015.03.24
    
29.         /// </summary>
    
30.         /// <param name="name">子词典名</param>
    
31.         /// <param name="key">Xrecord 名</param>
    
32.         /// <param name="rb">数据</param>
    
33.         /// <returns></returns>
    
34.         public static void CreateDictionary(string name, string key, ResultBuffer rb)
    
35.         {
    
36.             var db = HostApplicationServices.WorkingDatabase;
    
37.             using (var tr = db.TransactionManager.StartTransaction())
    
38.             {
    
39.                 DBDictionary subDictionary;
    
40.                 var nod = db.NamedObjectsDictionaryId.GetObject<DBDictionary>(OpenMode.ForWrite);
    
41.                 try
    
42.                 {
    
43.                     subDictionary = nod.GetAt(name).GetObject<DBDictionary>(OpenMode.ForWrite);
    
44.                 }
    
45.                 catch (Exception)
    
46.                 {
    
47.                     subDictionary = new DBDictionary();
    
48.                     nod.SetAt(name, subDictionary);
    
49.                     tr.AddNewlyCreatedDBObject(subDictionary, true);
    
50.                     subDictionary = nod.GetAt(name).GetObject<DBDictionary>(OpenMode.ForWrite);
    
51.                 }
    
52.                 Xrecord xrec;
    
53.                 try
    
54.                 {
    
55.                     xrec = (Xrecord) tr.GetObject(subDictionary.GetAt(key), OpenMode.ForWrite);
    
56.                     xrec.Data = rb;
    
57.                     xrec.Dispose();
    
58.                 }
    
59.                 catch (Exception)
    
60.                 {
    
61.                     subDictionary.UpgradeOpen();
    
62.                     xrec = new Xrecord {Data = rb};
    
63.                     subDictionary.SetAt(key, xrec);
    
64.                     tr.AddNewlyCreatedDBObject(xrec, true);
    
65.                 }
    
66.                 tr.Commit();
    
67.             }
    
68.         }

<br /> <br /> /// <summary><br />         /// 获取或创建根词典<br />         /// </summary><br />         /// <param name="name"></param><br />         /// <returns></returns><br />         public static DBDictionary GetOrCreateDictionary(string name)<br />         {<br />             var db = HostApplicationServices.WorkingDatabase;<br />             using (Transaction tr = db.TransactionManager.StartTransaction())<br />             {<br />                 var dict = db.NamedObjectsDictionaryId.GetObject<DBDictionary>(OpenMode.ForWrite);<br />                 if (!dict.Contains(name))<br />                 {<br />                     var ndict = new DBDictionary();<br />                     dict.SetAt(name, ndict);<br />                     tr.AddNewlyCreatedDBObject(ndict, true);<br />                     tr.Commit();<br />                     return ndict;<br />                 }<br />                 return dict;<br />             }<br />         }<br />         /// <summary><br />         /// 创建词典并设置 XRecord<br />         /// 2015.03.24<br />         /// </summary><br />         /// <param name="name">子词典名</param><br />         /// <param name="key">Xrecord 名</param><br />         /// <param name="rb">数据</param><br />         /// <returns></returns><br />         public static void CreateDictionary(string name, string key, ResultBuffer rb)<br />         {<br />             var db = HostApplicationServices.WorkingDatabase;<br />             using (var tr = db.TransactionManager.StartTransaction())<br />             {<br />                 DBDictionary subDictionary;<br />                 var nod = db.NamedObjectsDictionaryId.GetObject<DBDictionary>(OpenMode.ForWrite);<br />                 try<br />                 {<br />                     subDictionary = nod.GetAt(name).GetObject<DBDictionary>(OpenMode.ForWrite);<br />                 }<br />                 catch (Exception)<br />                 {<br />                     subDictionary = new DBDictionary();<br />                     nod.SetAt(name, subDictionary);<br />                     tr.AddNewlyCreatedDBObject(subDictionary, true);<br />                     subDictionary = nod.GetAt(name).GetObject<DBDictionary>(OpenMode.ForWrite);<br />                 }<br />                 Xrecord xrec;<br />                 try<br />                 {<br />                     xrec = (Xrecord) tr.GetObject(subDictionary.GetAt(key), OpenMode.ForWrite);<br />                     xrec.Data = rb;<br />                     xrec.Dispose();<br />                 }<br />                 catch (Exception)<br />                 {<br />                     subDictionary.UpgradeOpen();<br />                     xrec = new Xrecord {Data = rb};<br />                     subDictionary.SetAt(key, xrec);<br />                     tr.AddNewlyCreatedDBObject(xrec, true);<br />                 }<br />                 tr.Commit();<br />             }<br />         }

lionguns

ivde 发表于 2015-10-6 08:11

GetObject<DBDictionary>
非泛型  方法。。。不能与类型实参一起使用
这是什么情况呢？[em0]
昨天研究了一下，我都是每次删除主键，然后新建主键和子键来达到目的。不是很理想。
想研究一下发的通用方法，完善我的程序，也刚好学习提高一下。
同时对你的热心表示极大的感谢。

ivde

lionguns 发表于 2015-10-7 07:53
GetObject
非泛型  方法。。。不能与类型实参一起使用
这是什么情况呢？

1. 
   
2. public static T GetObject<T>(this ObjectId id) where T : DBObject
   
3.         {
   
4.             return (T) id.GetObject(OpenMode.ForRead);
   
5.         }
   
6. 
   
7.         public static T GetObject<T>(this ObjectId id, OpenMode mode) where T : DBObject
   
8.         {
   
9.             return (T) id.GetObject(mode);
   
10.         }
    

复制代码

lionguns

ivde 发表于 2015-10-7 08:04

谢谢，这个泛型，我拿去研究一下，由于C#水平比较差，意思是知道了，但理解的层次不够深。
再次感谢。

carrot1983

估计楼主也是想用lisp和C#混合编程。
那还是学习一下，如何将C#的变量搞成指针什么的全局变量，再用lisp调用。
就是这个贴子
http://bbs.mjtd.com/thread-80615-1-1.html