---

Guten Morgen!

Ich habe hie einen Code der unter 2007 wunderbar funktioniert hat und unter 2008 nicht mehr geht. Ich habe die Hilfe schon gewälzt ohne einen Hinweis zu finden und daher wende ich mich an Euch, ob jemand weiß warum das nicht mehr geht oder noch besser wie es wieder funktioniert.

Ganz einfaches Beispiel, man klickt einen Block an und das erste Attribut wird auf "Hallo Welt" gesetzt. Unter 2007 wie gesagt kein Problem...

Sub changeText()
On Error Resume Next
    Dim PEnt As AcadEntity
   
    Do While True
        Call ThisDrawing.Utility.GetEntity(PEnt, PPoint, "Wähle Block: ")
        If Err.Number = "-2147352567" Then
            Exit Sub
        Else
            Exit Do
        End If
    Loop
    PEnt.GetAttributes(0).TextString = "Hallo Welt"
End Sub

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

---

Ok dann geb ich mir die Antwort mal selbst.
Da bei GetAttributes keine Werte rauskommen muss das ganze erstmal als Variant abgespeichert werden und sieht dann so aus:

    Dim VarTemp As Variant
    VarTemp = PEnt.GetAttributes
    VarTemp (0).TextString = "Bla"

Da das nur irgendwie eine Tatsache ist und in 2007 sicher nicht anders war, frage ich mich wirklich wie das ganze früher funktioniert hat, denn funktioniert hat es ganz sicher...

Kann mir bitte wer 10 Utis für die Antwort geben, ich kanns mir nicht selber geben...

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