---

Hallo,

mit oSelectionSet.Select acSelectionSetAll , , varFilterType , varFilterValue
kann ich die Auswahl der Objekte mit Hilfe von Filtern einschränken.
Das funktioniert gut bei Layern:
varFilterType[0] = 8
varFilterValue[0] = "MeinLayer"

Nun will ich alle Objekte eines Layers des Modellbereiches haben.
Dazu müsste man die Auswahl auf den Modellbereich einschränken.
Leider füllt er den Auwahlsatz mit den Angaben
varFilterType[0] = 410
varFilterValue[0] = "Model"
nicht.

In LISP würde das gehen mit (ssget "X" (list (cons 410 "Model"))). Ich will nicht iterativ den ModelSpace durchlaufen.

Hat jemand eine Idee?

VG, Fred

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

---

Hallo Fred,

Du musst als Filter die 67 anstatt der 410 nehmen, damit kannst du unterscheiden, ob es ein Layout oder das Modell sein soll.
Hier als Beispiel:

Sub Ch4_Filtertest()
  Dim sset As AcadSelectionSet
  Dim FilterType(1) As Integer
  Dim FilterData(1) As Variant
  On Error Resume Next
  ThisDrawing.SelectionSets.Item("SS2").Delete
  Set sset = ThisDrawing.SelectionSets.Add("SS2")
  FilterType(0) = 8    'Filter nach Layer
  FilterData(0) = "0"  'Layername
  FilterType(1) = 67  'Filter ob Modell oder Layout
  FilterData(1) = 0    'Modell (0) / Layout (1)
 
  sset.Select acSelectionSetAll, , , FilterType, FilterData
End Sub

Gruß, Carsten

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

---

Hallo Carsten,

vielen Dank für den Tipp. Funktioniert super.
Vorsichtige Frage: Kann man beim Suchen innerhalb von Layouts auch die Objekte eines bestimmten Layouts filtern?

(ssget "X" (list (cons 410 (getvar "CTAB"))))

Vielen Dank nochmals.

VG, Fred

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

---

Hallo Fred,

Du kannst leider keinen Filter für den Namen in den Auswahlsatz einbauen, da es ein seit Versionen bekannter Bug in der VBA-Schnittstelle ist.

Du kannst aber von einem Element erfahren, auf welchem Layout es liegt:

Public Sub test123()
Dim Object As Object
Dim promt As String
Dim Pickedpoint As Variant
On Local Error Resume Next
promt = "Objekt wählen:"
Utility.GetEntity Object, Pickedpoint, promt
If TypeName(Object) <> "Nothing" Then
MsgBox ThisDrawing.ObjectIdToObject(Object.OwnerID).Layout.Name
End If
End Sub

Ich würde daher im entsprechenden Layout die Elemente nach deinen Anforderungen durchsuchen.

Gruß, Carsten

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

---

Danke!

VG, Fred

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

---

Hallo schlaues Forum,

ich habe auch ein Problem mit meinen Filtern. Wenn ich mittels SelectionSet alle Blöcke die "60_40" heißen filtere - kein Problem. Wenn ich aber alle will, die entweder "60_40" oder "60_60" heißen funktioniert es nicht. Hier ist das CodeFragment, bitte um Hilfe:
 
  Dim blockset As AcadSelectionSet
  Dim FType(1) As Integer, FData(1)
 
  FType(0) = 2: FData(0) = "60_40"
  FType(1) = 2: FData(1) = "60_60"
 
  Set blockset = ThisDrawing.SelectionSets.Add("BLOCKSET13")
  blockset.Select mode:=acSelectionSetAll, Filtertype:=FType, filterdata:=FData

PS: jedes mal wenn das macro zwischen blockset.Select und blockset.delete abstürzt muss ich es umbenennen, gibts da irgendweilche tricks (... außer die "On error"- sache?

Gruß Peter

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

---

Hi Peter,

Überprüfe vor erstellung des Selectionsets, ob der vorhanden ist und leere ihn dann bzw. erstelle diesen, wenn nicht vorhanden.

Zu deinem Filter: Schau dir mal in der VBA-Hilfe unter filter lists for selection sets, logical grouping of filter tests die Beispiele an. Ist zwar Lisp, aber das kannst du auch in der Art in VBA nutzen.

Gruß, Carsten

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