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

316666146

求助，Set WORDS = ThisDrawing.ModelSpace.AddAttribute(H, acAttributeModeNormal, prompt, D, tag, value)
用这个语句添加一个块属性时，发现添加上去的文字宽高比总是1，而不是当前文字样式中设置的值，求各位指导一下，谢谢
另外，添加的文字边界限定宽度怎么设置呢。如下图
  E8 G1 [+ a" P2 G! I% `

只有在选中 文字为 多行文字的时候才能设置限定宽度，这个设置在VBA中如何体现，用什么命令

woaishuijia

$ C! b) Y7 B- q1 T, l- f& @$ ~, o
用 VBA 的"AddAttribute"方法添加块属性(单行文字)时,宽高比默认为1.可以在添加块属性后,用该属性对象的"ScaleFactor"属性修改宽高比.例如

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   ' l/ T& \* U7 a5 U/ h
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   1 J1 A3 C1 a6 K6 _9 x
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
   2 Z/ V& ]% `# ^+ p$ c2 a
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
   
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   
3. Set AAA = B.AddAttribute(2.5, acAttributeModeMultipleLine, "", P, "mm", "ffff")
   7 N4 H. B0 i1 V, O1 U9 X
4. AAA.MTextBoundaryWidth = 100
   
5. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

或者

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   - x# n4 h$ l4 |( s
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
   / f# N8 F" ?, T/ W
4. AAA.MTextAttribute = True
   6 `, F& F# K; _, |3 e  ^0 _
5. AAA.MTextBoundaryWidth = 100
   4 T, L; A/ z6 {3 N. @) s0 E8 r0 s/ e
6. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码