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

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

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

发表回复

精选推荐