cad.net 重置cad之后创建文档出错,拦截cad致命错误

说明

如果重置过一次Acad08,然后直接创建文档,那么你会得到一个致命错误.

然后你会重启cad,再创建文件,这个时候就不会产生致命错误.

这个不起眼的bug似乎没有人去理它..

直到我制作了文档栏,在文档栏上面创建文档,然后弹出了一个致命错误...

为了修复这个致命错误,我尝试了以下几个步骤:

方案一:自写模板

var lastTemplate = CadSystem.Getvar("LastTemplate");//最后使用的模板
if (!File.Exists(lastTemplate))
{
    var templatePath = CadSystem.Getvar("TemplatePath");//模板路径
    lastTemplate = templatePath + "\\acad.dwt";//设置默认选中
}

var sa = new Autodesk.AutoCAD.Windows.OpenFileDialog("选择模板", lastTemplate, "dwt", "",
    OpenFileDialogFlags.AllowAnyExtension | OpenFileDialogFlags.ForceDefaultFolder);
if (sa.ShowDialog() == System.Windows.Forms.DialogResult.OK)
{
    //System.Runtime.InteropServices.COMException:“内部应用程序出错。”
    Acap.DocumentManager.Add(sa.Filename);
}

方案二:发送命令

然后我分析了一下,用 Acap.DocumentManager.Add() 创建文档是愚蠢的(后来证明并不...)

正常也应该直接调用cad自带的方式,毕竟官方的方法可以避免错误...

于是乎,我改用了

Acap.DocumentManager.MdiActiveDocument.SendStringToExecute("_new\n", false, true, true);
//第二个参数true时,命令必须有CommandFlags.Session,否则容易致命错误

方案三:Win32API发送消息

但是遇到一个尴尬的事情,没有文档的时候不存在 MdiActiveDocument 此时发送新建命令是错误的...

然后e大协助了我,利用了win32API的方式来处理:

//下面两个值都行的
WinApi.SendMessage(Acap.MainWindow.Handle, (int)MsgType.WM_COMMAND, (IntPtr)18, IntPtr.Zero);//qnew
WinApi.SendMessage(Acap.MainWindow.Handle, (int)MsgType.WM_COMMAND, (IntPtr)57600, IntPtr.Zero);//new

子类化拦截

当我实现了方案三的时候,由于实现过<子类化窗口>来拦截cad的消息,突然间拦截了一个错误: Autodesk.AutoCAD.Runtime.Exception:“eFilerError”

而整个步骤就是: 重置cad--创建cad文档(ctrl+n)--截获了这个错误,非常的干脆利落得到.

封装

子类化cad窗体--拦截cad创建文档命令,如果不回调,就相当ban掉了命令,同时等价于拦截了致命错误,贼好玩:

using System;
using System.Windows.Forms;

namespace JoinBoxCurrency.Windows
{
    public class NativeCallProc : NativeWindow, IDisposable
    {
        Func<Message, bool> _WndProcAction;

        /// <summary>
        /// 窗口控件子类化,声明一定要写到类成员上,否则导致GC不确定的释放,从而触发析构
        /// </summary>
        /// <param name="intPtr">窗体句柄</param>
        public NativeCallProc(IntPtr intPtr)
        {
            this.AssignHandle(intPtr);
        }

        /// <summary>
        /// 消息循环拦截的委托
        /// </summary>
        /// <param name="WndProc">消息,true不拦截</param>
        public void WndProc(Func<Message, bool> WndProc)
        {
            _WndProcAction = WndProc;
        }

        /// <summary>
        /// 消息循环
        /// </summary>
        /// <param name="msg"></param>
        protected override void WndProc(ref Message msg)
        {
            if (_WndProcAction == null)
            {
                return;
            }
            if (_WndProcAction.Invoke(msg))
            {
                base.WndProc(ref msg);//回调函数
            }
        }

        #region Dispose
        public bool Disposed { private set; get; } = false;

        /// <summary>
        /// 显式调用Dispose方法,继承IDisposable
        /// </summary>
        public void Dispose()
        {
            //由手动释放
            Dispose(true);
            //通知垃圾回收机制不再调用终结器(析构器)_跑了这里就不会跑析构函数了
            GC.SuppressFinalize(this);
        }

        /// <summary>
        /// 析构函数,以备忘记了显式调用Dispose方法
        /// </summary>
        ~NativeCallProc()
        {
            //由系统释放
            Dispose(false);
        }

        /// <summary>
        /// 释放
        /// </summary>
        /// <param name="ing"></param>
        protected virtual void Dispose(bool ing)
        {
            if (Disposed)
            {
                //不重复释放
                return;
            }
            //让类型知道自己已经被释放
            Disposed = true;

            //释放占用窗体的句柄
            ReleaseHandle();
        }
        #endregion
    }
}

调用

using Acap = Autodesk.AutoCAD.ApplicationServices.Application;
using JoinBoxCurrency.Windows;
public class Anchor{  
//子类化 声明一定要放这里哦,不然GC会释放掉哦!
NativeCallProc _AcadCallWProc;
    
public Anchor()
{
    //Acad主窗口的句柄   
    _AcadCallWProc = new NativeCallProc(Acap.MainWindow.Handle);

    //57600_new || 18_qnew 对应cad命令
    IntPtr _new = (IntPtr)57600;
    IntPtr _qnew = (IntPtr)18;
    IntPtr _chongZhi = (IntPtr)0x0001e100;//重置之后ctrl+n取得的

    _AcadCallWProc.WndProc(m =>
    {
        try
        {
            var msg = (WM)m.Msg;
            if (msg == WM.WM_COMMAND)
            {
                //拦截原生的发送方式,因其(发送消息)导致致命错误,调用我自己写的新建文档函数
                //WinApi.SendMessage(Acap.MainWindow.Handle, (int)MsgType.WM_COMMAND, (IntPtr)18, IntPtr.Zero);//qnew
                //WinApi.SendMessage(Acap.MainWindow.Handle, (int)MsgType.WM_COMMAND, (IntPtr)57600, IntPtr.Zero);//new
                if (m.WParam == _new || m.WParam == _qnew || m.WParam == _chongZhi)
                {                                     
                    this._DocWindow.Qnew();
                    // Qnew见
                    // https://gitee.com/inspirefunction/CadLabelBar/blob/master/src/LabelBarStandard/View/DocWindow.xaml.cs
                    // 之后是阻止cad接收win32的ctrl+n消息,需要键盘钩子hook
                    return false;//不回调,禁止了命令
                }
            }
            AutoDocs.SyncForm?.Loaded(); //为什么有这句?见 https://www.cnblogs.com/JJBox/p/14179921.html
        }
        catch //cad崩溃的时候会触发
        {
           Debugger.Break();
        }
        return true;//可回调的都进入这里
    });
}}

注册表修补

但是截获了又该如何处理呢?

从"重置"二字中得知,cad将当前配置放在注册表中,

而重置之后不关闭cad直接去获取注册表,是一份残缺的注册表.

而重置之后重启cad,cad会自动补充完成这份注册表,是一份完整的注册表.

对比两份注册表就可以得知需要添加一些什么注册表到内部..

如果你有兴趣一个个尝试删除,你会得到某个注册表才是必须的,我懒得实验了,直接修复了全部...

public static class AcadRegistry
{
    /// <summary>
    /// Acad08重置之后,新建文档会致命错误.
    /// 重置cad会清理注册表,这个时候新建图纸就会致命错误(即使是自带的ctrl+n操作)
    /// 所以这个时候导出-用户配置注册表-是缺失的.
    /// 重启cad之后,会自动补充这部分注册表,这个时候是完整的(另存为图纸也可以实现,就是完全关闭掉所有文档则没法另存).
    /// 两份注册表就可以用来对比.
    /// </summary>
    public static void CreateDocumentsComplementation()
    {
        bool writable = true;
        //通过注册表获取上次另存为的路径
        var cprofile = CadSystem.Getvar("cprofile"); //当前用户配置的名称

        #if AC2006 || AC2007 || AC2008 || AC2009 || AC20081 || AC2011 || AC2012
            string key = HostApplicationServices.Current.RegistryProductRootKey; //这里浩辰读出来是""
        #elif !HC2020
            string key = HostApplicationServices.Current.UserRegistryProductRootKey;
        #endif
            var currentUser = Registry.CurrentUser.OpenSubKey(key, writable);

        //注册表_当前配置
        var regedit_Cprofile = currentUser.CreateSubKey($"Profiles\\{cprofile}");

        //注册表_
        var regedit_Dialogs = regedit_Cprofile.CreateSubKey("Dialogs");
        {
            var acDim_DimstyleFormat = regedit_Dialogs.CreateSubKey("AcDim:DimstyleFormat");
            {
                ChangReg(acDim_DimstyleFormat, "ActiveTab", 0, RegistryValueKind.DWord);
            }


            var allAnavDialogs = regedit_Dialogs.CreateSubKey("AllAnavDialogs");
            {
                ChangReg(allAnavDialogs, "PlacesOrder0", "History");
                ChangReg(allAnavDialogs, "PlacesOrder0Display", "历史记录");
                ChangReg(allAnavDialogs, "PlacesOrder0Ext", string.Empty);

                ChangReg(allAnavDialogs, "PlacesOrder1", "Personal");
                ChangReg(allAnavDialogs, "PlacesOrder1Display", "文档");
                ChangReg(allAnavDialogs, "PlacesOrder1Ext", string.Empty);

                ChangReg(allAnavDialogs, "PlacesOrder2", "Favorites");
                ChangReg(allAnavDialogs, "PlacesOrder2Display", "收藏夹");
                ChangReg(allAnavDialogs, "PlacesOrder2Ext", string.Empty);

                ChangReg(allAnavDialogs, "PlacesOrder3", "FTPSites");
                ChangReg(allAnavDialogs, "PlacesOrder3Display", "FTP");
                ChangReg(allAnavDialogs, "PlacesOrder3Ext", string.Empty);

                ChangReg(allAnavDialogs, "PlacesOrder4", "Desktop");
                ChangReg(allAnavDialogs, "PlacesOrder4Display", "桌面");
                ChangReg(allAnavDialogs, "PlacesOrder4Ext", string.Empty);

                ChangReg(allAnavDialogs, "PlacesOrder5", "ACPROJECT");
                ChangReg(allAnavDialogs, "PlacesOrder5Display", "Buzzsaw");
                ChangReg(allAnavDialogs, "PlacesOrder5Ext", string.Empty);

                ChangReg(allAnavDialogs, "PlacesOrder6", string.Empty);
            }

            string[] cus = { "CustomizeDialog", "DrawingSettingsDialog", "OptionsDialog" };
            foreach (var item in cus)
            {
                var cu = regedit_Dialogs.CreateSubKey(item + "\\TabExtensions");
                ChangReg(cu, "acmgd.dll", "acmgd.dll");
            }

            var xzyb = regedit_Dialogs.CreateSubKey("选择样板");
            {
                var templatePath = CadSystem.Getvar("TemplatePath");//模板路径

                ChangReg(xzyb, "InitialFilterIndex", 0x00000000, RegistryValueKind.DWord);
                ChangReg(xzyb, "ViewMode", 0x00000004, RegistryValueKind.DWord);

                ChangReg(xzyb, "InitialDirectory", templatePath + "\\", RegistryValueKind.String);

                ChangReg(xzyb, "PreviewVisible", 0x00000001, RegistryValueKind.DWord);
                ChangReg(xzyb, "X", 0x00000226, RegistryValueKind.DWord);
                ChangReg(xzyb, "Y", 0x00000158, RegistryValueKind.DWord);

                ChangReg(xzyb, "Width", 0x00000283, RegistryValueKind.DWord);
                ChangReg(xzyb, "Height", 0x000001a1, RegistryValueKind.DWord);
            }
        }


        //注册表_Dialogs_Window
        var regedit_Drawing_Window = regedit_Cprofile.CreateSubKey("Drawing Window");
        {
            ChangReg(regedit_Drawing_Window, "SDIMode", 0, RegistryValueKind.DWord);
        }

        //注册表_Editor_Configuration
        var regedit_Editor_Configuration = regedit_Cprofile.CreateSubKey("Editor Configuration");
        {
            //"CustomDictionary" = "C:\\Users\\LQH\\AppData\\Roaming\\Autodesk\\AutoCAD 2008\\R17.1\\chs\\support\\sample.cus"
            //这里没有设置好
            ChangReg(regedit_Editor_Configuration, "CustomDictionary", "", RegistryValueKind.String);
            ChangReg(regedit_Editor_Configuration, "MainDictionary", "enu", RegistryValueKind.String);
            ChangReg(regedit_Editor_Configuration, "MTextEditor", "内部", RegistryValueKind.String);

            var temp = Path.GetTempPath();
            ChangReg(regedit_Editor_Configuration, "SaveFilePath", temp, RegistryValueKind.String);
            ChangReg(regedit_Editor_Configuration, "XrefLoadPath", temp, RegistryValueKind.String);
        }

        //注册表_General
        var regedit_General = regedit_Cprofile.CreateSubKey("General");
        {
            ChangReg(regedit_General, "ACET-ACETMAIN-MENULOADED", "1", RegistryValueKind.String);
            ChangReg(regedit_General, "Anyport", 0, RegistryValueKind.DWord);
            ChangReg(regedit_General, "Attdia", 0, RegistryValueKind.DWord);
            ChangReg(regedit_General, "Attreq", 1, RegistryValueKind.DWord);
            ChangReg(regedit_General, "Blipmode", 0, RegistryValueKind.DWord);
            ChangReg(regedit_General, "Coords", 1, RegistryValueKind.DWord);

            //try
            //{
            //     ChangReg(regedit_General, "Delobj", 0xffffffff, RegistryValueKind.DWord);//这句会报错,不设置也没事
            //}
            //catch (Exception e)
            //{ 
            //    throw e;
            //}

            ChangReg(regedit_General, "Dragmode", 2, RegistryValueKind.DWord);
            ChangReg(regedit_General, "HideSystemPrinters", 0, RegistryValueKind.DWord);

            ChangReg(regedit_General, "LayerPMode", "1", RegistryValueKind.String);
            ChangReg(regedit_General, "MRUConfig", "Adobe PDF", RegistryValueKind.String);

            ChangReg(regedit_General, "OLEQUALITY", 3, RegistryValueKind.DWord);
            ChangReg(regedit_General, "Osmode", 0x00001025, RegistryValueKind.DWord);
            ChangReg(regedit_General, "PAPERUPDATE", 0, RegistryValueKind.DWord);
            ChangReg(regedit_General, "Pickstyle", 1, RegistryValueKind.DWord);
            ChangReg(regedit_General, "PLOTLEGACY", 0, RegistryValueKind.DWord);
            ChangReg(regedit_General, "PLSPOOLALERT", 0, RegistryValueKind.DWord);
            ChangReg(regedit_General, "PSTYLEPOLICY", 1, RegistryValueKind.DWord);
            ChangReg(regedit_General, "RASTERTHRESHOLD", 0x14, RegistryValueKind.DWord);
            ChangReg(regedit_General, "RASTERPERCENT", 0x14, RegistryValueKind.DWord);
            ChangReg(regedit_General, "UseMRUConfig", 0, RegistryValueKind.DWord);
            ChangReg(regedit_General, "Validation Policy", 0x3, RegistryValueKind.DWord);
            ChangReg(regedit_General, "Validation Strategy", 0x1, RegistryValueKind.DWord);
        }
        //注册表_
        var regedit_MLeader = regedit_Cprofile.CreateSubKey("MLeader");
        {
            ChangReg(regedit_MLeader, "", "", RegistryValueKind.String);//这种是默认吗???
            ChangReg(regedit_MLeader, "CreatedMode", 1, RegistryValueKind.DWord);
        }
        //注册表_
        var regedit_Previous_plot_settings = regedit_Cprofile.CreateSubKey("Previous plot settings");
        {
            regedit_Previous_plot_settings.CreateSubKey("Layout");
            regedit_Previous_plot_settings.CreateSubKey("Model");
        }
        //注册表_
        var regedit_StatusBar = regedit_Cprofile.CreateSubKey("StatusBar");
        {
            var regedit_Application = regedit_StatusBar.CreateSubKey("Application");
            ChangReg(regedit_Application, "AnnotationScales", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "AnnotationVisibility", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "AutoScale", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "CleanScreenPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "CursorCoordinatesPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "DynamicUCSPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "DynInputPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "FloatPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "GridPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "LayoutIconPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "LayoutMoreIconPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "LineweightPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "ModelIconPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "OrthoPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "OSnapPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "OTrackPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "Paper/ModelPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "PolarPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "SnapPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "SpacerPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "TabletPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "ViewportLockState", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "ViewportScales", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "VpMaxPrevPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "VpMaxPane", 1, RegistryValueKind.DWord);
            ChangReg(regedit_Application, "VpMaxNextPane", 1, RegistryValueKind.DWord);
        }
    }

    /// <summary>
    /// 如果注册表没有这个值才加入,否则就不加入
    /// </summary>
    /// <param name="regedit"></param>
    /// <param name="name"></param>
    /// <param name="value"></param>
    /// <param name="kind"></param>
    private static void ChangReg(RegistryKey regedit, string name, object value, 
                                 RegistryValueKind kind = RegistryValueKind.String)
    {
        bool flag = true;
        foreach (var item in regedit.GetValueNames())
        {
            if (item == name)
            {
                flag = false;
                break;
            }
        }
        if (flag)
        {
            regedit.SetValue(name, value, kind);
        }
    } 
}

这样创建cad文档就没有了致命错误了...开心~

若其他cad也存在这样的情况,那么如上设置就可以了...

(完)