[求助] VB.net创建文字样式的几个问题

cobalt

几位老大编写的《AutoCAD VBA & VB.NET开发》一书中讲了文字样式的创建等方法。我今天下午在使用的时候，遇到三个不明白的问题：

（1）“宋体”的文件名称是什么？

我的测试背景是Win7+VS2010+AutoCAD2008，根据文中提供的方法，到控制面板的字体中找到“宋体”的文件名是simsun.ttc，但是按照下面的代码却没有成功地生成字体样式：
                Dim str As New TextStyleTableRecord()
                str.Name = "TextStyle-宋体-横向"
                str.FileName = "simsun.ttc"
我猜是不是应该为“simsun.ttf”，结果运行后字体名显示为“SimSun-ExtB”，也失败了。那到底是什么啊？

 

（2）字体样式里面垂直字体如何定义？

找了半天，在系统里都没看到带有“@”符号或有“竖向”、“垂直”关键字的字体文件，网上也找了半天，没有结果。
自己最后终于找到了TextStyle Members的一个属性IsVertical，设置为True后发现也没有成功。怎么办？

 

以上两个问题总结起来，就是如附件图中所示，需要高手填空：

 

 

（3）手工定义的宋体字体样式查不到文件名

 

《AutoCAD VBA & VB.NET开发》一书“文字样式”章节中有GetTextStyle命令可以显示所用字体的文件名。

我手工设置字体的字体样式为宋体，使用书中的GetTextStyle查询，得到空结果，如下图所示，为什么啊？是不是我的系统有问题？还是其它？

 

qazllqaz

'创建文字样式
    Public Shared Function CreateStyle(ByVal textstyleName As String, ByVal font1 As String, ByVal bigfont As String, ByVal anger As Double, ByVal textwidth As Double) As ObjectId
        Dim db As Database = HostApplicationServices.WorkingDatabase
        Using trans As Transaction = db.TransactionManager.StartTransaction
            ' 得到文字样式表
            Dim st As TextStyleTable = trans.GetObject(db.TextStyleTableId, OpenMode.ForWrite)
            Dim StyleName As String = textstyleName
            ' 如果名为"工程图"的文字样式不存在，则新建一个文字样式.
            If st.Has(StyleName) = True Then
                'Dim TextstyleId As ObjectId = st(StyleName)
                db.Textstyle = st(StyleName)
                trans.Commit()
            End If
            If st.Has(StyleName) = False Then
                ' 新建一个文字样式表记录.
                Dim str As New TextStyleTableRecord()
                ' 设置文字样式名.
                str.Name = StyleName
                ' 设置TrueType字体(仿宋体）
                If Right(font1, 3) = "ttf" Or Right(font1, 3) = "TTC" Or font1 = "宋体" Then
                    str.FileName = font1
                Else
                    ' 设置SHX字体
                    str.FileName = font1
                    '  设置大字体.
                    str.BigFontFileName = bigfont
                End If
                ' 设置倾斜角(弧度).
                str.ObliquingAngle = anger * Math.PI / 180
                ' 设置宽度比例.
                str.XScale = textwidth
                ' 把文字样式表记录添加到文字样式表中.
                Dim TextstyleId As ObjectId = st.Add(str)
                ' 把文字样式表记录添加到事务处理中.
                trans.AddNewlyCreatedDBObject(str, True)
                ' 将文字样式"工程图"设置为当前文字样式  
                db.Textstyle = TextstyleId
                trans.Commit()
            End If
        End Using
    End Function

慢慢来吧

Dim st As TextStyleTable = trans.GetObject(db.TextStyleTableId, OpenMode.ForWrite)
我的怎么只能用读的方式打开呢，用写报错啊!
"Autodesk.AutoCAD.Runtime.Exception"的异常
cad2005 & vs2008

999999

谢谢楼主和各位大神的解答，本人小白只能慢慢领悟

雪山飞狐_lzh

手动创建样式，然后用代码读属性。。。

cobalt

版主啊，我也是想这么做的呀，可是出现了问题，问题就是我发的帖子中的第三个问题。

雪山飞狐_lzh

3.         [CommandMethod("tt4")]
4.         public void test24()
5.         {
6.             Document doc = Application.DocumentManager.MdiActiveDocument;
7.             Editor ed = doc.Editor;
8.             Database db = doc.Database;
9.             using (Transaction tr = db.TransactionManager.StartTransaction())
10.             {
11.                 TextStyleTableRecord tstr =
12.                     new TextStyleTableRecord
13.                     {
14.                         Name = "Font1",
15.                         Font =
16.                             new Autodesk.AutoCAD.GraphicsInterface.FontDescriptor("宋体",false,false,0,34),
17.                         XScale = 1
18.                     };
19.                 TextStyleTable tst = tr.GetObject(db.TextStyleTableId, OpenMode.ForWrite) as TextStyleTable;
20.                 tst.Add(tstr);
21.                 tr.AddNewlyCreatedDBObject(tstr, true);
22.                 tr.Commit();
23.             }
24.         }

        [CommandMethod("tt4")]         public void test24()         {             Document doc = Application.DocumentManager.MdiActiveDocument;             Editor ed = doc.Editor;             Database db = doc.Database;             using (Transaction tr = db.TransactionManager.StartTransaction())             {                 TextStyleTableRecord tstr =                     new TextStyleTableRecord                     {                         Name = "Font1",                         Font =                             new Autodesk.AutoCAD.GraphicsInterface.FontDescriptor("宋体",false,false,0,34),                         XScale = 1                     };                 TextStyleTable tst = tr.GetObject(db.TextStyleTableId, OpenMode.ForWrite) as TextStyleTable;                 tst.Add(tstr);                 tr.AddNewlyCreatedDBObject(tstr, true);                 tr.Commit();             }         }

cobalt

非常感谢lzh741206的热心。

使用Font属性之后，问题就解决了。

 

new Autodesk.AutoCAD.GraphicsInterface.FontDescriptor("宋体",false,false,0,34)里面的参数“34”为“the pitch and family attributes”，设置字体间距与Family（字符集？），34指的是DefaultPitch吧？

 

 

cobalt

根据lzh741206和ObjectARX编程站sbydo的提示，问题解决了。下面总结一下，给后面的同志们作参考。

 

【方法1】创建文字样式时，使用FileName属性来实现。
        Dim str As New TextStyleTableRecord()
        str.FileName= "宋体.ttf"
        或者
        str.FileName= "@宋体.ttf"

【方法2】创建文字样式时，使用Font属性来实现。
        str.Font = New Autodesk.AutoCAD.GraphicsInterface.FontDescriptor(FontName, False, False, 0, 34)

其中，参数FontName的不同取值可以创建不同的文字样式：
            FontName="宋体"，则为横向的宋体样式；
            FontName="@宋体"，则为竖向的宋体样式。
其它的字体样式同样处理。

qazllqaz

Dim tktextstyId As ObjectId = ModelSpace.CreateStyle("图框", "宋体", "", 0, 0.85)

qazllqaz

这样就行了，我已经用过了，可以

qazllqaz

2. 
   
3. Dim tktextstyId As ObjectId = ModelSpace.CreateStyle("图框", "宋体", "", 0, 0.85)
   
4. 这段代码是调用函数

<br /> Dim tktextstyId As ObjectId = ModelSpace.CreateStyle("图框", "宋体", "", 0, 0.85)<br /> 这段代码是调用函数