Lisp - Insert bloc avec valeurs attributs en format liste

[lewis185]

Bonjour,

Je travaille sur un projet de Lisp pour automatiser un remplacement d'un bloc par un autre. Dans mon Lisp, je récupère sous forme de liste les valeurs des attributs existants. Je souhaites réintroduire ces valeurs via la commande insert (vu que mon bloc de destination ne se trouve pas dans le dwg).

Mais j'ai un problème au moment d'insert le nouveau bloc. Dans l'expression Lisp de la commande insert, il faut introduire pas à pas les valeurs d'attributs. Lorsque je place la variable contenant la liste dans l'expression du insert, cela ne fonctionne pas.
Je suis malheureusement contraint de devoir utiliser le format liste car certains blocs que je souhaites remplacer contiennent environs 300 attributs.
Exemple :

  (setq List$ '("Att1" "Att2" "Att3" "Att4" "Att5"))
  (command "-insert" BlockName InsertPoint "1" "1" "0" List$)

 
Avez-vous une idée du pourquoi voir même du comment résoudre cela ?

D'avance merci 🙂

[tramber · Accepted solution]

Ca peut donner quelque chose comme cela :

(setq List$ '("Att1" "Att2" "Att3" "Att4" "Att5"))
  (command "_insert" BlockName InsertPoint "1" "1" "0")
(foreach p  List$ (command p))

[lewis185]

C'est parfait et si simple, merci beaucoup 🙂

[_gile · Accepted solution]

Salut,

Une autre façon:

(eval
  (append
    '(command "_insert" BlockName InsertPoint "1" "1" "0")
    list$
  )
)