Chargement automatique de LISP

[LUDWIG]

Bonjour le forum,

 

J'utilise depuis un moment un lisp (de gile si je me souviens bien).

Ce lisp charge tous les programmes d'un répertoire donné.

Ca évite de rajouter une application à liste de démarrage à chaque fois que j'en collecte un (_appload > Démarrage contenu > Ajouter ...)

Sauf qu'il ne fonctionne plus 😭

J'ai voulu changer son appel par S::STARTUP pour que le chargement de tous mes LISPS se fasse automatiquement à chaque ouverture de dessin.

Je suis bien revenu en arrière mais le mal était fait.

Note : le repertoire en question est dans la liste des répertoires approuvés.

 

TOUTCHARGER.LSP :

(defun c:cg () ; load lisps

  (setq  *lsppath* "C:\\Users\\studi\\OneDrive - Studiplan\\Documents\\PRO\\Sources\\Autocad\\Lisp")

  (mapcar 

   '(lambda (x) (princ (strcat "\n" x)) s)

	(acad_strlsort 

		(vl-remove "toutcharger.lsp"

   (apply 'append

      (mapcar '(lambda (x) (vl-directory-files *lsppath* x)) 

          '("*.lsp" "*.fas")))) ;'("*.lsp" "*.dvb" "*.arx" "*.fas"))))

))

    (princ))

Le "Princ" me renvoie bien la liste complète des programmes, mais il ne les charge pas.

J'ai l'impression qu'il manque un "load" quelque part, l'aurais-je supprimer par mégarde ?

Merci d'avance pour votre aide

[SF.Designer]

Salut, en un peu plus simple 😉

 

(defun load-lsp ()
	(foreach file (vl-directory-files "C:/.../" "*.lsp" 1)
		(load file (strcat file " did not load"))
	))
(load-lsp)

 

[LUDWIG]

Bonjour et merci !

 

Ca a l'air de tourner en boucle, je ne sais pas pourquoi.

J'ai supprimé l'appelle à la fin du programme, et j'ai remplacé le nom par S::STARTUP, ca fonctionne.

(defun s::startup ()
	(foreach file (vl-directory-files "C:\\Users\\studi\\OneDrive - Studiplan\\Documents\\PRO\\Sources\\Autocad\\Lisp" "*.lsp" 1)
		(load file (strcat file " did not load"))
	);fin de foreach
); fin defun

 

Je vais compléter pour traiter FAS et DCL.

 

Encore merci.

(mais quelle était mon erreur dans le premier ?)