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

316666146 · 发表于 2013-9-14 16:31:59

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 woaishuijia 于 2013-9-24 05:24 编辑

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

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

woaishuijia · 发表于 2013-9-24 05:34:18

本帖最后由 woaishuijia 于 2013-9-24 05:47 编辑

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

Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double
9 W& U+ X$ `9 D. U5 d2 ]
Set B = ThisDrawing.Blocks.Add(P, "MMM")+ x) e+ ?6 G. Z; B' A
Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")4 v k0 E. `0 w" v
AAA.ScaleFactor = 0.6
; d2 l% G& e$ j* a, |
ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

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

Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double7 T) b3 i9 {* g \) y/ X4 P) C0 d
Set B = ThisDrawing.Blocks.Add(P, "MMM")
- J9 I: q; }# N6 Z2 A% K
Set AAA = B.AddAttribute(2.5, acAttributeModeMultipleLine, "", P, "mm", "ffff")3 f2 F' Y2 _+ x1 I1 o3 K/ V4 O
AAA.MTextBoundaryWidth = 1007 t5 x0 E5 t" L) W+ B7 ?- C
ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

或者

Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double+ Z* {$ J/ O# O7 X- L
Set B = ThisDrawing.Blocks.Add(P, "MMM")
8 p5 _0 N" }5 q0 J
Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff") r/ g2 o$ ~+ m" q/ W3 _! z8 ]
AAA.MTextAttribute = True4 I {. Y% ]$ F/ d% ^4 X; B0 J+ d
AAA.MTextBoundaryWidth = 100
6 G; }! t3 q" X6 s: q
ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块