C#lisp函数读取粘贴板，提示错误，如何解决

brainstorm · 发表于 2019-10-22 13:16:00

想写一个供lisp读取粘贴板的函数，提示错误ads请求，请帮忙看看原因
[LispFunction("MM_clipboard")]
      public string lsp_clipboard(ResultBuffer rb)
      {
         string rtnstring = "";
         try
         {
            if (rb != null)
            {
                  TypedValue[] TB = rb.AsArray();
                  if (TB[0].TypeCode == (int)LispDataType.Text)
                  {
                     rtnstring = TB[0].Value as string;
                     Clipboard.SetText(rtnstring);
                  }
            }
            else
                  rtnstring = Clipboard.GetText();
         }
         catch (Autodesk..Runtime.Exception ex)
         { return null; }
         return rtnstring;
      }

satan421 · 发表于 2019-10-22 14:35:00

[LispFunction("readcb")]
      public static object readcb(ResultBuffer rb)
      {
         Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
         string str = Clipboard.GetText();
         TypedValue ty = new TypedValue();
         if (str != null)
         {
            ty = new TypedValue((int)LispDataType.Text, str);
         }
         else
         {
            ty = new TypedValue((int)LispDataType.Nil);
         }
         return ty;
      }

satan421 · 发表于 2019-10-23 11:09:00

速度的话，C#比lisp要快的多，分别用两种语言写过相同功能的函数，从时间上看应该只用了1/10的时间(个人估算，不同情况下应该不同)；不过涉及到lispfunction的时候，很容易出问题，数据类型、精度等等都需要注意，多数时候只能自己一点点调试

雪山飞狐_lzh · 发表于 2019-10-22 23:42:00

@lisp()
def clipboard(doc, args):
from System.Windows.Forms import Clipboard
count = len(args)
if count == 0:
return Clipboard.GetText()
elif count == 1:
Clipboard.SetText(args[0])