ddroyce 发表于 2005-1-5 14:20:00

[求助]VB修改DWG问题

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

雪山飞狐_lzh 发表于 2005-1-5 14:51:00

改变当前文字式样

ddroyce 发表于 2005-1-6 16:42:00

我是这样写的：


Dim ts As Object                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               '设置字体<BR>       Set ts = acaddoc.TextStyles.Add("option")<BR>       ts.SetFont "楷体_GB2312", True, False, 0, 1<BR>       acaddoc.ActiveTextStyle = ts


但是，在哪里设置字的颜色呢？

yulijin608 发表于 2005-1-6 18:36:00

Dim textObj As Object<BR>                       Dim textString As String<BR>                       Dim insertionPoint(0 To 2) As Double<BR>                       Dim height As Double<BR>                                <BR>                       textString = "Hello, World."<BR>                       insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0<BR>                       height = 0.5<BR>                                <BR>                       Set textObj = Thisdrawing.ModelSpace.AddText(textString, insertionPoint, height)<BR>                       textObj.Color = 1
页: [1]
查看完整版本: [求助]VB修改DWG问题