C#批量替换指定缺失字体求大神帮忙

默写容颜

以下代码来自雪山飞狐提供
只能找到CAD缺失自带的字体库，无法找到Windows底下的fons字体，全部提示miss缺失，哪个大神能帮忙改进下



[CommandMethod("t11", CommandFlags.Session)]
        public static void Test11()
        {
            var doc = Application.DocumentManager.Open(@"D:\Downloads\fm.dwg");
            var db = doc.Database;
            var ed = doc.Editor;
            var hostapp = HostApplicationServices.Current;
            using (doc.LockDocument())
            {
                using (Transaction tr = db.TransactionManager.StartTransaction())
                {
                    var tstable = db.TextStyleTableId.GetObject(OpenMode.ForRead) as TextStyleTable;
                    foreach (ObjectId id in tstable)
                    {
                        var tstr = id.GetObject(OpenMode.ForRead) as TextStyleTableRecord;
                        ed.WriteMessage
                        (
                            "\n{0}:{1},{2}",
                            tstr.Name,
                            FindFontFile(db, tstr.FileName),
                            FindFontFile(db, tstr.BigFontFileName)
                        );
                    }
                }
            }
            ed.WriteMessage("\n");
        }

        public static string FindFontFile(Database db, string name)
        {
            var hostapp = HostApplicationServices.Current;
            if (name == "")
                return null;
            string fullname = "";
            try
            {
                fullname =
                    hostapp.FindFile
                    (
                        name,
                        db,
                        FindFileHint.FontFile
                    );
            }
            catch
            {
                fullname = name + " Missing";
            }
            return fullname;
        }

mkhsj928

2. <div class="blockcode"><blockquote>/// <summary>
   
3.         /// 文字样式校正
   
4.         /// </summary>
   
5.         [CommandMethod("TSTVF")]
   
6.         public static void MTextStyleVerify()
   
7.         {
   
8.             string sysFontsPath = Environment.GetFolderPath(Environment.SpecialFolder.Fonts);//windows系统字体目录
   
9.             DirectoryInfo sysDirInfo = new DirectoryInfo(sysFontsPath);//Windows系统字体文件夹
   
10. 
    
11.             Document CurrentDoc = Autodesk.AutoCAD.ApplicationServices.Core.Application.DocumentManager.MdiActiveDocument;
    
12.             Database CurrentDB = CurrentDoc.Database;
    
13.             Editor CurrentEd = CurrentDoc.Editor;
    
14. 
    
15.             using (Transaction tr = CurrentDoc.TransactionManager.StartTransaction())
    
16.             {
    
17.                 TextStyleTable tst = (TextStyleTable)tr.GetObject(CurrentDB.TextStyleTableId, OpenMode.ForRead, false);
    
18.                 int n = 1;
    
19.                 foreach (ObjectId tstid in tst)
    
20.                 {
    
21.                     using (TextStyleTableRecord tstr = (TextStyleTableRecord)tr.GetObject(tstid, OpenMode.ForWrite, false))
    
22.                     {
    
23.                         #region 校正windows系统字体
    
24.                         if (tstr.Font.TypeFace != string.Empty)
    
25.                         {
    
26.                             string FontFileFullName = string.Empty;
    
27. 
    
28.                             FileInfo[] fis = sysDirInfo.GetFiles(tstr.FileName);
    
29.                             if (fis.Length > 0)
    
30.                             {
    
31.                                 FontFileFullName = fis[0].FullName;
    
32.                             }
    
33.                             else
    
34.                             {
    
35.                                 FontFileFullName = FindFontFile(CurrentDB, tstr.FileName);
    
36.                             }
    
37. 
    
38.                             if (FontFileFullName != string.Empty)
    
39.                             {
    
40.                                 using (PrivateFontCollection fc = new PrivateFontCollection())
    
41.                                 {
    
42.                                     try
    
43.                                     {
    
44.                                         fc.AddFontFile(FontFileFullName);
    
45. 
    
46.                                         //更正文字样式的字体名
    
47.                                         if (fc.Families[0].Name != tstr.Font.TypeFace)
    
48.                                         {
    
49.                                             tstr.Font = new Autodesk.AutoCAD.GraphicsInterface.FontDescriptor(
    
50.                                                 fc.Families[0].Name, tstr.Font.Bold, tstr.Font.Italic,
    
51.                                                 tstr.Font.CharacterSet, tstr.Font.PitchAndFamily
    
52.                                                 );
    
53.                                         }
    
54.                                     }
    
55.                                     catch (System.Exception e)
    
56.                                     {
    
57.                                         CurrentEd.WriteMessage($"\n***错误***：{FontFileFullName}-{e.Message}");
    
58.                                     }
    
59.                                 }
    
60.                             }
    
61.                             else
    
62.                             {
    
63.                                 //字体缺失,则用宋体代替
    
64.                                 tstr.FileName = "SimSun.ttf";
    
65.                                 tstr.Font = new Autodesk.AutoCAD.GraphicsInterface.FontDescriptor("宋体", false, false, 134, 2);
    
66.                             }
    
67.                         }
    
68.                         #endregion
    
69.                         #region 校正shx字体
    
70.                         else
    
71.                         {
    
72.                             if (!tstr.IsShapeFile &&
    
73.                                 FindFontFile(CurrentDB, tstr.FileName) == string.Empty)
    
74.                             {
    
75.                                 tstr.FileName = "romans.shx";//用romans.shx代替
    
76.                             }
    
77. 
    
78.                             if (tstr.BigFontFileName != string.Empty &&
    
79.                                 FindFontFile(CurrentDB, tstr.BigFontFileName) == string.Empty)
    
80.                             {
    
81.                                 tstr.BigFontFileName = "gbcbig.shx";//用gbcbig.shx代替
    
82.                             }
    
83.                         }
    
84.                         #endregion
    
85.                     }
    
86.                 }
    
87. 
    
88.                 tr.Commit();
    
89.             }
    
90. 
    
91.             CurrentEd.Regen();
    
92.             CurrentEd.UpdateScreen();
    
93.         }
    
94. 
    
95.         private static string FindFontFile(Database db, string name)
    
96.         {
    
97.             var hostapp = HostApplicationServices.Current;
    
98. 
    
99.             if (name == "") return string.Empty;
    
100. 
     
101.             string fullname = string.Empty;
     
102.             try
     
103.             {
     
104.                 fullname = hostapp.FindFile(name, db, FindFileHint.FontFile);
     
105.             }
     
106.             catch { }
     
107. 
     
108.             return fullname;
     
109.         }

<div class="blockcode"><blockquote>/// <summary><br />         /// 文字样式校正<br />         /// </summary><br />         [CommandMethod("TSTVF")]<br />         public static void MTextStyleVerify()<br />         {<br />             string sysFontsPath = Environment.GetFolderPath(Environment.SpecialFolder.Fonts);//windows系统字体目录<br />             DirectoryInfo sysDirInfo = new DirectoryInfo(sysFontsPath);//Windows系统字体文件夹<br /> <br />             Document CurrentDoc = Autodesk.AutoCAD.ApplicationServices.Core.Application.DocumentManager.MdiActiveDocument;<br />             Database CurrentDB = CurrentDoc.Database;<br />             Editor CurrentEd = CurrentDoc.Editor;<br /> <br />             using (Transaction tr = CurrentDoc.TransactionManager.StartTransaction())<br />             {<br />                 TextStyleTable tst = (TextStyleTable)tr.GetObject(CurrentDB.TextStyleTableId, OpenMode.ForRead, false);<br />                 int n = 1;<br />                 foreach (ObjectId tstid in tst)<br />                 {<br />                     using (TextStyleTableRecord tstr = (TextStyleTableRecord)tr.GetObject(tstid, OpenMode.ForWrite, false))<br />                     {<br />                         #region 校正windows系统字体<br />                         if (tstr.Font.TypeFace != string.Empty)<br />                         {<br />                             string FontFileFullName = string.Empty;<br /> <br />                             FileInfo[] fis = sysDirInfo.GetFiles(tstr.FileName);<br />                             if (fis.Length > 0)<br />                             {<br />                                 FontFileFullName = fis[0].FullName;<br />                             }<br />                             else<br />                             {<br />                                 FontFileFullName = FindFontFile(CurrentDB, tstr.FileName);<br />                             }<br /> <br />                             if (FontFileFullName != string.Empty)<br />                             {<br />                                 using (PrivateFontCollection fc = new PrivateFontCollection())<br />                                 {<br />                                     try<br />                                     {<br />                                         fc.AddFontFile(FontFileFullName);<br /> <br />                                         //更正文字样式的字体名<br />                                         if (fc.Families[0].Name != tstr.Font.TypeFace)<br />                                         {<br />                                             tstr.Font = new Autodesk.AutoCAD.GraphicsInterface.FontDescriptor(<br />                                                 fc.Families[0].Name, tstr.Font.Bold, tstr.Font.Italic,<br />                                                 tstr.Font.CharacterSet, tstr.Font.PitchAndFamily<br />                                                 );<br />                                         }<br />                                     }<br />                                     catch (System.Exception e)<br />                                     {<br />                                         CurrentEd.WriteMessage($"\n***错误***：{FontFileFullName}-{e.Message}");<br />                                     }<br />                                 }<br />                             }<br />                             else<br />                             {<br />                                 //字体缺失,则用宋体代替<br />                                 tstr.FileName = "SimSun.ttf";<br />                                 tstr.Font = new Autodesk.AutoCAD.GraphicsInterface.FontDescriptor("宋体", false, false, 134, 2);<br />                             }<br />                         }<br />                         #endregion<br />                         #region 校正shx字体<br />                         else<br />                         {<br />                             if (!tstr.IsShapeFile &&<br />                                 FindFontFile(CurrentDB, tstr.FileName) == string.Empty)<br />                             {<br />                                 tstr.FileName = "romans.shx";//用romans.shx代替<br />                             }<br /> <br />                             if (tstr.BigFontFileName != string.Empty &&<br />                                 FindFontFile(CurrentDB, tstr.BigFontFileName) == string.Empty)<br />                             {<br />                                 tstr.BigFontFileName = "gbcbig.shx";//用gbcbig.shx代替<br />                             }<br />                         }<br />                         #endregion<br />                     }<br />                 }<br /> <br />                 tr.Commit();<br />             }<br /> <br />             CurrentEd.Regen();<br />             CurrentEd.UpdateScreen();<br />         }<br /> <br />         private static string FindFontFile(Database db, string name)<br />         {<br />             var hostapp = HostApplicationServices.Current;<br /> <br />             if (name == "") return string.Empty;<br /> <br />             string fullname = string.Empty;<br />             try<br />             {<br />                 fullname = hostapp.FindFile(name, db, FindFileHint.FontFile);<br />             }<br />             catch { }<br /> <br />             return fullname;<br />         }

czb203

同求大神给予解决，谢谢

松树石头哥

默写容颜

mkhsj928 发表于 2020-10-24 22:54

非常感谢，非常感谢，非常感谢

mycad

学习了，谢谢！

靜偌止水

mkhsj928 发表于 2020-10-24 22:54

刚好这个方法帮我解决了问题，非常感谢

544895075

用teigha写了一个批量替换指定文件夹下面的字体的程序 不过针对的是我需要的三种字体

默写容颜

mkhsj928 发表于 2020-10-24 22:54

1、CAD目录下有ltypeshp.shx形文件，但它不是字体文件，有可能是作图的人将其他字体改为这名字，无法替换

2、系统明明有新宋体和已经安装的字体如微软雅黑，它也是给你替换宋体


3、就是有些图纸它就是明明要繁体字体，这个字体我系统也是有的，它也是按你的指定宋体强制替换了