Selectieren von xData's

Kann man mit VBA einzelne xdata Objecte selectieren?

z.B:
1001
"ARCX"
1002
"{"
1000
"&QUIID=69883836348738378348773734"
1002
"{"

Ich muss alle 1001 "ARCX" selectieren und und in diesen nach 1000
"&QUIID=69883836348738378348773734" suchen.
Bei mehreren verschiedenen "&QUIID=....." ist das sehr mühsam und das VBA
wird dadurch sehr langsam.
Gibt es eine einfachere Möglichkeit?

Erich

 

Hallo Erich

Auswahlsätze erlauben in der Filteroption EED's (bzw. deren AppID's) zu
selektieren.

Cheers

 

Und auch gleich ein Code-Fragment dazu:

Code:

Dim FltTyp(0) As Integer
Dim FltDat(0) As Variant
Dim SelSet As AcadSelectionSet

FltTyp(0) = 1001
FltDat(0) = "ARCX"
Set SelSet = ThisDrawing.SelectionSets.Add("Temp")
SelSet.Select acSelectionSetAll, , , FltTyp, FltDat

Cheers

 

Danke Jürg

Soweit bin ich auch schon!
Ich wollte eigentlich folgenes machen.

Das funktioniert eben nicht.

SelSet.count = 0

Hat also nichts selectiert.

mfg
Erich

 

Sorry Erich,

Leider funktioniert der Filter nur mit dem 1001 (AppId) Feld...
Kann mir aber nicht vorstellen, dass das Lesen von EED's langsam sein soll -
oder sind's tausende von Objekten?

Cheers

 

hi erich,

wenn deine QUIID... immer dein suchkriterium darstellt, dann kann es ein
nuetzlicher weg sein, den elementen eed-daten mit mehreren AppID's
dranzuhaengen.

z.b.

(1001) "ARCX"
(1002) {
(1000) ...... die objektbezogenen eigenschaften oder was auch immer
(1002) }

'dann einen zweiten "eed-record"

(1001) "ARCX_QUIID=69883836348738378348773734"
(1000) "ID" ==> nur dummy, weil zumindest ein feld unter AppID noetig

und jetzt ist der zustand erreicht, dass du ein selectionset fuer jede
id machen kannst.

- alfred -