---

also hier ist der Code

Code:

---

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
'    On Error Resume Next
    Dim datanow(0 To 31)
    For i = 0 To 31
        datanow(i) = "Value " & i
    Next
    WriteXRec "FirstLine", datanow
    ReadXRec "FirstLine", datanow
End Sub

Public Sub WriteXRec(varName As String, ByVal Data As Variant)
  Dim oDict As AcadDictionary
  Dim oXRec As AcadXRecord
  Dim dxfCode(0 To 31) As Integer
  Set oDict = ThisDrawing.Dictionaries.Add(ModName)
  Set oXRec = oDict.AddXRecord(varName)
  On Error Resume Next
  For i = 0 To 31
    dxfCode(i) = i
  Next

  oXRec.SetXRecordData dxfCode, Data
End Sub

Public Sub ReadXRec(varName As String, ByRef Data As Variant)
  Dim oDict As AcadDictionary
  Dim oXRec As AcadXRecord
  Dim dxfCode
  Dim dxfData(0 To 31)
  Set oDict = ThisDrawing.Dictionaries(ModName)
  Set oXRec = oDict.GetObject(varName)
  oXRec.GetXRecordData dxfCode, Data
End Sub

---

entweder der schreibt die Werte nicht in die Dictionaries rein, oder er liest sie nicht raus

vielen dank für jede Hilfe

Lars

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

---

hab vergessen, ganz oben steht noch

Code:

---

Const ModName = "Program01"

---

Bevor das Geschrei noch losgeht

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

---

Hi und Willkommen Lars,

Du gibst dem Xrecord ja nur den folgenden Eintrag mit:

Set oXRec = oDict.AddXRecord(varName)

Da müsstest du ihm auch die restlichen Werte mitgeben.

Durchlauf deinen Code mal Schrittweise und schau dir deine Variablen im Lokal-Fenster an. Da wirst du sehen, das du dem Xrecord nur den ersten Wert ("Fistline") mitgibst.

Gruß, Carsten

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

---

erstmal danke für die Antwort, aber ich geb dem schon die Werte

  Set oXRec = oDict.AddXRecord(varName)
  On Error Resume Next
  For i = 0 To 31
    dxfCode(i) = i
  Next

  oXRec.SetXRecordData dxfCode, Data

bei dem Schritt-für-Schritt dingens zeigt er mir alle Positionen in "Data" als Empty wenn ich es wieder rauslesen will

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

---

Hi,

Du gibst ihm aber nur einen Wert mit. Schau mal beim durchlaufen die Variablen an, dann wirst du es sehen. 

Du musst dem Xrecord die Value-Daten in der Schleife (i) mitgeben.

Gruß, Carsten

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

---

Die Variable "Data" ist schon ein Array von 0 bis 31

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

---

Hi,

Gib dem Xrecord das doch mal so mit:

  Set oDict = ThisDrawing.Dictionaries.Add(modname)
  Set oXRec = oDict.AddXRecord(varName)
  On Error Resume Next
  For i = 1 To 32
  Set oXRec = oDict.AddXRecord(Data(i))
  Next
  oXRec.SetXRecordData dxfCode, Data

Gruß, Carsten

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