[求助]：能否只更改某一acadText对象的宽度而不影响这幅图中其它后来写的文字？

dyheng

在用VBA程序对某一acadText对象通过ThisDrawing.ActiveTextStyle.width设置宽度再重生成后，所有以后添加文字的宽度都改成程序中设置的那个值了，而且不容易修改，很麻烦。请问，能不能只更改某一acadText对象的文字宽度而不影响其后添加的文字，应如何操作？

雪山飞狐(lzh)

Sub Example_ScaleFactor()
    ' This example creates a text object in model space.
    ' It then finds the current scale factor, and changes it.
    Dim textObj As AcadText
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
   
    ' Define the text object
    textString = "Hello, World."
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 0.5
   
    ' Create the text object in model space
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    ZoomAll
   
    ' Find the current scale factor for the text object
    Dim currScaleFactor As Double
    currScaleFactor = textObj.ScaleFactor
    MsgBox "The scale factor of the text is " & textObj.ScaleFactor, , "ScaleFactor Example"
   
    ' Change the scale factor for the text object
    textObj.ScaleFactor = currScaleFactor + 1
    ThisDrawing.Regen True
    MsgBox "The scale factor of the text is now " & textObj.ScaleFactor, , "ScaleFactor Example"
   
End Sub

dyheng

那么在设置文字的字体时是不是只能通过ActiveTextStyle之类的方法更改全局的字体，而不能像上述类似方法一样单个设置文字的字体呢？如果可以单独设置，该怎么设置？

雪山飞狐(lzh)

不能单个设置文字的字体

yj821005

我现在也遇到这个问题，我原来没考虑字体的时候，可以画出来钢筋的符号，但是设了字体后钢筋符号就变了，晕，斑竹：你的意思是不能对某一个文字字体进行设置？？？？

ljpnb

你可对单个文字进行变化文字样式啊！用obj.styleName来实现，当然图形中得有多种文字样式才行。