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

316666146

求助，Set WORDS = ThisDrawing.ModelSpace.AddAttribute(H, acAttributeModeNormal, prompt, D, tag, value)
; Y2 s( @$ _7 V% U用这个语句添加一个块属性时，发现添加上去的文字宽高比总是1，而不是当前文字样式中设置的值，求各位指导一下，谢谢
: J# y/ K/ u. w4 l# h另外，添加的文字边界限定宽度怎么设置呢。如下图

+ q8 X6 @( i! ^. e( P1 s
) p/ e* x* r( p' ]; u9 _只有在选中 文字为 多行文字的时候才能设置限定宽度，这个设置在VBA中如何体现，用什么命令
$ _. W( X' Q, I0 r. l2 b5 F0 r

woaishuijia

: ]$ D9 F3 Q7 A5 ?用 VBA 的"AddAttribute"方法添加块属性(单行文字)时,宽高比默认为1.可以在添加块属性后,用该属性对象的"ScaleFactor"属性修改宽高比.例如

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   8 L( ~! c8 l8 N1 i$ M# s
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   6 r8 m) c/ g( [& c
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
   ' j( T  q5 @$ M& y& j
4. AAA.ScaleFactor = 0.6
   3 ^. a/ E6 k7 D' @7 o" o" O
5. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

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

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   3 ]) i0 y  C) w% p
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   % e" b! l3 u) m$ u
3. Set AAA = B.AddAttribute(2.5, acAttributeModeMultipleLine, "", P, "mm", "ffff")
   & X# y8 c, \7 w# Y9 O8 Y6 V7 Y
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
   
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   - k! E5 \/ E3 A7 L
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
   & }$ l& s; P0 C2 O# I0 M
4. AAA.MTextAttribute = True
   , F0 R: M. Z( y/ o& x; n
5. AAA.MTextBoundaryWidth = 100
   
6. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码