(setq aa (entget(entlast)))
--> aa = GC-Liste der Blockreferenz
(cdr(assoc 360 aa))
--> hier das Xdict-Object der Blockreferenz
(setq bb (entget (cdr (assoc 360 aa))))
--> bb= GC-Liste des Xdict-Objects der Blockreferenz
vom ObjTyp Dictionary mit den 2 UnterDicts
"AcDbBlockRepresentation" und "AcDbContextDataManager"
(setq cc (entget (cdr (assoc 360 bb))))
-> cc = GC-Liste des 1. gefundenen Unterdicts "AcDbBlockRepresentation"
welches die Unterdicts "AcDbRepData" und "AppDataCache" enthält
(setq dd (entget (cdr (assoc 360 cc))))
-> dd = GC-Liste des 1. gefundenen Unterdicts "AcDbRepData" welches den Typ
"ACDB_BLOCKREPRESENTATION_DATA" representiert
(cdr (assoc 340 dd))
liefert dann das Blockdefinitionsobjekt und
(setq ee (entget (cdr (assoc 340 dd)))) dann die zugehörige GC-Liste
wo ne Menge GC310 für die "Dynamik" mit gespeichert sind ...im Textfenster wird die Liste abgeschnitten, so dass nur die letzten GC-Einträge sichtbar sind..
probier einfach mal
(setq FF nil)
(repeat 12
(setq FF (cons(car EE) FF))
(setq EE (cdr EE))
)
(reverse FF)
dann hast du die ersten 12 GC von EE in FF gespeichert und unter denen findest du wohl die Informationen, die du suchst ..
oder du druckst den Inhalt von EE in eine Datei ..
Der Block selbst ist völlig ok.
P.S. Warum fragst du nicht im Lispforum weiter sondern machst hier einen neuen Thread auf?
------------------
- 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