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

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

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

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

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

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

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

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

<p>FOR I=0 TO THISDRAWING.TEXTSTYLES.COUNT</p><p>YOURTXTNAME(I)=THISDRAWING.TEXTSTYLES(I).NAME</p><p>NEXT I</p>
页: [1]
查看完整版本: [求助]如何取得可用字体列表