Calcolare le coordinate del centro di un'immagine

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#1
Salve a tutti,
vorrei calcolare le coordinate del centro di un'immagine, penso mi servano quindi quelle iniziali e finali.

Codice:
(setq Image nil)
        (while
            (= Image nil)
            (setq Image (entsel "\nSeleziona l'Immagine da georeferenziare (Inclinata) : "))
        )

        (setq ed1 (entget (car Image)))
        (setq en1 (cdr (assoc -1 ed1)))
        (setq XY1 (cdr (assoc 10 ed1)))
qui estraggo le coordinate del punto inferiore sinistro (XY1), dove trovo le altre?
Grazie.
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#2
(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