Hello there,
i thought i had it, but sometimes i can't extract the xrecords the vertical i work with attaches to objects to store data.
I use
(if (cdr (assoc 360 el_np))
(IF (and (CDR (ASSOC 102 el_np))
(assoc 360 (ENTGET (cdr (assoc 360 el_np))))
) ;_ end of and
(PROGN
(setq dic
(entget
(cdr (assoc 360
(ENTGET (cdr (assoc 360 el_np)))
) ;_ end of assoc
) ;_ end of cdr
) ;_ end of entget
) ;_ end of setq
(WHILE (SETQ DICT (CDR (ASSOC 360 DIC)))
(setq NAME (CDR (ASSOC 3 DIC)))
(setq DIC (CDR (MEMBER (ASSOC 360 DIC) DIC)))
(sETQ XREC (ENTGET DICT))
(SETQ
DATA (APPEND
DATA
(LIST
(APPEND
(LIST NAME)
(CDR (MEMBER '(100 . "AcDbXrecord")
XREC
) ;_ end of MEMBER
) ;_ end of CDR
) ;_ end of APPEND
) ;_ end of LIST
) ;_ end of APPEND
) ;_ end of SETQ
) ;_ end of WHILE
) ;_ end of PROGN
) ;_ end of IF
)
i wonder, is there a better, more sophisticated way to extract from the attached object? or what is wrong in my code that makes it not work sometimes?
Thanks
Bernd