(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
Vereint die langjährige Erfahrung von pit-cup im Bereich der Gebäudetechnikplanung
und des Facility Management zu einem durchgängigen 2D/3D CAD/BIM Planungswerkzeug, über den gesamten Lebenszyklus einer Immobilie.
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13533 Registriert: 30.11.2003
.
erstellt am: 29. Mai. 2006 21:15 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD