---

Hallo zusammen,

wie kann ich Werte aus einer Spalte (Kundenname) in einen Block mit mehreren Attributen in AutoCAD, in das Attribut Kunde importieren? Das mit dem Auslesen aus Access, das hab ich schon hin gekriegt, aber die ganzen Daten in AutoCAD rein zu kriegen...

Kann mir das jemand helfen?

Ach ja, das soll mit VBA 6.0 passieren....

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

cu
Heiko

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

---

Hallo Heiko

Versuch es mal hiermit.

Sub block_Tol()
    Dim Einfügepunkt(0 To 2) As Double
    Einfügepunkt(0) = 2
    Einfügepunkt(1) = 2
    Einfügepunkt(2) = 0
    Dim BlockRefObj As AcadBlockReference
    Set BlockRefObj = ThisDrawing.ModelSpace.InsertBlock(Einfügepunkt, "TOLERANZ", 1#, 1#, 1#, 0)
   
    Dim AttWerte As Variant
    AttWerte = BlockRefObj.GetAttributes
   
    AttWerte(0).TextString = 1
    AttWerte(1).TextString = 2
End Sub

Mit diesem Programm werden einem Block (Tolernaz) zwei Werte zugewiesen

Mit freundlichen Grüßen
Joe

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

---

Code:

---

Public Sub Attribute_auslesen()
       
    Dim Atts As Variant
    Dim count As Long
   
   
    Atts = BlRef.GetAttributes
    For count = UBound(Atts) To 0 Step -1
        If Format(Atts(count).TagString, ">") = "KUNDE" Then
            Atts(count).textString = WERTAUSACCESS
        End If
    Next count

End Sub

---

So kann man aus einem Block (BlRef) der Ausgewählt oder eingesetzt wurde die Attribute herausholen und dem Attribut "Kunde" den Wert übergeben.

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

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