Scalare immagini

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#1
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.
 

GP.

Utente Senior
Professione: Nientologo
Software: uozapp
Regione: Vercelli
#2
(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)
 

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#3
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.
 

GP.

Utente Senior
Professione: Nientologo
Software: uozapp
Regione: Vercelli
#4
(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)