climbing images

[Angelo2449]

Hello everyone,
I would like to scale an image compared to another one with one command, as is done with the transfer of ownership.
Is there already a routine?
Thank you.

 

[GP.]

(setq imm_1 (car (entsel "\nselect source image")))
(setq scale1 (vlax-get (vlax-ename->vla-object imm_1) 'scalefactor')
(setq imm_2 (car (entsel "\nselect the destination image")))
(setq fs (* scala1 (getreal "\nfactor of scale: ")
(vlax-put (vlax-ename->vla-object imm_2) 'scalefactor fs)

 

[Angelo2449]

routine asks to select two images and then scale factor.
the scale factor should be taken from the properties of the first image or, the second image should be scaled to have it, dimensionally, equal to the first.
thank you.

 

[GP.]

(setq imm_1 (car (entsel "\nselect source image")))
(setq scale1 (vlax-get (vlax-ename->vla-object imm_1) 'scalefactor')
(setq imm_2 (car (entsel "\nselect the destination image")))
(vlax-put (vlax-ename->vla-object imm_2) 'scalefactor scala1)

 

[Angelo2449]

Thank you.