---

Hallo Leute,

in einem Block habe ich einen Mtext. An diesem Text möchte ich die Laufweite ändern.

Das Ganze soll mit VBA gemacht werden.

Wenn die Zeichnung geöffnet ist, kann ich mittlerweile diesen betreffenden MText in der Zeichnung finden.    Aber die Änderung klappt nicht      .

Frage:

Muß ich den Bloch irgendwie zur Beabeitung öffnen ?

bisher habe ich das so gemacht:

    For Each oBlock In oBlocks
        sText = sText + oBlock.Name + vbCrLf
        If oBlock.Name = sBlockName Then
            bFound = True
            For iZaehler = 1 To oBlock.Count - 1
            Set oEntity = oBlock.Item(iZaehler)
                On Error Resume Next
                If oEntity.TextString = "{DIN ISO 2768 - mK}" Then
                    Set oEntity.TextString = "{\W0.55;DIN ISO 2768 - mK}"          <======
                    oEntity.Update
                    sMsgDone = " -> done <- "
                End If
                On Error GoTo 0
            Next iZaehler
           
        Else
            sMsgBlock = sBlockName & " nicht gefunden"
        End If
       
    Next

Nur - es ändert sich nix     

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
�Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

[Diese Nachricht wurde von lbcad am 23. Jan. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Lothar,

entferne doch mal dein On error Resume Next

Zitat:

---

Original erstellt von lbcad:
    For Each oBlock In oBlocks
        sText = sText + oBlock.Name + vbCrLf
        If oBlock.Name = sBlockName Then
            bFound = True
            For iZaehler = 1 To oBlock.Count - 1
            Set oEntity = oBlock.Item(iZaehler)
                On Error Resume Next
                If oEntity.TextString = "{DIN ISO 2768 - mK}" Then
                    Set oEntity.TextString = "{\W0.55;DIN ISO 2768 - mK}"          <======
                    oEntity.Update
                    sMsgDone = " -> done <- "
                End If
                On Error GoTo 0
            Next iZaehler
           
        Else
            sMsgBlock = sBlockName & " nicht gefunden"
        End If
       
    Next

---

Code:

---

'' ungetestet
    For Each oBlock In oBlocks
        sText = sText + oBlock.Name + vbCrLf
        If oBlock.Name = sBlockName Then
            bFound = True
            for each oEntity in oBlock
                if oEntity.ObjectName = "AcDbBlockReference" then
                  If oEntity.TextString = "{DIN ISO 2768 - mK}" Then
                      Set oEntity.TextString = "{\W0.55;DIN ISO 2768 - mK}"
                      oEntity.Update
                      sMsgDone = " -> done <- "
                  End If
                end if
            Next oEntity
           
        Else
            sMsgBlock = sBlockName & " nicht gefunden"
        End If
       
    Next

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP