Déplacer un objet à l'aide du nom d'entité

[Clément.a]

Bonjour a tous,

 

J'aimerais pourvoir déplacer un objet dans mon cas un bloc en connaisant son nom d'entité,donc y a t'il moyen de séléctionner un objet rien qu'avec son nom d'entité?

[Clément.a]

j'ai trouver un moyen en bidouillant voila ce que ça donne en exemple :

(defun deplace ()
(setq ename (handent "E80E"))
 (setq point_init (cdr(assoc 10 (entget ename))))
 (setq point2 (getpoint "un point pour déplacer"))
 (command "_move"   (eval ename) "" point_init point2 ) 
)

[Clément.a]

Maintenant j'aimerais déplacer une liste d'objet.

 

j'ai essayé comme ceci :

 

(command "_move"    (foreach n  list_ename (print n))   "" point_init point2 )

 

Mais sa me séléctionne que le dernier.

 

Merci

[(gile)]

(foreach n list_ename (command "_move" n "" point_init point2))

[Clément.a]

parfait merci