vl-catch-all-apply

[LUDWIG]

J'essayes de passer une variable pour les arguments d'une fonction que je veux tester par vl-catch-all-apply

 

 (vl-catch-all-apply 'load '("c:\\toto.lsp")) 

 

fonctionne

 

mais

  (setq n "c:\\toto.lsp")
(vl-catch-all-apply 'load '(n)) 

 

ne fonctionne pas !

 

Comment faire ?

[bonuscad]

Je pense plutôt sous cette forme:

 

(setq n '("c:\\toto.lsp"))

(vl-catch-all-apply 'load n)

 

ou alors peut être plus interessant, sous celle-ci:

 

(foreach n '(("c:\\titi.lsp") ("c:\\toto.lsp") ("c:\tatat.lsp") ("c:\\tutu.lsp"))

(vl-catch-all-apply 'load n)

)

[Bred]

pour ceux qui apprennent, pourriez-vous être un peu plus explicite :

A quoi sert vl-catch-all-apply ???

merci

[LUDWIG]

Dans un programme lisp, si une fonction renvoit une erreur, ton programme risque de s'arrêter. Donc, une méthode consiste a d'abord tester si la fonction renvoit une erreur PUIS l'exécuter si c'est OK.

 

Dans mon cas, je fais un lisp pour charger tous les lisps d'un répertoire. Or si le nième lisp de ce répertoire est mal structuré, Autocad envoit une erreur, ma fonction de chargement s'arête et les lisps n+1 et suivant ne seront pas chargés.

[(gile)]

 (setq n "c:\\toto.lsp")
(vl-catch-all-apply 'load (list n)) 

 

Si tu fait '(n) n n'est pas évalué : c'est la liste contenant la variable n, (list n) tu fais une liste avec la valeur de n.

 

Si (setq n "c:\\toto.lsp")

 

'(n) retourne (n)

 

(list n) retourne ("c:\\toto.lsp")

[LUDWIG]

BonusCad et (Gile), vous êtes des Dieux du Lisp ! :yltype:

Evidemment, a marche mieux comme ça, et le mieux, c'est que je crois que j'ai compris (!)

 

Qu'il est pointilleux ce langage ! Je rêve d'un lisp qui serait mon ami et qui comprendrait de suite se que je veux faire :heartpump:

[(gile)]

Rien de divin la dedans, c'est parceque le hasard des choses m'a fait rencontrer ce problème avec (apply ... que je peux te donner une réponse.

[LUDWIG]

Voici donc enfin ma routine...