The following code is the beginning, but do not know how to proceed, somebody help? thanks
(setq
odbx (if (< (setq vers (substr (getvar "acadver") 1 2)) "16")
(vla-GetInterfaceObject
(vlax-get-acad-object)
"ObjectDBX.AxDbDocument"
)
(vla-GetInterfaceObject
(vlax-get-acad-object)
(strcat "ObjectDBX.AxDbDocument." vers)
)
)
list_dicc (list)
)
(vla-open odbx "c:\\drawing.dwg")
(setq dicc (vlax-get odbx 'dictionaries))