用VBA新建一个块属性定义时，用什么参数设置块属性文字的宽高比

316666146

5 G7 r% F7 Y( M6 j/ H
* f! Z. e4 M! z: {( R求助，Set WORDS = ThisDrawing.ModelSpace.AddAttribute(H, acAttributeModeNormal, prompt, D, tag, value)
用这个语句添加一个块属性时，发现添加上去的文字宽高比总是1，而不是当前文字样式中设置的值，求各位指导一下，谢谢
另外，添加的文字边界限定宽度怎么设置呢。如下图
' f: y. z( l% G8 Y4 A
: W2 U# F- J3 I: h6 b& b! y
只有在选中 文字为 多行文字的时候才能设置限定宽度，这个设置在VBA中如何体现，用什么命令

woaishuijia

2 k$ x9 E8 E# y: N2 F
0 w. H: X1 D. x. ^; ~  u% T用 VBA 的"AddAttribute"方法添加块属性(单行文字)时,宽高比默认为1.可以在添加块属性后,用该属性对象的"ScaleFactor"属性修改宽高比.例如

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   & w. A% |( ?# M  x! {- M+ K9 |
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
   
4. AAA.ScaleFactor = 0.6
   
5. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

块属性(多行文字)的边界宽度用属性对象的"MTextBoundaryWidth"属性,例如

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   / E" V+ w! @( P: O) \6 `
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   
3. Set AAA = B.AddAttribute(2.5, acAttributeModeMultipleLine, "", P, "mm", "ffff")
   * @  E! V5 c' V$ m2 z) j6 B1 R9 L
4. AAA.MTextBoundaryWidth = 100
   + k0 Y& m- c5 S# a' O
5. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

或者

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   6 D+ U! H2 {2 s0 {( \9 F1 K
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
   # t5 r3 c. Y, x2 s; s, _
4. AAA.MTextAttribute = True
   
5. AAA.MTextBoundaryWidth = 100
   
6. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码