Scalare immagini

Salve a tutti,
vorrei scalare una immagine rispetto ad un'altra con un solo comando, come si fa col trasferimento di proprietà.
Esiste già una routine?
Grazie.

(setq imm_1 (car (entsel "\nSelezionare l'immagine Sorgente")))
(setq scala1 (vlax-get (vlax-ename->vla-object imm_1) 'ScaleFactor))
(setq imm_2 (car (entsel "\nSelezionare l'immagine Destinazione")))
(setq FS (* scala1 (getreal "\nFattore di scala: ")))
(vlax-put (vlax-ename->vla-object imm_2) 'ScaleFactor FS)

La routine chiede di selezionare di due immagini e poi il fattore di scala.
Il fattore di scala dovrebbe essere prelevato dalle proprietà della prima immagine ovvero, la seconda immagine va scalata per averla, dimensionalmente, uguale alla prima.
Grazie.

(setq imm_1 (car (entsel "\nSelezionare l'immagine Sorgente")))
(setq scala1 (vlax-get (vlax-ename->vla-object imm_1) 'ScaleFactor))
(setq imm_2 (car (entsel "\nSelezionare l'immagine Destinazione")))
(vlax-put (vlax-ename->vla-object imm_2) 'ScaleFactor scala1)

Grazie