码迷,mamicode.com
首页 > Web开发 > 详细

cad.net的undo返回操作

时间:2019-01-03 16:39:16      阅读:451      评论:0      收藏:0      [点我收藏+]

标签:tps   函数   动作   tle   ber   存在   lse   dom   lan   

这是提供给许多从lisp转移到c#的开发人员的一个函数,这个函数利用后绑代码实现undo返回操作.

本代码由edata提供: edata博客

        /// <summary>
        /// 命令动作编组
        /// </summary>
        /// <param name="flag">true为开始编组,false为结束编组</param>
        public static void Undo(bool flag)
        {
            //获取CAD程序 
            object cadApplication = Application.AcadApplication; //  Autodesk.AutoCAD.ApplicationServices.         
            Type cadType = cadApplication.GetType();           
            object cadActiveDocument = cadType.InvokeMember("ActiveDocument", BindingFlags.GetProperty, null, cadApplication, null);
            Type dcoType = cadActiveDocument.GetType();
             
            //增加动作编组
            string undoCtl = Getvar("UNDOCTL");
            if (flag)
            {
                if (undoCtl == "8") //存在活动编组
                {
                    dcoType.InvokeMember("EndUndoMark", BindingFlags.InvokeMethod, null, cadActiveDocument, null);
                }
                dcoType.InvokeMember("StartUndoMark", BindingFlags.InvokeMethod, null, cadActiveDocument, null);
            }
            else
            {
                dcoType.InvokeMember("EndUndoMark", BindingFlags.InvokeMethod, null, cadActiveDocument, null);
            }
        }

 

cad.net的undo返回操作

标签:tps   函数   动作   tle   ber   存在   lse   dom   lan   

原文地址:https://www.cnblogs.com/JJBox/p/10214582.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!