---

Hallo zusammen

wie kann ich die erweiterten Daten die ich einem Objekt mit

Code:

---

object.SetXData XDataType, XData

---

angefügt habe, wieder entfernen.

Gruß

Karl

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

---

Hi Karl,

einfach überschreiben mit demselben Applicationsnamen
Sowas wie 'RemoveItem' scheints nicht zu geben oder ich kenne/weisses nur noch nicht;-)
Hier mal das SetXData-Example mit [möglicher] Erweiterung

Code:

---

Sub Example_SetXdata()
    ' This example creates a line and attaches extended data to that line.
    ' Create the line
    Dim lineObj As AcadLine
    Dim startPt(0 To 2) As Double, endPt(0 To 2) As Double
    startPt(0) = 1#: startPt(1) = 1#: startPt(2) = 0#
    endPt(0) = 5#: endPt(1) = 5#: endPt(2) = 0#
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPt, endPt)

    ZoomAll

    ' Initialize all the xdata values. Note that first data in the list should be
    ' application name and first datatype code should be 1001
    ReDim DataType(3) As Integer
    ReDim Data(3) As Variant
           
    DataType(0) = 1001: Data(0) = "Del_XData_Test_Application"
    DataType(1) = 1000: Data(1) = "test one"
    DataType(2) = 1000: Data(2) = "test two"
    DataType(3) = 1000: Data(3) = "test three"
       
    ' Attach the xdata to the line
    lineObj.SetXData DataType, Data
   
    ' Return the xdata for the line
    Dim xdataOut As Variant
    Dim xtypeOut As Variant
    lineObj.GetXData "", xtypeOut, xdataOut
   
    'X-Data Message die Erste
    Dim i%, s$
    For i = 0 To UBound(xdataOut)
      s = s & xdataOut(i) & Chr(13)
    Next
    MsgBox s
   
    'die letzten 2 Dims löschen
    ReDim Preserve DataType(0 To 1)
    ReDim Preserve Data(0 To 1)
    '[über]schreiben
    lineObj.SetXData DataType, Data
    'lesen
    lineObj.GetXData "", xtypeOut, xdataOut
   
    'X-Data Message die Zweite
    s = ""
    For i = 0 To UBound(xdataOut)
      s = s & xdataOut(i) & Chr(13)
    Next
    MsgBox s
End Sub

---

Gruss Nancy
                           

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

---

auf www.cadwiesel.de unter Sonstiges -> XDATA gibs da ein Tool für .. ist aber in Lisp

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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