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

unfeltboy

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

兰州人

参考下列程序，也给你出个题，理解一下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

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

linux1234

FOR I=0 TO THISDRAWING.TEXTSTYLES.COUNT

YOURTXTNAME(I)=THISDRAWING.TEXTSTYLES(I).NAME

NEXT I