---

Hallo Leute!

Eine knifflige Frage an die kniffligen Programmierer von euch....

Ich habe versucht ein Blockattribut über die API zu ändern.
Hier der Code:

        swDrawing.InsertBlock SchliffBlock, swView.Position(0), swView.Position(1), ((Winkel / 180) * 3.14), 1
        ' Ok hier müssen wir noch die Dicke ersetzten
       
       
        Block = swDrawing.GetBlockDefinitions

        If Not IsEmpty(Block) Then

            For i = 0 To UBound(Block)

                Set swBlock = Block(i)
               
                If swBlock.Name = "Schliffrichtung" Then
                   
                    swBlockInst = swBlock.GetBlockInstances
                   
                    For j = 0 To UBound(swBlockInst)
                   
                        BlockNotes = swBlockInst(j).GetAttributes
                       
                            For k = 0 To UBound(BlockNotes)
                           
                            If BlockNotes(k).TagName = "DickeAttr" Then
                               
                                Teildickestring = Str(TeilDicke) + " dick"
                                BlockAttribut = BlockNotes(k).TagName
                               
                                'Hier wird der Wert für das Attribut geschrieben
                                Kontrolle = BlockNotes(k).SetAttributeValue(BlockAttribut, Teildickestring)

So und dann ab diesem Punkt bekomm ich dann die Meldung 438 Objekt unterstützt die Methode nicht, tja und jetzt wollt ich von euch wissen, ob das jemand von euch schon probiert hat und mir vielleicht sagen kann was ich falsch mache, ich finde es beim besten WIlen nicht raus....

Grüße an alle

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

---

Danke fürs Ansehen, ich bin ein Depp....
Was ein falsch gewähltes Objekt alles so ausmachen kann....

Schöne Grüße an alle

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