---

Wie kann man der Gruppenname auslesen.

(entget (car (entsel))).... und dann
  oder soll ich das mit ActiveX machen.
so gehts
(setq
GRPDICT (dictsearch (namedobjdict) "ACAD_GROUP")
(while (< INDEX (length GRPDICT))
(if (= (setq CODE (car (nth INDEX GRPDICT))) 3)
(setq GROUPLIST (cons (cons (cdr (nth (1+ INDEX) GRPDICT))
(cdr (nth INDEX GRPDICT))
) ;_ end cons
GROUPLIST
) ;_ end cons
) ;_ end setq
) ;_ end if
(setq INDEX (1+ INDEX))
)

Aber ich will die Gruppe mit (entget (car (entsel)))....  direkt wählen

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

---

Hallo RoyCAD,
mit folgender Zeile bin ich an den Gruppennamen gekommen:

(cdr(assoc 3
    (entget(cdr(assoc 330
        (entget(cdr(assoc 330(entget(car(entsel)))))))))))

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

Jörn

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

---

zu Gruppen steht eigentlich (fast  ) alles hier

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