scale an image in one direction

[Angelo2449]

Hello everyone,
exists a lisp code to scale the selected image in one direction?
Thank you.

 

[GP.]

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

 

[Angelo2449]

grazie gp

 

[Angelo2449]

thanks gp,
I applied your instructions to my code and it works well, I can't extract the elements for > redraw < :

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

In the case of > entsel < these were:

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

Thank you.

 

[confutatis]

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

highlighting also removes it with the usual regen

 

[Angelo2449]

I have entered the instructions, I get the message:
"too many actual parameters"

 

[Angelo2449]

come non detto!