社区 › VB › 字体怎么分层

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 是什么，它后面的小点后的东西不是自动出现的，那是怎么回事，谢谢版主

mccad 发表于 2003-4-7 21:00:00

http://www.mjtd.com/a2/list.asp?id=63

winter74 发表于 2003-4-7 21:47:00

版主，thanks 看样我要在我的论文致谢里写你了，真的，你比我导师对我的帮助还大，称得上副导师哦

查看完整版本: 字体怎么分层