calculate the coordinates of the center of an image

[Angelo2449]

Hello everyone,
I would like to calculate the coordinates of the center of an image, I think I need the initial and final ones.

 (setq image nil)
(sing)
(= image nil)
(setq image (entsel "\nselect the image to georeferencing (inclined) : ")
)

(setq ed1 (entget)
(setq en1 (cdr -1 ed1))
(setq xy1 (cdr 10 ed1))

here I extract the coordinates of the lower left point (xy1), where do I find the others?
Thank you.

 

[rpor66]

(setq n (car image))
(setq w (vlax-get-property (vlax-ename->vla-object n) 'imagewidth))
(setq h (vlax-get-property (vlax-ename->vla-object n) 'imageheight))
sommi a xy1 width alla x e height alla y e ottieni la coordinata in alto a destra