---

Hallo alle miteinander,

hätte da noch ne fragen, komme mir schon ein wenig nervig vor :-)

Hab mir ne Userform gebastelt,  in welche der Benutzer werte in Textfelder eintragen kann, nun möchte ich diese werte, welche jeweils ein attribut eines blockes ergeben in nen vorgefertigten block eintragen lassen.
Der Block soll im selben schritt auch in die zeichnung eingefügt werden. wobei es mir hauptsachlich mal um das übergeben der Werte in den Block geht.

würde mich auf jede hilfe wieder sehr freuen.

mfg

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

---

Code:

---

    If BlRef.HasAttributes = False Then Exit Sub
    Atts = BlRef.GetAttributes
   
    For Count = UBound(Atts) To 0 Step -1
        If Atts(Count).TagString = FeldAusFormular Then
            Atts(Count).textString = WertAusFormular
        End If
    Next Count

---

In deinem Fall würde ich Select Case verwenden und alle deine Attribute abfragen.

------------------
Roland

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

---

Hi,

danke für die antwort, muß aber leider gestehn dass ich da nicht so richtig durchblicke, bin noch anfäger was das programmiern anbelangt :-)
könntest mir noch ein paar infos zu deinem code geben.

mfg

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

---

BlRef ist deine Blockreferenz.
Mit .HasAttributes fragst du nach ob deine Referenz überhaupt Attribute hat (in deinem Fall ist die Abfrage nicht unbedingt notwendig).
Eines hab ich vergessen: Dim Atts as Variant
.GetAttributes holt dir die Attributreferenzen.
Dann gehst du einfach alle Attribute in der For..Next-Schleife durch.
Du bräuchtest aber keine if Abfrage sondern eine Select Case Abfrage:

Select Case Atts(Count).TagString
    Case "Attribut1"
        Atts(Count).textString = WertAusFormular1
    Case "Attribut2"
        Atts(Count).textString = WertAusFormular2
    Case Else
        'mach halt irgend etwas
End Select

------------------
Roland

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