.net vb use "BigFont" ansian-language plz help me.

mirwing76 — Thu, 11 Jan 2018 02:18:29 GMT

I want to use "bigFont". The code below does not work as you like. I would appreciate your help.

Sub Test()
' 테스트 sub
Dim AcadDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim acadDb As Database = AcadDoc.Database
Dim acadEd As Editor = AcadDoc.Editor

Dim txtStyle As TextStyleTableRecord = New TextStyleTableRecord()
txtStyle.Name = "MyStyle"
txtStyle.Font = New Autodesk.AutoCAD.GraphicsInterface.FontDescriptor("romans", False, False, 0, 0)
txtStyle.BigFontFileName = "ghs"
txtStyle.TextSize = 1.0
Try

Using trans As Transaction = acadDb.TransactionManager.StartTransaction()
Dim TAB As TextStyleTable = acadDb.TextStyleTableId.GetObject(Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite)
TAB.Add(txtStyle)
trans.AddNewlyCreatedDBObject(txtStyle, True)
acadDb.Textstyle = txtStyle.Id
trans.Commit()
End Using

Catch ex As mapException

End Try

End Sub

Re: .net vb use "BigFont" ansian-language plz help me.

mirwing76 — Sun, 11 Feb 2018 06:25:44 GMT

<CommandMethod("ChangeFontFiles")> _

Public Sub ChangeFontFiles()
'' Get the current document and database
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim acCurDb As Database = acDoc.Database

'' Start a transaction
Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

      '' Open the current text style for write
      Dim acTextStyleTblRec As TextStyleTableRecord
      acTextStyleTblRec = acTrans.GetObject(acCurDb.Textstyle, OpenMode.ForWrite)

'' Change the font files used for both Big and Regular fonts

acTextStyleTblRec.BigFontFileName = "C:\AutoCAD\Fonts\bigfont.shx"
acTextStyleTblRec.FileName = "C:\AutoCAD\Fonts\italic.shx"

      '' Save the changes and dispose of the transaction
      acTrans.Commit()
  End Using
End Sub

Re: .net vb use "BigFont" ansian-language plz help me.

SENL1362 — Tue, 13 Feb 2018 12:29:16 GMT

I think youre problem might be the Font Search Path, the (Big)Filename must be the name, with or without extension, of the pathname.

acTextStyleTblRec.BigFontFileName = "BigFont.shx" but "C:\AutoCAD\Fonts" must be in the search path.

See several samples below (sorry C# only)

       [CommandMethod("TestBigFont")]
        public static void TestBigFont()
        {
            Document doc = null;
            Editor ed = null;
            Database db = null;
            try
            {
                doc = AcadApp.DocumentManager.MdiActiveDocument;
                ed = doc.Editor;
                db = doc.Database;

                using (var tr = db.TransactionManager.StartTransaction())
                {
                    var tsTbl = (TextStyleTable)tr.GetObject(db.TextStyleTableId, OpenMode.ForRead);

                    //List existing text styles
                    foreach(var tsId in tsTbl)
                    {
                        var ts = (TextStyleTableRecord)tr.GetObject(tsId, OpenMode.ForRead);
                        ed.WriteMessage($"\n textstyle={ts.Name}, {ts.BigFontFileName}");
                     }

                    //Note: C:\..\fonts must be in SearchPath
                    var fontpath = @"D:\Apldata\Meridian\Fonts";
                    var acadSearchPath = (string)AcadApp.GetSystemVariable("ACADPREFIX");
                    var fontSearchPath = acadSearchPath.Split(';')
                             .Where(d => d.Contains(fontpath, StringComparison.OrdinalIgnoreCase))
                             .FirstOrDefault();
                    if (string.IsNullOrWhiteSpace(fontSearchPath))
                    {
                        //throw new System.Exception($"Font Path missing: {fontFldName}");
                        var acadPref = (dynamic)AcadApp.Preferences;
                        var acadPrefSupportPaths = ((string)acadPref.Files.SupportPath).Split(';').ToList();
                        acadPrefSupportPaths.Add(fontpath);
                        acadPref.Files.SupportPath = string.Join(";", acadPrefSupportPaths);
                    }

                    //find bigFont SHX: "AutoCAD-86 bigfont 1.0"
                    var bigFontPathnames = new List<string>();
                    foreach(var fontPathname in Directory.EnumerateFiles(fontSearchPath, "*.shx"))
                    {
                        if (File.ReadLines(fontPathname).FirstOrDefault().Contains("bigfont",StringComparison.OrdinalIgnoreCase))
                        {
                            bigFontPathnames.Add(fontPathname);
                        }
                    }

                    //Create new BigFont TextStyle, using the last bigfont file found.
                    var tsName = "BigAzian";
                    if (bigFontPathnames.Count > 0 && !tsTbl.Has("BigAzian"))
                    {
                        var bigAzian = new TextStyleTableRecord
                        {
                            Name = tsName,
                            FileName = "romans",
                            BigFontFileName = Path.GetFileNameWithoutExtension(bigFontPathnames.Last()),
                            FlagBits = 2 + 4,   //2==backwards, 4=upside-down
                            IsVertical = true,
                        };
                        tsTbl.UpgradeOpen();
                        tsTbl.Add(bigAzian);
                        tr.AddNewlyCreatedDBObject(bigAzian, true);
                    }

                    //Create MText using the new BigFont TextStyle
                    var mt = new MText();
                    mt.Location = new Point3d(100, 150, 0);
                    mt.Contents = "Hello World!";
                    mt.TextHeight = 5;
                    if (tsTbl.Has(tsName))
                    {
                        mt.TextStyleId = tsTbl[tsName];
                    }
                    var btr = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
                    btr.AppendEntity(mt);
                    tr.AddNewlyCreatedDBObject(mt, true);



                    //change existing TextStyle to BigFont
                    var bigFontFilename = "BigFont.shx";
                    var fontFilename = "Italic.shx";
                    if (!File.Exists(Path.Combine(fontSearchPath, bigFontFilename)))
                    {
                        throw new System.Exception($"Not found: {bigFontFilename} @:{fontSearchPath}");
                    }
                    if (!File.Exists(Path.Combine(fontSearchPath, fontFilename)))
                    {
                        throw new System.Exception($"Not found: {fontFilename} @:{fontSearchPath}");
                    }
                    var curTs = (TextStyleTableRecord)tr.GetObject(db.Textstyle, OpenMode.ForWrite);
                    curTs.BigFontFileName = Path.GetFileNameWithoutExtension(bigFontFilename);
                    curTs.FileName = Path.GetFileNameWithoutExtension(fontFilename);
                    curTs.IsVertical = true;


                    //Create MText using existing TextStyle(BigFont)
                    var mt2 = new MText();
                    mt2.Location = new Point3d(130, 150, 0);
                    mt2.Contents = "Hello World!";
                    mt2.TextHeight = 5;
                    if (tsTbl.Has(tsName))
                    {
                        mt2.TextStyleId = db.Textstyle;
                    }
                    btr.AppendEntity(mt2);
                    tr.AddNewlyCreatedDBObject(mt2, true);

                    tr.Commit();
                }

                
                dynamic acadApp = AcadApp.AcadApplication;
                acadApp.ZoomExtents();
                //Zoom out 10%
                using (ViewTableRecord view = ed.GetCurrentView())
                {
                    view.Width *= 1.1;
                    view.Height *= 1.1;
                    ed.SetCurrentView(view);
                }
            }
            catch (System.Exception ex)
            {
                ed?.WriteMessage($"\n{ex.Message}");
            }
        }

topic Re: .net vb use "BigFont" ansian-language plz help me. in .NET Forum

.net vb use "BigFont" ansian-language plz help me.

Re: .net vb use "BigFont" ansian-language plz help me.

Re: .net vb use "BigFont" ansian-language plz help me.