[求助]VB修改DWG问题

ddroyce

同一个VB的程序，分别向两个DWG中写字，为什么一个DWG中的字是红色的，另一个是白色的阿？我在程序里怎么做可以把白色的字变成红色的阿？

雪山飞狐_lzh

改变当前文字式样

ddroyce

我是这样写的： Dim ts As Object '设置字体
Set ts = acaddoc.TextStyles.Add("option")
ts.SetFont "楷体_GB2312", True, False, 0, 1
acaddoc.ActiveTextStyle = ts 但是，在哪里设置字的颜色呢？

yulijin608

Dim textObj As Object
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double

textString = "Hello, World."
insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
height = 0.5

Set textObj = Thisdrawing.ModelSpace.AddText(textString, insertionPoint, height)
textObj.Color = 1