autocad.net回退undo与命令行回应cmdecho完美结合

autocad.net回退undo与命令行回应cmdecho完美结合
#if AC2013

    [DllImport("accore.dll", CallingConvention = CallingConvention.Cdecl, EntryPoint = "acedCmd")]

#else

    [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl, EntryPoint = "acedCmd")]

#endif

    private static extern int acedCmd(System.IntPtr vlist);

    [CommandMethod("ClearUndoStack")]

    public void ClearUndoStack()

    {

      // remember the cmdecho

      short cmdecho = (short)Application.GetSystemVariable("CMDECHO");

      // turn it off

      Application.SetSystemVariable("CMDECHO", 0);

 

      short undoCtl = (short)Application.GetSystemVariable("UNDOCTL");

      bool isOn = (undoCtl & 1) == 1;

      if (!isOn)

        return;

 

      bool isOneCmd = (undoCtl & 2) == 2;

      bool isAuto = (undoCtl & 4) == 4;

 

      ResultBuffer rb = new ResultBuffer();

      // RTSTR = 5005

      rb.Add(new TypedValue(5005, "_.UNDO"));

      rb.Add(new TypedValue(5005, "_Control"));

      rb.Add(new TypedValue(5005, "_None"));

      rb.Add(new TypedValue(5005, "_.UNDO"));

 

      if (isOneCmd)

        rb.Add(new TypedValue(5005, "_One"));

      else

      {

        rb.Add(new TypedValue(5005, "_All"));

        if (!isAuto)

        {

          rb.Add(new TypedValue(5005, "_.UNDO"));

          rb.Add(new TypedValue(5005, "_Auto"));

          rb.Add(new TypedValue(5005, "_Off"));

        }

      }

 

      // start the insert command

      acedCmd(rb.UnmanagedObject);

      // now restore cmdecho

      Application.SetSystemVariable("CMDECHO", cmdecho);

    }
autocad.net回退undo与命令行回应cmdecho完美结合

autocad.net回退undo与命令行回应cmdecho完美结合,布布扣,bubuko.com

autocad.net回退undo与命令行回应cmdecho完美结合

上一篇:inet驱动新增加{active,N} socket选项


下一篇:使用WebXone开发第一个网络应用程序