---

Liebes Forum,
Mittels VBA hab schreibe ich die Attribute einer Form in das Schriftfeld das in einem Layout vorhanden ist. Das funktioniert auch solange nur ein Layout vorhanden ist. Erstelle ich ein 2. Layout das dasselbe Schriftfeld benutzt kann ich weder vom Schriftfeld Lesen oder ins Schriftfeld schreiben. Wie unterscheidet man in welches Schriftfeld man schreibt mit VBA code?

Danke für Eure Hilfe.

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

---

Hallo vittorio,

was verstehst du in diesem Zusammenhang unter einem Schriftfeld?
Meinst du das Objekt: Field oder eine Blockreferenz, bei welcher du die Attribute füllst?

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo Holger

Mit Schriftfeld meine ich Zeichnungskopf, ein Block mit Attributen.
Dieser Block ist in mehreren Layouts mit dem gleichen Namen vorhanden.

Gruss und danke für die Hilfe
Vittorio0

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

---

... und wie greifst du auf die Blockreferenz zu? Da wäre mal ein Code-Ausschnitt ganz gut, um zu sehen, von wo du die ObjectId der zu bearbeitenden Blockreferenz holst und wie du dann auf die Attribute zugreifst.
(So ganz kann ich mir nicht erklätren, weshalb das Hinzugügen einer weiteren Blockreferenz dazu führen soll, dass nichts mehr zu ändern geht ???)

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo Holger

Hier der code der mit einem Layout funktioniert. Wenn ich wüsste wie man sagt ins aktuelle Layout schreiben, würde das funktionieren.

Code:

---

Private Sub btnAttrToDwg_Click()
' Editierte Attribute zurück in Block schreiben
' MsgBox "Schriftfeldname zur Zeichnung " & ThisDrawing.GetVariable("dwgname"), vbInformation, "Schriftfeldname ist: " & SF
' Update the attribute values

On Error GoTo err_control

Dim EntGrp(1) As Integer
Dim EntPrp(1) As Variant
EntGrp(0) = 0
EntPrp(0) = "INSERT"
EntGrp(1) = 2
EntPrp(1) = "SF1,SF2" ' Schriftfeld SF1 oder SF2 suchen

' create a selection set
  On Error Resume Next
  Set ssnew = ThisDrawing.SelectionSets("TBLK")
  If Err.Number Then
    Set ssnew = ThisDrawing.SelectionSets.Add("TBLK")
  End If
  On Error GoTo 0
   
  ' finde den Block
  ssnew.Select acSelectionSetAll, , , EntGrp, EntPrp
 
  'If a block is found
  If ssnew.Count >= 1 Then
    MsgBox "Es sind " & ssnew.Count & " Blöcke in der Zeichnung vorhanden.", vbInformation, "Gefundene Blöcke..."
    Else
        MsgBox "kein Schriftfeld gefunden.", vbInformation, "update Schriftfeld..."
    Exit Sub
  End If
     
  'Get the block's attributes
    tatts = ssnew.Item(0).GetAttributes
    SF = ssnew.Item(0).Name
      SF = UCase(SF)
   
 
' Show message
    Select Case SF
        Case "SF2", "SF2"
          'MsgBox SF & " wurde gefunden.", vbInformation, "Name des Schriftfeldes: " & SF
    End Select

Select Case SF

    Case "SF1"

        'MsgBox "SF1 erkannt", , "SF1 wird geschrieben..."

      tatts(0).TextString = Nz(frmEditAttr.F0.Text, "")  'Zeichnungsnummer
      tatts(1).TextString = Nz(frmEditAttr.F2.Text, "")  'Titelzeile
      tatts(2).TextString = Nz(frmEditAttr.F39.Text, "")  'Untertitel 1
      tatts(3).TextString = Nz(frmEditAttr.F52.Text)   'Untertitel2
      tatts(4).TextString = Nz(frmEditAttr.F3.Text)      'Zeichnungspfad 
      tatts(5).TextString = Nz(frmEditAttr.F62.Text, "")  'Zeichner

    Case "SF2"

      'MsgBox "SF2 gefunden", , "Schriftfeld SF2 wird geschrieben..."

.
.
.
' usw

End Select

    'update the block
    ssnew.Item(0).Update
    Me.Infoline = "Attribute wurden in den Zeichnungskopf  übertragen und Zeichnung gesichert"
    ThisDrawing.Save
   
exit_sub:
Exit Sub

err_control:

MsgBox Err.Number & " : " & Err.Description & " in Routine btnAttrToDwg_Click()"
Me.Infoline = "Fehler beim Schreiben zur Zeichnung..."
GoTo exit_sub
End Sub

---

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

---

Hallo,
Du musst einen SelectionSet-Filter definieren, der nur auf dem aktuellen Layout sucht. Das müsste der 410 er Gruppencode sein, das aktuelle Layout bekommst du über ein SysVar clayout?
Grüße
holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo,
wie würde ich so ein SelectionSet-Filter definieren, dass in meinem Beispiel nur im jeweiligen activen Layout die in der Liste aufgeführten Blockreferenzen gefunden werden? So wie der code jetzt ist, nimmt er immer das letzte Layout, egal ob ich in Layout1, 2 oder 3 bin.

Besten Dank!

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

---

... Schau dir mal den anderen Beitrag an, der gerade in diesem Forum
Diskutiert wird.
Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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