---

Hallo,

ich habe einem SelectionSet so Objekte hinzugefügt:

Code:

---

'newPointsDbl sind die Punkte meiner Polylinie
selOm.SelectByPolygon mode, newPointsDbl

---

Dann lasse ich den Benutzer noch eine Polylinie anklicken:

Code:

---

ThisDrawing.Utility.GetEntity newPoly, insertPoint, vbNewLine & "Polylinie wählen"

---

Und jetzt möchte ich die Polylinie zu meinem bestehenden SelectionSet hinzufügen.

Habe das mit der Funktion mySelectionSet.AddItems versucht.

Code:

---

selOm.AddItems newPoly

---

Ging so nicht.
Dann habe ich alle Objekte aus dem ersten SelectionSet in einen Object-Array geschrieben und zuletzt noch meine Polylinie hinzugefügt, um diesen Array dann einem neuen SelectionSet hinzuzufügen.

Code:

---

    For i= 0 To selOm.Count
        ReDim Preserve ssObj(0 To i
        Set ssObj(i = selOm(i
    Next
   
    ReDim Preserve ssObj(0 To UBound(ssObj) + 1)
    Set ssObj(UBound(ssObj) + 1) = newPoly

---

Und dann:

Code:

---

newSelOm.AddItems ssObj

---

Die Objekte, die im bestehenden SelectionSez waren, hat er mir auch in das neue hinzugefügt, nur diese verdammtePolylinie will nicht...

Ich krieg da so ne Fehlermeldung:
-2145386482 Null-Objektzeiger

Weiss jemand Rat?

------------------
Grüse Benny

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

---

Hi Benny,

Machs doch so:

Code:

---

Sub benny()
  Dim sset As AcadSelectionSet
  On Error Resume Next
  ThisDrawing.SelectionSets.Item("SS2").Delete
  Set sset = ThisDrawing.SelectionSets.Add("SS2")
  sset.SelectOnScreen
  Dim Object(0) As AcadEntity
  Dim Ausgabe As String
  Dim Pickedpoint As Variant
  Ausgabe = "Polylinie wählen:"
  ThisDrawing.Utility.GetEntity Object(0), Pickedpoint, Ausgabe
  sset.AddItems Object
  sset.Highlight True
  MsgBox "Ausgewählte Objekte"
  sset.Highlight False
End Sub

---

Ist zwar nicht schön, aber auf die schnelle reicht es. 

Gruß, Carsten

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

---

Hallo Carsten,

danke, es hat geklappt. Versteh zwar net, warum meine Variante nicht hingehaut hat, aber egal.

Wichtig, dass es funktioniert! 

------------------
Grüse Benny

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