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

316666146

7 C  P2 f0 v+ q求助，Set WORDS = ThisDrawing.ModelSpace.AddAttribute(H, acAttributeModeNormal, prompt, D, tag, value)
用这个语句添加一个块属性时，发现添加上去的文字宽高比总是1，而不是当前文字样式中设置的值，求各位指导一下，谢谢
/ Q* T4 Q- a2 Y. x" z另外，添加的文字边界限定宽度怎么设置呢。如下图
- g* S- \$ P, p3 A
7 l4 k5 p: |1 }8 Q3 Z" a" m
只有在选中 文字为 多行文字的时候才能设置限定宽度，这个设置在VBA中如何体现，用什么命令
7 t' M7 P" v: Y' p+ h. e

woaishuijia

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

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   0 T1 M0 y6 Z6 S7 C+ G4 N& V
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
   5 e6 V& x. r% e7 }0 i
4. AAA.ScaleFactor = 0.6
   $ D, v0 o5 {! v
5. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

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

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   , r! A% q3 v6 Z8 T- b& D
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   4 N: f/ ]# X' i5 H, |- t0 `4 Y
3. Set AAA = B.AddAttribute(2.5, acAttributeModeMultipleLine, "", P, "mm", "ffff")
   
4. AAA.MTextBoundaryWidth = 100
   : P9 @! n; p  \) s& Y: i
5. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

或者

1. Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
   3 a9 A* ~  J) ]2 f' A6 s* k
2. Set B = ThisDrawing.Blocks.Add(P, "MMM")
   
3. Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")
   2 R) k) B0 J4 [# B+ K+ m
4. AAA.MTextAttribute = True
   
5. AAA.MTextBoundaryWidth = 100
   
6. ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码