如何用C#调用lisp程序命令啊

iamygp · 发表于 2013-11-1 16:34:00

我想用C#驱动lisp代码或是lisp做成的fas程序，这样写为何总是不成功啊，不知如何写呢：
[CommandMethod("MYPOLY")]
      public void MyPoly()
      {
         //设置标记并发送PLINE
         Document doc = Application.DocumentManager.MdiActiveDocument;
         doc.SendStringToExecute("_appload  @"D:\s.lsp") ",false,false,false);
      }

sieben · 发表于 2013-11-1 19:10:00

///
/// 调用Lisp函数
/// Version:2012.03.01 Sieben
/// 注1:Lisp函数需要使用vl-acad-defun 进行注册才能从外部调用
/// Exm:
/// Lisp 的函数定义和注册
/// (defun testfunc (a) (princ "\nTESTFUNC called:" ) (prin1 a) )
/// (vl-acad-defun 'testfunc)
/// 调用Lisp函数举例
/// ResultBuffer args = new ResultBuffer();
///       int stat = 0;
/// args.Add(new TypedValue((int)LispDataType.Text, "testfunc"));
/// args.Add(new TypedValue((int)LispDataType.Text, "abc"));
///InvokeLispFun(args, ref stat);
///
/// 输入链表,表头应该是Lisp函数名,后面是Lisp函数实参
/// Lisp函数返回状态,成功返回RTNORM(5100),失败返回NULL(0)
/// Lisp函数的返回值
public static ResultBuffer InvokeLispFun(ResultBuffer resBuf, ref int status)
{
   IntPtr rb = IntPtr.Zero;
   status = acedInvoke(resBuf.UnmanagedObject, out rb);
   if (status == (int)PromptStatus.OK && rb != IntPtr.Zero)
   {
      return (ResultBuffer)DisposableWrapper.Create(typeof(ResultBuffer), rb, true);
   }
   else
   {
      return null;
   }
}

sieben · 发表于 2013-11-1 19:11:00

[System.Security.SuppressUnmanagedCodeSecurity]
[DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
extern static public int acedInvoke(IntPtr args, out IntPtr result);