---

Hallo,

ich habe in einer Zeichnung zwei Objekte mit dem Befehl _-group gruppiert. Nun möchte ich die unreferenzierten Gruppen bereinigen. Das kann ich

1.) mit dem Befehl -BEREINIG so:

Befehl: -BEREINIG

Typ der zu bereinigenden ungenutzten Objekte eingeben
[BLöcke/BEmstile/Gruppen/LAyer/LTypen/MAterialien/MUlti-führungslinienstile/Plot
stile/Symbole/Textstile/Mlinienstile/tabellENstile/Visuellestile/Regappl/Nulllän
gengeometrie/leere teXtobjekte/ALles]: grupp
Zu löschende(n) Namen eingeben <*>:
Jeden zu löschenden Namen bestätigen? [Ja/Nein] <J>: n

Keine unreferenzierten Gruppen gefunden.

2.) mit dem Lisp-Code so:

Befehl: (vlax-for vlaobj (vla-get-groups (vla-get-activedocument
(vlax-get-acad-object))) (if (wcmatch (strcase (vla-get-name vlaobj)) (strcase
"*")) (vl-catch-all-error-p (vl-catch-all-apply 'vla-delete (list vlaobj)))))
nil

Mit dem Lisp-Code werden allerdings auch die referenzierten Gruppen (= Gruppen mit vorhandenen Objekten) bereinigt und das möchte ich eigentlich nicht.

Wie muss ich den obigen Lisp-Code ändern, dass nur die unreferenzierten Gruppen bereinigt werden?

Danke im Voraus und viele Grüße
Bernd

[Diese Nachricht wurde von Bernd10 am 18. Okt. 2012 editiert.]

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

---

ungetestet: ( ich hoffe ich hab alle Klammern )

(vlax-for vlaobj (vla-get-groups (vla-get-activedocument
(vlax-get-acad-object)))
(if (=(vla-get-count vlaobj)0)
  (vl-catch-all-error-p
    (vl-catch-all-apply
      'vla-delete (list vlaobj)
      )
  )
)
)

------------------
Also ich finde Unities gut ...
---------------------------------------
  - 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

---

Hallo Thomas,

danke für Deine Antwort.

Zitat:

---

Original erstellt von CADmium:

(vlax-for vlaobj (vla-get-groups (vla-get-activedocument
(vlax-get-acad-object)))
(if (=(vla-get-count vlaobj)0)
  (vl-catch-all-error-p
     (vl-catch-all-apply
       'vla-delete (list vlaobj)
      )
  )
)
)

---

es sind alle Klammern da und es funktioniert wie gewünscht. Allerdings verstehe ich den Codeteil (=(vla-get-count vlaobj)0) nicht.

Kannst Du mir das noch kurz erklären?

Viele Grüße
Bernd

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

---

naja, wenn die Gruppe leer ist - d.h. keine Objekte enthält , soll sie gelöscht werden ....

------------------
Also ich finde Unities gut ...
---------------------------------------
  - 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

---

Hallo Thomas,

Zitat:

---

Original erstellt von CADmium:
naja, wenn die Gruppe leer ist - d.h. keine Objekte enthält , soll sie gelöscht werden ....

---

danke für die Information.

Viele Grüße
Bernd

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