//LSP变量的写入[System.Security.SuppressUnmanagedCodeSecurity][DllImport("accore.dll", EntryPoint = "acedPutSym",CharSet = CharSet.Unicode, CallingConvention = CallingConvention.Cdecl)]extern static private int acedPutSym(string args, IntPtr result);//32位的CAD的动态链接库和64位的有分别，下面是32位的方法[System.Security.SuppressUnmanagedCodeSecurity][DllImport("accore.dll", EntryPoint = "_acedPutSym",CharSet = CharSet.Unicode, CallingConvention = CallingConvention.Cdecl)]extern static private int acedPutSym32(string args, IntPtr result);/// <summary>/// Set a LISP variable value./// </summary>/// <param name="name">The variable name.</param>/// <param name="rb">The variable value</param>public static void SetLispSym(string name, ResultBuffer rb){if (Environment.Is64BitOperatingSystem)//判断系统是32位还是64位{acedPutSym(name, rb.UnmanagedObject);}else{acedPutSym32(name, rb.UnmanagedObject);}}

        //LSP变量的读取[System.Security.SuppressUnmanagedCodeSecurity][DllImport("accore.dll", EntryPoint = "acedGetSym",CharSet = CharSet.Unicode, CallingConvention = CallingConvention.Cdecl)]extern static private int acedGetSym(string args, out IntPtr result);[System.Security.SuppressUnmanagedCodeSecurity][DllImport("accore.dll", EntryPoint = "_acedGetSym",CharSet = CharSet.Unicode, CallingConvention = CallingConvention.Cdecl)]extern static private int acedGetSym32(string args, out IntPtr result);/// <summary>/// Get a LISP variable value./// </summary>/// <param name="name">The variable name.</param>/// <returns>The variable value or null if failed.</returns>public static ResultBuffer GetLispSym(string name){IntPtr ip = IntPtr.Zero;if (Environment.Is64BitOperatingSystem){int status = acedGetSym(name, out ip);if (status == (int)PromptStatus.OK && ip != IntPtr.Zero){return ResultBuffer.Create(ip, true);}}else{int status = acedGetSym32(name, out ip);if (status == (int)PromptStatus.OK && ip != IntPtr.Zero){return ResultBuffer.Create(ip, true);}}return null;}/// <summary>/// LSP变量赋值/// </summary>/// <param name="volLevel"></param>private static void SetLSPVar(string varName, string volLevel){Autodesk.AutoCAD.DatabaseServices.ResultBuffer rb = new Autodesk.AutoCAD.DatabaseServices.ResultBuffer();rb.Add(new Autodesk.AutoCAD.DatabaseServices.TypedValue(5005, volLevel));CADHelperClass.SetLispSym(varName, rb);} //读取LSP变量 private static string ReadLSPVar(string varName){string name = "";ResultBuffer rb = GetLispSym(varName);foreach (TypedValue val in (System.Collections.IEnumerable)rb){name = val.Value.ToString();}return name;}