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

ghj20122012

請問有沒有人知道, "圖塊"裡如果有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





该贴已经同步到 ghj20122012的微博

wylong

使用 GetSubEntity 方法