用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# c; j! y5 x& L/ C7 v5 J8 d1 I
Set B = ThisDrawing.Blocks.Add(P, "MMM")
$ W O4 n% { @4 ^4 @
Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")% Y4 G1 n/ v+ L1 u) F1 Y! E
AAA.ScaleFactor = 0.6* M+ U5 j5 t- m2 i" g4 f1 ]
ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

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

Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double, u6 K; l$ y4 [# n
Set B = ThisDrawing.Blocks.Add(P, "MMM")
2 {! s0 }7 V* x* W+ Q
Set AAA = B.AddAttribute(2.5, acAttributeModeMultipleLine, "", P, "mm", "ffff"). [; p/ I9 w# c i
AAA.MTextBoundaryWidth = 100
6 f: z: w- O) a2 F, }
ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

或者

Dim B As AcadBlock, AAA As AcadAttribute, P(2) As Double" t% ~% ?- ]& H& b, `5 i; ^
Set B = ThisDrawing.Blocks.Add(P, "MMM")
{1 K1 ]" X3 a% t
Set AAA = B.AddAttribute(2.5, acAttributeModeNormal, "", P, "mm", "ffff")- i0 ]' u# }$ j6 ?: O. z
AAA.MTextAttribute = True# O( A; i# x9 V! L1 D1 m b
AAA.MTextBoundaryWidth = 100
5 Y, v7 i+ h( N, c5 F' O4 l
ThisDrawing.ModelSpace.InsertBlock P, "MMM", 1, 1, 1, 0

复制代码

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

通知

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

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

浏览过的版块