---

Möchte ein kleines Pogramm zum auflösen von Gruppen erstellen. Eigentlich kein großes Thema, aber wie komme ich an alle Gruppennamen. Kenne mich in dem Bereich von Lisp nicht so gut aus.

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

---

Die Gruppen bekommst du , indem du das Dictionary "ACAD_GROUP" druchsuchst ....
z.B.
(defun DT:GROUP-GETALL-GC(/ GRPDICT GROUPS)
  (if(setq GRPDICT (dictsearch (namedobjdict) "ACAD_GROUP"))
    (progn
      (while (setq GRPDICT(member(assoc 3 GRPDICT)GRPDICT))
        (if(=(car(cadr GRPDICT))350)       
          (setq GROUPS(cons(list(strcase(cdr(car GRPDICT)))(cdr(cadr GRPDICT)))GROUPS))
        )
        (setq GRPDICT (cdr GRPDICT))
      )
      (reverse GROUPS)
    )   
  )
)

mit ActiveX hilft vielleicht diese Beispiel weiter

(vlax-for G
(vla-get-groups(vla-get-activedocument(vlax-get-acad-object)))(vlax-dump-object G))

aber zu beiden Varianten , und auch zu deinem Programmwunsch  .... gibts genügend vollständige Tools im Netz...

------------------
      - 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,
bei Gruppen fällt mir auf Anhieb Marc Scherer ein, der hat mal ein paar tolle Routinen zur Verfügung gestellt, einfach mal durchdebuggen, da wird dann schon so mancher Groschen fallen: http://ww3.cad.de/foren/ubb/Forum145/HTML/000019.shtml#000017

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

Jörn
http://www.bosse-engineering.com

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

---

.. jo .. für damals nicht schlecht  ...    ....  Säge

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