請問有沒有人知道, "圖塊"裡如果有1個MTEXT, VBA 可以修改其值嗎?

ghj20122012 · 发表于 2013-7-22 22:11:00

請問有沒有人知道, "圖塊"裡如果有1個MTEXT, VBA 可以修改其值嗎?
我現在卡在跟本就不知道要怎麼抓出字串, 更別說修改字串了。
還是說圖塊裡的MTEXT 本來就不能改的呢?
如果有人知道, 煩請指點一下, 感謝~~
以下是可以抓出圖塊的定義屬性, 那如果是MTEXT 文字呢?
If objBlockReference.HasAttributes Then
      '取得屬性的陣列
      avarAttributes = objBlockReference.GetAttributes

      '從陣列中依序取出屬性物件
      For intIndex = LBound(avarAttributes) To UBound(avarAttributes)
            '取得屬性物件
            Set objAcadAttributeReference = avarAttributes(intIndex)
            '判斷是否為屬性
            If objAcadAttributeReference.ObjectName = "AcDbAttribute" Then
               If objAcadAttributeReference.TagString = Field Then
                     objAcadAttributeReference.TextString = value
                     Exit Sub
               End If
            End If
      Next intIndex
End If

lqm3swn0txt.png

该贴已经同步到

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复