i have acad 2004, so i can't open your drawing. but i think it's imposible to get the object data, because it is, kind of, encrypted.
(defun test (EntData)
(if EntData
((lambda (f)
(print (apply 'strcat
(mapcar 'cdr
(vl-remove-if-not
'(lambda (d) (= (car d) 1004))
(entget (cdr (assoc 360 f)))
)
)
)
)
(test (cddr f))
)
(vl-member-if '(lambda (c) (= (car c) 3)) EntData)
)
)
)
;;;(test (entget (cdr (assoc 360 (entget (car (entsel)))))))