Déplacer une image dans une direction

[Angelo2449]

Bonjour tout le monde,
existe-t-il un code de lisp pour étaler l'image sélectionnée dans une seule direction?
Je vous remercie.

 

[GP.]

(setq imm (vlax-ename->vla objet (car (entsel)))
(hauteur d'image de sortie imm 6)
(largeur d'image de sortie imm. 25)

 

[Angelo2449]

gp gras

 

[Angelo2449]

Merci gp,
J'ai appliqué vos instructions à mon code et il fonctionne bien, je ne peux pas extraire les éléments pour > redessiner < :

(alors que)
(image setq (vlax-ename->vla-object))
);

Dans le cas de > entsel < il s'agissait:

(setq ed1 (entier)
(setq en1 (cdr -1 ed1))
(retirer en1 3)

Je vous remercie.

 

[confutatis]

(image setq (vlax-ename->vla-object))
(vla-haute lumière image :vlax-true) ;
(vla-highlight image :vlax-false) ;

la mise en évidence supprime également avec la régen habituelle

 

[Angelo2449]

J'ai entré les instructions, j'ai reçu le message:
"trop de paramètres réels"

 

[Angelo2449]

Venez non detto !