社区 › VB › [求助]如何取得可用字体列表

unfeltboy 发表于 2008-4-2 00:26:00

[求助]如何取得可用字体列表

如何取得像CAD的格式菜单里的文字样式选项中的可用的字体名、SHX字体、大字体的列表呢？

兰州人 发表于 2008-4-2 10:05:00

参考下列程序，也给你出个题，理解一下styleName的用法。。
Sub ls()
Dim tt As AcadText
Dim Ent As AcadEntity
For Each Ent In ThisDrawing.ModelSpace
    If Ent.ObjectName = "AcDbText" Then
      Set tt = Ent
      Debug.Print tt.StyleName
    End If
Next Ent
End Sub

unfeltboy 发表于 2008-4-2 14:20:00

楼上的兄弟你理解错我说的了，我说的是在设置文字样式时下拉列表中可选的字体名、SHX字体、大字体等的列表，而不是每个文本的文字样式

linux1234 发表于 2008-4-5 09:11:00

FOR I=0 TO THISDRAWING.TEXTSTYLES.COUNT
YOURTXTNAME(I)=THISDRAWING.TEXTSTYLES(I).NAME
NEXT I

查看完整版本: [求助]如何取得可用字体列表