This code will get you close. I can't seem to translate the coordinates correctly though. It returns points as if the insert point was 0,0,0, but then it is still off a little. At least it's a start for someone.
(defun GetImageClipBoundry ( ename / Data Ang InsPt Dist 1pixList PtList )
(setq Data (entget ename))
(setq Ang (angle '(0. 0. 0.) (setq InsPt (cdr (assoc 10 Data)))))
(setq Dist (distance InsPt '(0. 0. 0.)))
(setq 1pixList (cdr (assoc 11 (entget (cdr (assoc 340 Data))))))
(foreach i Data
(if (equal (car i) 14) (setq PtList (cons (mapcar (function *) (cdr i) 1pixList) PtList)))
)
)