Berechnung der Koordinaten des Zentrums eines Bildes

[Angelo2449]

Hallo alle,
Ich möchte die Koordinaten des Zentrums eines Bildes berechnen, ich denke, ich brauche die ersten und letzten.

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

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

hier extrahiere ich die Koordinaten des unteren linken Punktes (xy1), wo finde ich die anderen?
Danke.

 

[rpor66]

(Setq n (Autobild)
(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 Breite alla x e Höhe alla y e ottieni la coordinata in alto a destra