[VBA函数]：宋体的fontfile该赋何值？

george_sjz

用VB对CAD2000编程，如果要加入一个字体为“宋体”的textstyle，fontfile属性该如何赋值？也就是“宋体”的文件名是哪个？

efan2000

使用文字样式的SetFont函数。如：.ThisDrawing.TextStyles("宋体").SetFont "宋体", False, False, 134, 2。

george_sjz

十分感谢！因为我手头的VBA参考书是针对R14 的，所以，原来不知道setfont（）这个函数。
现在继续请教：
如何“激活”某个textstyle，使得其后用addtext（）函数添加的text都采用这一类型？

efan2000

“激活”只要将该文字样式设置为当前的就可以了。

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_ActiveTextStyle()
   
5. 
   
6.     Dim newTextStyle As AcadTextStyle
   
7.     Dim currTextStyle As AcadTextStyle
   
8.    
   
9.     ' 返回当前的文字样式
   
10.     Set currTextStyle = ThisDrawing.ActiveTextStyle
    
11.     MsgBox "当前文字样式： " & currTextStyle.Name, vbInformation, "当前文字样式示例"
    
12.    
    
13.     ' 将名称为“宋体”的文字样式设置为当前文字样式
    
14.     Set newTextStyle = ThisDrawing.TextStyles("宋体")
    
15.     ThisDrawing.ActiveTextStyle = newTextStyle
    
16.     MsgBox "新的文字样式： " & newTextStyle.Name, vbInformation, "当前文字样式示例"
    
17.    
    
18.     ' 恢复以前的文字样式
    
19.     ThisDrawing.ActiveTextStyle = currTextStyle
    
20.     MsgBox "文字样式重设为： " & currTextStyle.Name, vbInformation, "当前文字样式示例"
    
21. End Sub
    
22.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_ActiveTextStyle()<br /> <br />     Dim newTextStyle As AcadTextStyle<br />     Dim currTextStyle As AcadTextStyle<br />     <br />     ' 返回当前的文字样式<br />     Set currTextStyle = ThisDrawing.ActiveTextStyle<br />     MsgBox "当前文字样式： " & currTextStyle.Name, vbInformation, "当前文字样式示例"<br />     <br />     ' 将名称为“宋体”的文字样式设置为当前文字样式<br />     Set newTextStyle = ThisDrawing.TextStyles("宋体")<br />     ThisDrawing.ActiveTextStyle = newTextStyle<br />     MsgBox "新的文字样式： " & newTextStyle.Name, vbInformation, "当前文字样式示例"<br />     <br />     ' 恢复以前的文字样式<br />     ThisDrawing.ActiveTextStyle = currTextStyle<br />     MsgBox "文字样式重设为： " & currTextStyle.Name, vbInformation, "当前文字样式示例"<br /> End Sub<br />   [/FONT]<br />

george_sjz

谢谢斑竹的解答！

dashan

谢谢,这个问题也困惑了我好久.