AutoLisp access to drawing database

I need to get into the data stored in the drawing database of any
drawing (autocadMap 2000i). More specifically I need to get into the
Named Objects Dictionary and then into the ACAD_IMAGE_DICT dictionary
within that. I have LISP experience, but not in this area. Can anyone
assist me here? Can anyone , at least, tell me about access to the
dictionaries in the database? Thanks, Joe

 

This should get you started....this is taken from a routine I wrote to
remove any unreferenced images.

(setq id (dictsearch (namedobjdict) "acad_image_dict"))
(setq symlst (massoc 3 id))
(setq enamelst (massoc 350 id))

and here is the (massoc) function that has been posted in many places:


(defun massoc (key alist / x nlist)
(foreach x alist
(if (eq key (car x))
(setq nlist (cons (cdr x) nlist))
)
)
(reverse nlist)
)

HTH,
Jeff

 

Thanks, Jeff. That looks like exactly what I need. I could get to
the database area, but was unable to really get into the data other
than build a list.

** JOE **

 

Are you looking to export data from a drawing to Access, such as title block
information? I wrote a program that does that with a combonation lisp and
VBA.

BRC

 

Actually I am in the need of a way to send info back and forth to an
Access database.I have looked at something called ADOLISP and it may
solve the issue, but I would be pleased to see what you have. Thanks,
Joe