---

Hallo Leute,
ich suche nach einer Möglichkeit via VBA Blockreferenzen, die in einem Block sind zu bearbeiten.
In AutoCAD läuft es wurderbar, jetz würde ich es gerne auch im DWGeditor zum laufen kriegen.

Code:

---

Public Sub fillTypenschild(MaschinenNr As String, Maschinenbezeichnung As String, Pumpenbezeichnung As String, Jahr As String, _
                        qWert As String, nWert As String, tWert As String, hWert As String, pWert As String, RhoWert As String) 'Typenschildfelder ausfüllen
    Dim BlockCol As Collection, Objekt As Object
    Set BlockCol = New Collection
    For Each Objekt In ThisDrawing.ModelSpace  'In Excel muss "Thisdrawing" durch "ActiveDocument" ersetzt werden
    If Objekt.ObjectName = "AcDbBlockReference" Then
        If Objekt.Name = "Typenschild" Then
                BlockCol.Add Objekt
                GoTo n
        End If
    End If
    Next
    ThisDrawing.Utility.Prompt vbNewLine & "Block Typenschild nicht gefunden"
    Exit Sub
n:
    Dim AktBlock As AcadBlockReference
    Set AktBlock = BlockCol(1)
    AktAtt = AktBlock.GetAttributes

            For j = 0 To UBound(AktAtt)
                DoEvents
                If AktAtt(j).TagString = "MACHINE_NO" Then AktAtt(j).TextString = MaschinenNr
                If AktAtt(j).TagString = "CLIENTS_NO" Then AktAtt(j).TextString = Maschinenbezeichnung
                If AktAtt(j).TagString = "TYPE" Then AktAtt(j).TextString = Pumpenbezeichnung
                If AktAtt(j).TagString = "YEAR" Then AktAtt(j).TextString = Jahr
                If AktAtt(j).TagString = "Q" Then AktAtt(j).TextString = qWert
                If AktAtt(j).TagString = "N" Then AktAtt(j).TextString = nWert
                If AktAtt(j).TagString = "T" Then AktAtt(j).TextString = tWert
                If AktAtt(j).TagString = "H" Then AktAtt(j).TextString = hWert
                If AktAtt(j).TagString = "P" Then AktAtt(j).TextString = pWert
                If AktAtt(j).TagString = "RHO" Then AktAtt(j).TextString = RhoWert
            Next
            ThisDrawing.Regen acActiveViewport 'aktualisiert die Zeichnung
            ThisDrawing.Utility.Prompt vbNewLine & "Typenschild wurde ausgefüllt"
End Sub

---

Das Makro sucht die gesamte Zeichnung nach dem Block "Typenschild" und ändert dann die dort enthaltenen Blockatribute. Jetzt soll es auf einem Rechner laifen, wo DWGeditor und nicht AutoCAD installiert ist laufen.

Hat einer ne IDee wie man den Code umfrickelt, dass er auch im DWGeditor laufen kann?
Ich scheitere schon an dem richtigen Ersatz für "AcDbBlockReference". Finde auch keine Doku dazu.

Danke  :-)

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

---

Problem selbst gelöst.
Hier der Code(vielleicht kanns jemand gebrauchen):

Code:

---

Public Sub fillTypenschild(MaschinenNr As String, Maschinenbezeichnung As String, Pumpenbezeichnung As String, Jahr As String, _
                        qWert As String, nWert As String, tWert As String, hWert As String, pWert As String, RhoWert As String) 'Typenschildfelder ausfüllen
    Dim BlockCol As Collection, Objekt As Object
    Set BlockCol = New Collection
    For Each Objekt In ActiveDocument.ModelSpace  'In Excel muss "Thisdrawing" durch "ActiveDocument" ersetzt werden
   
        If Objekt.Name = "Typenschild_DE" Then
                BlockCol.Add Objekt
                GoTo n
        End If

    Next
    ActiveDocument.Utility.Prompt vbNewLine & "Block Typenschild nicht gefunden"
    Exit Sub
n:
    Dim AktBlock As Collection
    Set AktBlock = BlockCol
    AktAtt = AktBlock(1)

            For j = 2 To 11
                DoEvents
                If AktBlock(1).Parent(j).TagString = "MACHINE_NO" Then AktBlock(1).Parent(j).TextString = MaschinenNr
                If AktBlock(1).Parent(j).TagString = "CLIENTS_NO" Then AktBlock(1).Parent(j).TextString = Maschinenbezeichnung
                If AktBlock(1).Parent(j).TagString = "TYPE" Then AktBlock(1).Parent(j).TextString = Pumpenbezeichnung
                If AktBlock(1).Parent(j).TagString = "YEAR" Then AktBlock(1).Parent(j).TextString = Jahr
                If AktBlock(1).Parent(j).TagString = "Q" Then AktBlock(1).Parent(j).TextString = qWert
                If AktBlock(1).Parent(j).TagString = "N" Then AktBlock(1).Parent(j).TextString = nWert
                If AktBlock(1).Parent(j).TagString = "T" Then AktBlock(1).Parent(j).TextString = tWert
                If AktBlock(1).Parent(j).TagString = "H" Then AktBlock(1).Parent(j).TextString = hWert
                If AktBlock(1).Parent(j).TagString = "P" Then AktBlock(1).Parent(j).TextString = pWert
                If AktBlock(1).Parent(j).TagString = "RHO" Then AktBlock(1).Parent(j).TextString = RhoWert
            Next
            ActiveDocument.Regen acActiveViewport 'aktualisiert die Zeichnung
            ActiveDocument.Utility.Prompt vbNewLine & "Typenschild wurde ausgefüllt"
End Sub

---

Einziger Hacken an dem Code ist, dass man die Textattribute "gezielt" ansprechen muss. Kann also nicht nach einem bestimmten Block/Attribute gesucht werden. Wer es kann, soll's posten.

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