---

Hi !

unter Einbeziehung der Gruppen-Zugriffsfunktionen aus http://ww3.cad.de/foren/ubb/Forum145/HTML/000019.shtml#000017 habe ich eine Funktion erstellt mit welcher ich auf die Elemente von Gruppen zugreifen möchte.

Code:

---

(if group_name
  (progn
    (princ "\ngroup_name: ")
    (princ group_name)
    (princ "\n\n")
    (command "_.select" "_group" group_name "")
    (setq aws_group (ssget "_p"))
    ;; Auslesen der Gruppenelemente
    (while (setq aws_group_ele (ssname aws_group (setq idx (1+ idx))))
      (princ "\naws_group_ele: ")
      (princ aws_group_ele)
      (princ "\n\n")
    ) ;end-while
  ) ;end-progn
) ;endif

---

Nun habe ich das Problem das als Elemente der Gruppe immer dieselben Objekte gelistet werden:

Zitat:

---

group_name: (*A24)
aws_group_ele: <Objektname: 7ffffb0a460>
aws_group_ele: <Objektname: 7ffffb0a450>

group_name: (*A25)
aws_group_ele: <Objektname: 7ffffb0a460>
aws_group_ele: <Objektname: 7ffffb0a450>

---

Das merkwürdige ist nur das in einer kleinen Testfunktion - bei der ich den Namen der Gruppe übergebe - ist das kein Problem:

(defun test100 (group_name / )
  (princ "\nTestfunktion")
  (princ "\nGruppenname: ")(princ group_name)
              (command "_.select" "_group" group_name "")
      (setq aws_group (ssget "_p")
    idx -1)
      ;; Auslesen der Gruppenelemente
      (while (setq aws_group_ele (ssname aws_group (setq idx (1+ idx))))
          (princ (entget aws_group_ele))
                  (princ "\n\n")
      );end-while
  );end-defun
(princ )

Irgendwie habe ich den Eindruck als wenn ich irgendwie im Wald stehe.

Kann mir einer von Euch weiterhelfen ?

Gruß Jan :-)

------------------
jan :-)

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

---

Also ich würd da gar nicht über (Command "_select"..) gehen , sondern die Gruppe über (vla-item(vla-groups .. ermitteln und die Objekte dann via (vlax-for ITEM GROUP ermitteln ....

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

dann meinst Du als Basis sicherlich

http://forums.augi.com/showthread.php?t=120913

Werde mich mal durchkämpfen obwohl ich mit vl noch nicht so bewandert bin.

Gruß Jan :-)

------------------
jan :-)

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

---

....zum Beispiel....

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

---

wenn du das ganze ohne vl machen willst:

Code:

---

(defun DictListAll (Root / DictRoot GrpList Temp)
  (setq DictRoot (entget Root))
  (while DictRoot
    (setq Temp (if (= (caar DictRoot) 3)
                (list (cons (cdr (car DictRoot))(cdr (cadr DictRoot))))
              )
          DictRoot (cdr DictRoot)
    )
    (setq GrpList (append GrpList Temp))
  )
)

---

mit

Code:

---

(setq lst (DictListAll (cdr (assoc "ACAD_GROUP" (dictlistall (namedobjdict))))))

---

bekommst du eine assoziierte liste in der form
(("GroupName1" . <Objektname: xxx>;) ("GroupName2" . <Objektname: yyy>;) ...)

und mit

Code:

---

(apply 'append (mapcar '(lambda(x) (if (= (car x) 340) (list (cdr x)))) (entget (cdr (assoc "gewuenschter Gruppenname" lst)))))

---

bekommst dann deine einzelnen elemente als liste anhand des gewuenschten gruppennamens.

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

... aber immer schön überprüfen, ob das Element auch noch existiert und nicht nur noch sein "Handle" im Gruppendictionary ! 

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

---

Zitat:

---

...aber immer schön überprüfen...

---

... wer macht denn sowas?

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

hi !

danke für die Hilfestellungen - Problem gelöst!

gruß Jan :-)

------------------
jan :-)

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