字体怎么分层

winter74 · 发表于 2003-4-6 23:06:00

版主，我想把我标注的字体分层标，可是layerdim后我加点时其后面不自动出现fontfilename，我该怎么做，你告诉我该怎么编，

winter74 · 发表于 2003-4-7 20:54:00

版主，今天我看书上有这样定义不同的字体，他们的程序如下：
Dim styobj1 As AcadTextStyle
Dim typeface As String
Dim bold As Boolean
Dim italic As Boolean
Dim charset As Long
Dim pitchandfamily As Long
Set styobj1 = acadapp.ActiveDocument.TextStyles.Add("自己设定文本样式1")
typeface = "宋体"
italic = False
bold = False
charset = 1
pitchandfamily = 1 Or 16
styobj1.SetFont typeface, bold, italic, charset, fitchandfamily
acadapp.ActiveDocument.ActiveTextStyle = styobj1
可是我不知acadapp 是什么，它后面的小点后的东西不是自动出现的，那是怎么回事，谢谢版主