Scalare immagini

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
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
(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
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
(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)
 

Utenti online

Statistiche forum

Discussioni
54,579
Messaggi
464,887
Utenti registrati
93,353
Ultimo utente registrato
Merzolina

Top