Skalierung von Bildern

[Angelo2449]

Hallo alle,
Ich möchte ein Bild im Vergleich zu einem anderen mit einem Befehl skalieren, wie es mit der Übertragung des Eigentums geschieht.
Gibt es schon eine Routine?
Danke.

 

[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 Zielbild")))
(setq fs (* scala1 (getreal "\nfactor of scale: ")
(vlax-put (vlax-ename->vla-object imm_2)

 

[Angelo2449]

Routine fragt, zwei Bilder auszuwählen und dann Skalenfaktor.
der Skalenfaktor aus den Eigenschaften des ersten Bildes oder das zweite Bild sollte skaliert werden, um es formell gleich dem ersten zu haben.
Danke.

 

[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 Zielbild")))
(vlax-put (vlax-ename->vla-object imm_2) 'scalefactor scala1)

 

[Angelo2449]

Danke.