---

Hallo Forum,

ich versuche in folgenden Auswahlsatz einen Filter für geschlossenen Polylinien einzufügen.

'Selectionset erstellen
            Dim tSSet As AcadSelectionSet
            Dim tDxfCodes(2) As Integer
            Dim tDxfValues(2) As Variant
           
            On Error Resume Next
            Set tSSet = ThisDrawing.SelectionSets.Add("Flaechen")
            If (tSSet Is Nothing) Then Set tSSet = ThisDrawing.SelectionSets.Item("Flaechen")
            tSSet.Clear
            On Error GoTo 0
           
            tDxfCodes(0) = 410
            tDxfValues(0) = "Model"
            tDxfCodes(1) = 8
            tDxfValues(1) = aktLayer.Name
            tDxfCodes(2) = ??  'Hier Code für geschlossenen *PL eingeben.
            tDxfValues(2) = ??

Kann mir jemand sagen, wie die zwei Werte heißen müssen, wenn ich nur geschlossenen *Polylinien" haben möchte?

------------------
Grüße aus München
Christian

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

---

70 auf 1 

zur selbsthilfe :

eine offene PL zeichen und dann in der Befehlszeile
(entget(car(entsel)))
PL über Eigenschaftsfenster schließen und dann wieder
(entget(car(entsel)))

Werte vergleichen

oder die Hilfe bemühen ...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Ein spätes, aber ein Danke.

------------------
Grüße aus München
Christian

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