---

Servus an alle Gurus hier im Forum!

Ich hänge gerade bei einem Projekt furchtbar in den Seilen und weiß nicht mehr weiter.
Vielleicht kennt sich einer von euch ja aus und kann mir weiterhelfen.

Mein Problem:
Ich muss den Inhalt der Beschreibung einer Gruppe auslesen um die dort von einer Fremdsoftware hinterlegten Daten weiterverarbeiten zu können. Leider unterstützt das AutoCAD-VBA Objektmodell die Eigenschaft ".describition" nicht bei Gruppen.
Es gibt zwar die AsdkUnsupp2013.arx aus den mittlerweile frei zugänglichen ADN-Utilities um auf die Gruppenbeschreibung zugreifen zu können. Ich kann sie aber nicht verwenden weil mein Tool auch unter Bricscad laufen muss. Und das unter Bricscad unterstützte BRX ist nur Quellcode- aber nicht binärkompatibel mit ARX.

Hat jemand vielleicht einen Rat wie ich das Problem umschiffen kann.
Notfalls auch in .NET oder Lisp.

Dank schon Mal

Werner

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

---

über Lisp geht das über den GC 300 ..
z.B:

(vl-load-com)
(defun GROUP-GET-DESCRIPTION(GRNAME / GRS)
  (vlax-for ITEM (vla-get-groups (vla-get-activedocument (vlax-get-acad-object)))
    (setq GRS(cons (list (strcase(vla-get-name ITEM))ITEM )GRS))
  ) 
  (if(and(=(type GRNAME)'STR)
        (setq GR(cadr(assoc(strcase GRNAME)GRS)))       
        (setq GR(vlax-vla-object->ename  GR))
        (setq GRDATA(entget GR '("*")))
    )   
    (cdr(assoc 300 GRDATA))
  )
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Hier auch noch eine Variante ohne Active X

Code:

---

;; Erstellt eine Liste mit allen Gruppennamen und deren Beschreibung
;; Udo Hübner
(defun C:ListGroupnamesAndDescription ()
  (foreach entry (dictsearch (namedobjdict) "ACAD_GROUP")
  (cond
    ((= 3 (car Entry)) ; Gruppenname
    (prompt (Strcat "\nGruppenname:\t" (cdr Entry))))
    ((= 350 (car Entry)) ; Gruppenbeschreibung
    (prompt (Strcat "\tGruppenbeschreibung:\t" (cdr (assoc 300 (entget (cdr Entry)))))))
    ('T nil)
  )
)
(prin1)
)
; gleich ausführen
(C:ListGroupnamesAndDescription)

---

In ARX muss man analog zum Lisp Code evt. erst von der Gruppe auf das Gruppenbeschreibungsobjekt gehen.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo ihr beiden,

Danke. Ich werde mir euren Code ansehen.
Eine Rückmeldung gebe ich dann am Montag.

Beste Grüße
Werner

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