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

316666146

: w$ {2 F$ I- H& O# Z# b4 o- F
求助，Set WORDS = ThisDrawing.ModelSpace.AddAttribute(H, acAttributeModeNormal, prompt, D, tag, value)
6 \( v3 S( G5 K  d- X; D用这个语句添加一个块属性时，发现添加上去的文字宽高比总是1，而不是当前文字样式中设置的值，求各位指导一下，谢谢
, @* U$ L( S! h- @# H另外，添加的文字边界限定宽度怎么设置呢。如下图
8 r7 i& W' p/ v8 k. C) b
  K' _; E: t# O, l- P
只有在选中 文字为 多行文字的时候才能设置限定宽度，这个设置在VBA中如何体现，用什么命令

woaishuijia

9 l% `: Z) q" x9 ^7 \5 i- I  q# y用 VBA 的"AddAttribute"方法添加块属性(单行文字)时,宽高比默认为1.可以在添加块属性后,用该属性对象的"ScaleFactor"属性修改宽高比.例如

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   . d. k, M8 L6 i7 h( t# R
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
   , w% X- M* u* i. B8 C1 t
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
   / ^9 a8 Z( a0 _* c) _. f( a$ h7 |
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   
3. Set AAA = B.AddAttribute(2.5, acAttributeModeMultipleLine, "", P, "mm", "ffff")
   ( B# G4 `) N+ _/ I
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")
   , g. o4 z6 Z) l% ?- H8 p. r8 A
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
     n( M! ~$ \* Q$ _% B) f
4. AAA.MTextAttribute = True
   2 S( j  z6 `8 [% Q) l
5. AAA.MTextBoundaryWidth = 100
   1 n) m9 }# T5 Q' z# k
6. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码