[求助]在vba中直接寫類似eattedit修改attribute?

tai550115 · 发表于 2008-11-12 18:42:00

acadBlock中可以用getAttributes把 attribute.textString抓出或修改,
怎麼改修attribute.Height?
同樣acadBlock建二個acadBlockReference,(a)  (B)
(a)  (B)各有不同attribute.textString顯示,
若想要改(a)attribute.height=8而(B)attribute.height=6
請問前輩大致步驟,
圖面操作以eattedit指令,選第二頁Text Options  ->height可以分別設定

mccad · 发表于 2008-11-12 19:11:00

以下是个简单的测试程序：
Sub at()
Dim ent As AcadEntity
Dim pnt As Variant
Dim tm As Variant
Dim con As Variant

ThisDrawing.Utility.GetSubEntity ent, pnt, tm, con, "请选择对象"
If ent.ObjectName = "AcDbAttribute" Then ent.Height = 8
End Sub