练习 Lisp定义系统变量的保存及恢复

csharp

首先定义一个字典类用来保存原始系统变量

1.     public class MyDicts
   
2.     {
   
3.         private static Dictionary<string, Object> myDictionary = new Dictionary<string, object>();
   
4.         public static Dictionary<String, Object> MyDictionary(string str, Object obj)
   
5.         {
   
6.             myDictionary.Add(str, obj);
   
7.             return myDictionary;
   
8.         }
   
9.         public static Object SysVarPush(string str, Object obj)
   
10.         {
    
11.             if (myDictionary.ContainsKey(str))//检查是否已经保存
    
12.             {
    
13.                 Application.SetSystemVariable(str, obj);//直接设置新值
    
14.                 return str;
    
15.             }
    
16.             else if (Application.GetSystemVariable(str) != null)//变量名称是否正确
    
17.             {
    
18.                 myDictionary.Add(str, Application.GetSystemVariable(str));//保存旧变量
    
19.                 try
    
20.                 {
    
21.                     Application.SetSystemVariable(str, obj);//设置新变量
    
22.                     return obj;
    
23.                 }
    
24.                 catch (Exception)
    
25.                 {
    
26.                     return null;
    
27.                 }
    
28.             }
    
29.             else
    
30.             {
    
31.                 return null;
    
32.             }
    
33.         }
    
34.         public static void SysVarPop()//恢复所有初始变量
    
35.         {
    
36.             if (myDictionary.Count > 0)//如果有保存
    
37.             {
    
38.                 foreach (var o in myDictionary)
    
39.                 {
    
40.                     Application.SetSystemVariable(o.Key.ToString(), o.Value);//恢复保存值
    
41.                 }
    
42.                 myDictionary.Clear();//清空字典
    
43.             }
    
44.         }
    
45.     }
    

    public class MyDicts<br />     {<br />         private static Dictionary<string, Object> myDictionary = new Dictionary<string, object>();<br />         public static Dictionary<String, Object> MyDictionary(string str, Object obj)<br />         {<br />             myDictionary.Add(str, obj);<br />             return myDictionary;<br />         }<br />         public static Object SysVarPush(string str, Object obj)<br />         {<br />             if (myDictionary.ContainsKey(str))//检查是否已经保存<br />             {<br />                 Application.SetSystemVariable(str, obj);//直接设置新值<br />                 return str;<br />             }<br />             else if (Application.GetSystemVariable(str) != null)//变量名称是否正确<br />             {<br />                 myDictionary.Add(str, Application.GetSystemVariable(str));//保存旧变量<br />                 try<br />                 {<br />                     Application.SetSystemVariable(str, obj);//设置新变量<br />                     return obj;<br />                 }<br />                 catch (Exception)<br />                 {<br />                     return null;<br />                 }<br />             }<br />             else<br />             {<br />                 return null;<br />             }<br />         }<br />         public static void SysVarPop()//恢复所有初始变量<br />         {<br />             if (myDictionary.Count > 0)//如果有保存<br />             {<br />                 foreach (var o in myDictionary)<br />                 {<br />                     Application.SetSystemVariable(o.Key.ToString(), o.Value);//恢复保存值<br />                 }<br />                 myDictionary.Clear();//清空字典<br />             }<br />         }<br />     }<br />

再定义两个Lisp函数

1.         [LispFunction("SysVar_push")]
   
2.         public static Object MySysVarpush(ResultBuffer rb)
   
3.         {
   
4.             if (rb != null)
   
5.             {
   
6.                 TypedValue[] values = rb.AsArray();
   
7.                 List <Object> nList = new List<Object>();
   
8.                
   
9.                 //List<Object> tmpList = new List<object>();
   
10.                 foreach (TypedValue  typedValue in values)
    
11.                 {
    
12.                     if (typedValue.TypeCode == (int)LispDataType.ListBegin |
    
13.                         typedValue.TypeCode == (int)LispDataType.ListEnd)
    
14.                     {
    
15.                         continue;
    
16.                     }
    
17.                     else
    
18.                     {
    
19.                         var tmp = typedValue.Value;
    
20.                         nList.Add(tmp);
    
21.                     }
    
22.                 }
    
23.                 int j = 0;
    
24.                 for (int i = 0; i < nList .Count / 2; i++)
    
25.                 {
    
26.                     String str = (String)nList[j];
    
27.                     var obj = nList[j + 1];
    
28.                     MyDicts.SysVarPush(str.ToUpper( ),obj);
    
29.                     j = j + 2;
    
30.                 }
    
31.                 Boolean flag = true;
    
32.                 return flag ;
    
33.             }
    
34.             else
    
35.             {
    
36.                 return null;
    
37.             }
    
38.         }
    
39.         [LispFunction("SysVar_Pop")]
    
40.         public static void MySysVarPop(ResultBuffer rb)
    
41.         {
    
42.             MyDicts.SysVarPop();
    
43.         }
    

        [LispFunction("SysVar_push")]<br />         public static Object MySysVarpush(ResultBuffer rb)<br />         {<br />             if (rb != null)<br />             {<br />                 TypedValue[] values = rb.AsArray();<br />                 List <Object> nList = new List<Object>();<br />                 <br />                 //List<Object> tmpList = new List<object>();<br />                 foreach (TypedValue  typedValue in values)<br />                 {<br />                     if (typedValue.TypeCode == (int)LispDataType.ListBegin |<br />                         typedValue.TypeCode == (int)LispDataType.ListEnd)<br />                     {<br />                         continue;<br />                     }<br />                     else<br />                     {<br />                         var tmp = typedValue.Value; <br />                         nList.Add(tmp);<br />                     }<br />                 }<br />                 int j = 0;<br />                 for (int i = 0; i < nList .Count / 2; i++)<br />                 {<br />                     String str = (String)nList[j];<br />                     var obj = nList[j + 1];<br />                     MyDicts.SysVarPush(str.ToUpper( ),obj);<br />                     j = j + 2;<br />                 }<br />                 Boolean flag = true;<br />                 return flag ;<br />             }<br />             else<br />             {<br />                 return null;<br />             }<br />         }<br />         [LispFunction("SysVar_Pop")]<br />         public static void MySysVarPop(ResultBuffer rb)<br />         {<br />             MyDicts.SysVarPop();<br />         }<br />

sysvar_push 作用是保存旧值并设置新值（如果前面已经保存了，仅设置新值并不再保存），sysvar_pop 是恢复所有系统已经保存初始值

csharp

用 Stack<> 可以重复保存，不过恢复到程序运行之前状态，必须要成对使用，直至pop把栈内元素都弹出。如果程序中断了要增加栈处理才可以恢复最初始状态，
Dictionary<>仅保存初始变量，中间的不能保存，两者各有优缺点