[求助]VB修改DWG问题

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

同一个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问题

发表回复

精选推荐