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

最新推荐文章于 2023-05-04 09:30:56 发布

weixin_30701521

最新推荐文章于 2023-05-04 09:30:56 发布

阅读量396

点赞数

CC 4.0 BY-SA版权

文章标签： c#

原文链接：http://www.cnblogs.com/swtool/p/SWTOOL_00017.html

本文介绍了一个清除AutoCAD中撤销堆栈的程序方法。通过调整系统变量并使用API调用，可以有效地清空撤销历史记录，适用于AutoCAD环境下需要快速清理操作痕迹的工作流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#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);

    }