---

Hallo allerseits!
In den vergangenen Tagen habe ich mich in die Thematik XDATA vertieft. Meine Frage, auf die ich noch keine Antwort fand ist: Wie kann ich verläßlich feststellen, ob ein ausgewähltes Objekt über XDATA verfügt oder nicht? Meine Vorstellungen gingen zunächst in die Richtung, daß es eine Methode bei den Objekten ähnlich der bei Blöcken ".HasAttributes" gibt. Das ist ja aber nicht der Fall.

MfG Günter

------------------
MfG

Günter

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

---

http://adndevblog.typepad.com/autocad/2013/01/xdata-using-vla-get-and-vla-set.html

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Nachdem es hier anscheinend um VBA gehen soll, kannst Du Dir mal die GetXData Methode ansehen
Damit kannst Du die Daten abfragen (object.GetXData AppName, XDataType, XDataValue)

Wenn es aber keine eigene Applikation ist und Du keine weiteren Infos hast könnte die Interpretation der Werte Schwierigkeiten bereiten. Hatte mal eine Auswertung der XData von Canalis geschrieben, aber nachdem ich mir die "übersetzten" Werte über die Applikation anzeigen konnte war das relativ einfach.

Kennst Du Dich mit dem VLisp - Editor aus? Dort könntest Du Dir auch die XData der Objekte einfach anzeigen lassen.

Grüße
Klaus  

Edit:
Zum Abfragen der XData auszug aus der Hilfe:

Code:

---

Sub Ch10_ViewXData()
    ' Suchen der im vorherigen Beispiel erstellten Auswahl
    Dim sset As Object
    Set sset = ThisDrawing.SelectionSets.Item("SS1")

    ' Definieren der XDaten-Variablen zum Erfassen der XDaten-Informationen
    Dim xdataType As Variant
    Dim xdata As Variant
    Dim xd As Variant

    'Definieren des Indexzählers
    Dim xdi As Integer
    xdi = 0

    ' Durchlaufen der Objekte im Auswahlsatz
    ' und Abrufen der XDaten für das Objekt
    Dim msgstr As String
    Dim appName As String
    Dim ent As AcadEntity
    appName = "MY_APP"
    For Each ent In sset
        msgstr = ""
        xdi = 0

        ' Abrufen von XDatentyp und -wert für appName
        ent.GetXData appName, xdataType, xdata

        'Wenn die Variable xdataType nicht initialisiert wurde, dann
        ' waren keine appName-XDaten für dieses Element abrufbar
        If VarType(xdataType) <> vbEmpty Then
            For Each xd In xdata
                msgstr = msgstr & vbCrLf & xdataType(xdi) _
                        & ": " & xd
                xdi = xdi + 1
            Next xd
        End If

        ' Hat die Variable msgstr den Wert NULL, waren keine XDaten vorhanden
        If msgstr = "" Then msgstr = vbCrLf & "NONE"
        MsgBox appName & " xdata on " & ent.ObjectName & _
                                      ":" & vbCrLf & msgstr
    Next ent
End Sub

---

Ist Dir die Application nicht bekannt setzt Du für appName = "" ein, dann erhältst Du alle Daten

[Diese Nachricht wurde von KlaK am 11. Jan. 2015 editiert.]

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

---

Hallo Klaus,
Ich kenne mich mit dem VLISP-Editor nicht aus. In deinem Beispiel steckt aber, was ich suchte. Zumindest denke ich, daß ich damit meine Vorstellungen umsetzen kann.
Das wars was ich suchte:

If VarType(xdataType) <> vbEmpty Then
            For Each xd In xdata
                msgstr = msgstr & vbCrLf & xdataType(xdi) _
                        & ": " & xd
                xdi = xdi + 1
            Next xd
        End If

Auf die Idee, die XDATAtype  auf vbempty zu prüfen bin ich nicht gekommen. Ich werde das morgen mal ausprobieren.

Nochmal zum Thema Vlisp-Editor. Wie ruft man den auf und wo finde ich die Einsteigerhilfe? Ich nehme mal an, das dieser auch Bestandteil von AutoCAD ist. Oder?

MfG Günter

------------------
MfG

Günter

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

---

Hallo Günther,

Aufruf einfach über die Befehlszeile: VLisp

Über Ansicht - Zeichnungsdatenbank durchsuchen ..
kannst Du Dir dann die Objekte anzeigen lassen

Über F1 kann man natürlich in der Hilfe fündig werden 
allerdings eine gute Erklärung zum Editor habe ich dort noch nicht gefunden ...

Grüße
Klaus 

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

---

Hallo Klaus,

ich habe das heute mal ausprobiert. Die Variante mit der Zuweisung der XDATA mittels Objekt.GetXDATA, ..... und anschließender Überprüfung auf vbEmpty ist gut. Das trifft meine Vorstellungen.

Nochmals Danke für die Hilfe.

Gruß Günter

------------------
MfG

Günter

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