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

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

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

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

robbin840311 发表于 2008-11-12 20:42:00

同意明总

tai550115 发表于 2008-11-13 08:32:00

天天都向大家問出一招,
有一天我會很强,天都睛了前途豁然開朗,
謝謝大大

tai550115 发表于 2008-11-13 11:39:00

本來只會GetEntity,怎麼都抓到AcDbBlockReference快瘋掉,
網上範例很少寫到GetSubEntity,
autodesk的"ActiveX andVBA reference"寫的我看不懂
如果不是大大慷慨賜教,還在裡頭打轉,
再次感謝

查看完整版本: [求助]在vba中直接寫類似eattedit修改attribute?