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

tai550115

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

以下是个简单的测试程序：

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

robbin840311

同意明总

tai550115

天天都向大家問出一招,

有一天我會很强,天都睛了前途豁然開朗,

謝謝大大

tai550115

 本來只會GetEntity,怎麼都抓到AcDbBlockReference快瘋掉,

網上範例很少寫到GetSubEntity,

autodesk的"ActiveX and  VBA reference"寫的我看不懂

如果不是大大慷慨賜教,還在裡頭打轉,

再次感謝