Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  AutoCAD VBA
  Gruppenbeschreibung auslesen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Gruppenbeschreibung auslesen (892 mal gelesen)
Werner K
Mitglied


Sehen Sie sich das Profil von Werner K an!   Senden Sie eine Private Message an Werner K  Schreiben Sie einen Gästebucheintrag für Werner K

Beiträge: 2
Registriert: 31.01.2013

erstellt am: 31. Jan. 2013 11:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

ACAD 2008 Mechanical

erstellt am: 31. Jan. 2013 11:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Werner K 10 Unities + Antwort hilfreich

ü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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



Sehen Sie sich das Profil von CAD-Huebner an!   Senden Sie eine Private Message an CAD-Huebner  Schreiben Sie einen Gästebucheintrag für CAD-Huebner

Beiträge: 9732
Registriert: 01.12.2003

AutoCAD 2.5 - 2022, LDD, MDT, RD, ADT, Civil
Inventor AIP 4-11, 2008 -2022
Win 10

erstellt am: 31. Jan. 2013 12:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Werner K 10 Unities + Antwort hilfreich

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

Werner K
Mitglied


Sehen Sie sich das Profil von Werner K an!   Senden Sie eine Private Message an Werner K  Schreiben Sie einen Gästebucheintrag für Werner K

Beiträge: 2
Registriert: 31.01.2013

erstellt am: 31. Jan. 2013 19:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz