Skalieren eines Bildes in einer Richtung

[Angelo2449]

Hallo alle,
existiert ein Lisp-Code, um das ausgewählte Bild in einer Richtung zu skalieren?
Danke.

 

[GP.]

(setq imm (vlax-ename->vla Objekt (Auto (entsel)))
(fla-put-imageheight imm 6)
(fla-put-imagewidth imm 25)

 

[Angelo2449]

grazie gp

 

[Angelo2449]

Danke.
Ich habe Ihre Anweisungen auf meinen Code angewendet und es funktioniert gut, ich kann die Elemente nicht extrahieren für > redraw < :

(while)
(setq image (vlax-ename->vla-object)
;

Im Falle von

(setq ed1 (entget)
(setq en1 (cdr -1 ed1)
(Auszug en1 3)

Danke.

 

[confutatis]

(setq image (vlax-ename->vla-object)
(vla-highlight image :vlax-true)
(vla-highlight image :vlax-false) ;;

Hervorhebung entfernt es auch mit dem üblichen Regen

 

[Angelo2449]

Ich habe die Anweisungen eingegeben, ich bekomme die Nachricht:
"zu viele tatsächliche Parameter"

 

[Angelo2449]

kommen nicht detto!