[求助]vb下定义文字宽度比例问题，大家多帮忙

可可兔

我在vb6.0sp6中定义cad的文字宽度比例时，发现文字依然宽度比例为1，请问为什么 那位高手给我指点以下，代码如下：
Dim wenzileixing As AcadTextStyle
Dim ziti As String
Dim charset As Long
Dim pitchandfamily As Long
Set wenzileixing = cad.ActiveDocument.TextStyles.Add("wntext")
wenzileixing.Width = 0.7 这样定义对不对？？？？？？？？？
wenzileixing.fontFile = 字体 wenzileixing.BigFontFile = 字体 Dim wenzi As AcadText
Dim wenzishi As String
Dim weizhi(0 To 2) As Double
Dim gaodu As Double
wenzishi = "我爱中华人民共和国"
gaodu = 4
weizhi(0) = 50
weizhi(1) = 50
weizhi(2) = 0
cad.ActiveDocument.ActiveTextStyle = wenzileixing
Set wenzi = cad.ActiveDocument.ModelSpace.AddText(wenzishi, weizhi, gaodu)
wenzi.Update

可可兔

各位哥哥，姐姐，大家多帮帮忙啊，我真的很急啊，在此谢谢了！！！！


多谢


多谢


多谢


多谢


多谢


多谢


多谢


多谢


多谢

zfbj

使用文档对象的ActiveTextStyle属性，将你添加的文字样式设置为当前的文字样式。

ntchjie

你是指高宽比，是ScaleFactor

zfbj

对，我大意了。


: (

可可兔

哈哈，多谢两位，请再说明白一些 还是我上面的例子 在vb中 wenzileixing没有ScaleFactor属性,只有wenzi 有 如果我把代码改写成 Dim wenzileixing As AcadTextStyle
Dim ziti As String
Dim charset As Long
Dim pitchandfamily As Long
Set wenzileixing = cad.ActiveDocument.TextStyles.Add("wntext")
wenzileixing.Width = 0.7 这样定义对不对？？？？？？？？？
wenzileixing.fontFile = 字体 wenzileixing.BigFontFile = 字体 Dim wenzi As AcadText
Dim wenzishi As String
Dim weizhi(0 To 2) As Double
Dim gaodu As Double
wenzishi = "我爱中华人民共和国"
gaodu = 4
weizhi(0) = 50
weizhi(1) = 50
weizhi(2) = 0
cad.ActiveDocument.ActiveTextStyle = wenzileixing wenzi.ScaleFactor=0.7 请注意这里
Set wenzi = cad.ActiveDocument.ModelSpace.AddText(wenzishi, weizhi, gaodu)
wenzi.Update 那么提示错误，请问谁能给我个例子，比如我想让高宽比为0.7，到底该怎么写呢，谢谢谢谢

wmz

试着改写一下: Sub test()
Dim wenzileixing As AcadTextStyle
Set wenzileixing = ThisDrawing.TextStyles.Add("wntext")
wenzileixing.SetFont "ËÎÌå", False, False, 1, 1 wenzileixing.Width = 0.7 ' 这样定义对了!!!! Dim wenzi As AcadText
Dim wenzishi As String
Dim weizhi(0 To 2) As Double
Dim gaodu As Double
wenzishi = "我爱中华人民共和国"
gaodu = 4
weizhi(0) = 50
weizhi(1) = 50
weizhi(2) = 0
ThisDrawing.ActiveTextStyle = wenzileixing
Set wenzi = ThisDrawing.ModelSpace.AddText(wenzishi, weizhi, gaodu)
wenzi.Update
End Sub