本帖最后由 默写容颜 于 2020-10-30 09:06 编辑

以下代码来自雪山飞狐提供
只能找到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 于 2020-10-24 23:06 编辑
  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系统字体文件夹

  11.             Document CurrentDoc = Autodesk.AutoCAD.ApplicationServices.Core.Application.DocumentManager.MdiActiveDocument;
  12.             Database CurrentDB = CurrentDoc.Database;
  13.             Editor CurrentEd = CurrentDoc.Editor;

  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;

  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.                             }

  38.                             if (FontFileFullName != string.Empty)
  39.                             {
  40.                                 using (PrivateFontCollection fc = new PrivateFontCollection())
  41.                                 {
  42.                                     try
  43.                                     {
  44.                                         fc.AddFontFile(FontFileFullName);

  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.                             }

  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.                 }

  88.                 tr.Commit();
  89.             }

  91.             CurrentEd.Regen();
  92.             CurrentEd.UpdateScreen();
  93.         }

  95.         private static string FindFontFile(Database db, string name)
  96.         {
  97.             var hostapp = HostApplicationServices.Current;

  99.             if (name == "") return string.Empty;

  101.             string fullname = string.Empty;
  102.             try
  103.             {
  104.                 fullname = hostapp.FindFile(name, db, FindFileHint.FontFile);
  105.             }
  106.             catch { }

  108.             return fullname;
  109.         }



网友答: 同求大神给予解决，谢谢


网友答:

网友答:
mkhsj928 发表于 2020-10-24 22:54

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

网友答: 学习了，谢谢！

网友答:
mkhsj928 发表于 2020-10-24 22:54

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

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

网友答: 本帖最后由 默写容颜 于 2021-1-24 15:14 编辑
mkhsj928 发表于 2020-10-24 22:54

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

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


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

网友答: 本帖最后由 箭头_Row 于 2025-7-13 16:43 编辑
默写容颜 发表于 2021-1-24 15:10
1、CAD目录下有ltypeshp.shx形文件，但它不是字体文件，有可能是作图的人将其他字体改为这名字，无法替换 ...

獲取下系統字體，比對下系統字體名稱，有則支持蹼過。




  2. using System.Drawing.Text;

  4. internal static List<string> GetSystemFontNames()
  5.     {
  6.         using var fonts = new InstalledFontCollection();
  7.         return [.. fonts.Families.Select(f => f.Name).Distinct().OrderBy(n => n)];
  8.     }



  12. private static readonly List<string> IgnoreFonts = GetSystemFontNames();

  14.    // 跳过系统默认字体:宋體、黑體、楷體、仿宋等
  15.    if (IgnoreFonts.Contains(textStyle.Font.TypeFace))
  16.        continue;

  • 上一篇：插入带特殊属性的块的问题
  • 下一篇：没有了
    CAD技术交流中心 | 建筑CAD | 给排水CAD | 暖通CAD | 电气CAD | 电力CAD | 机械CAD | CAD母线槽 | CAD看图
    Copyright © 2019 - 2025