---

Hallo Forum!

Kann man den Fehler..
Fehler: Maximale Anzahl von Auswahlsätzen überschritten
.. irgendwie verhindern, bzw. die SelSets löschen!?!

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

---

Hallo,
wenn ich einen Auswahlsatz habe, z.B.
(setq aws (ssget))
dann kann ich diesen, wenn ich ihn nicht mehr benötige wieder auf nil setzen.
(setq aws nil)

------------------
viele Grüße

Jörn

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

---

.. dadurch wird aber nicht der fehler verhindert .. alles schon ausprobiert. innerhalb von autocad bleibt immernoch etwas vom selection set zurück, das ich bis jetzt nicht entfernen konnte!

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

---

mit activeX kannst du die Auswahlsatzobjekte löschen, ansonsten ist IMHO bei 127 Schluß.

(vlax-for ITEM (vla-get-SelectionSets(vla-get-activedocument(vlax-get-acad-object)))
(vla-delete ITEM)
)

------------------
       - 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

---

das klingt gut .. werde ich gleich mal ausprobieren .. danke!

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

---

.. nach dem Holen der Selection Sets ist der count immer 0!
Ist es möglich, dass ich mit dieser Methode nur Selection Sets greifen kann, die auch mit vl-Funktionen erstellt wurden??

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

---

hmm .. scheint so ... habs mal mit
(setq i 0)
(repeat 260
  (setq i (1+ i))
  (set (read(strcat "AWS"(itoa i))) (ssadd))
  (princ "\n")
  (princ i)
)
in einem jungfäulichen ACAD mit einer Zeichnung getestet .. bei 127 ist Schluß.
Anschließend in einer neuen, parallel geöffneten Zeichnung (SDI=0) kommt dann  bei erstem (ssadd) erneut die Fehlermeldung "Fehler: Maximale Anzahl von Auswahlsätzen überschritten", was darauf schließen läßt, das da wohl ein anderer Namespaces für die Auswahlsätze genutzt wird , als bei der ActivX-Variante, wo die Selectionssets innerhalb des Dokumentes verwaltet werden.

Sorry fürs nicht weiterhelfen

------------------
  - 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

---

.. so nun hab ich so ziemlich alles probiert was ich im netz gefunden hab .. (gc) oder kleine funktionen zum löschen der selection sets .. hat alles nicht funktioniert. mir ist aufgefallen, dass "align", welches ich ziemlich häufig benutze die ganze sache erheblich verschlimmert. anscheinend benutzt "align" intern auch selection sets und hinterlässt diese dann im speicher.
"align" war vorher schon ein problem, da es bei mir keine koordinaten mit mehr als 4 nachkommastellen vernünftig verarbeitet (folge: objekte lagen falsch im raum). wenn ich "align" auskommentiere kann ich bei weitem länger arbeiten ohne den selection-set-überlauf zu bekommen!

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

---

Zitat:

---

Original erstellt von argh:
.. so nun hab ich so ziemlich alles probiert was ich im netz gefunden hab .. (gc)

---

Das Problem rührt daher, dass Picksets keine echten LISP-Daten sind, sondern sowas ähnliches wie Pointer auf offene Dateien. Ich habe schon vor vielen Jahren aufgegeben, in meinen Programmen Picksets zu verwenden. Jedes Pickset wird bei mir unmittelbar nach Erzeugung in eine Liste von Entitynamen umgewandelt, und mit dieser Liste kann man dann völlig LISP-konform weiter arbeiten, ohne auf irgend welche Begrenzungen der Datenstrukturen Rücksicht nehmen zu müssen. Verlust an Performance musst Du dabei nicht befürchten - eher im Gegenteil ...

Code:

---

(defun mapent (fun ss / i)
  (repeat (setq i (sslength ss))
    ((lambda (proc args / ss fun i)
      (apply
        proc
        args
      )
    )
      fun
      (list (ssname ss (setq i (1- i))))
    )
  )
)

(defun ss2el (ss / res)
  (mapent (function (lambda (en) (setq res (cons en res))))
          ss
  )
  res
)

(defun el2ss (eset / sset x)
  (setq sset (ssadd))
  (mapcar '(lambda (x)
            (if (= 'ENAME (type x))
              (setq sset (ssadd x sset))
            )
          )
          eset
  )
  sset
)

---

Tom

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