社区 › VB › [求助]VB修改DWG问题

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                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               '设置字体
       Set ts = acaddoc.TextStyles.Add("option")
       ts.SetFont "楷体_GB2312", True, False, 0, 1
       acaddoc.ActiveTextStyle = ts
但是，在哪里设置字的颜色呢？

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

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

查看完整版本: [求助]VB修改DWG问题