(if (not c:appli) (load \"appli\")) pour DVB

[LUDWIG]

Bonjour à tous

 

J'essaye d'appliquer cette formule (if (not c:appli) (load "appli")) pour ne charger un lisp que s'il n'est pas déjà charger...

 

J'ai l'impression que ça ne marche que pour les lisps... Comment le formuler pour des DVB, ARX, etc... ?

 

Merci d'avance

[Tramber]

(if(not(member appli (arx)))(arxload appli))

 

Ca doit faire qque chose comme ça pour les ARX.

 

[LUDWIG]

Super ! Merci !

 

Mais pour les DVB ?

[LUDWIG]

Je charge les DVB par un

 

 (command "-vbaload" "appli")

 

Mais s'il est déjà chargé, j'ai un message d'erreur...

 

En attendant plus efficace, je le décharge d'abord avant de le charger (!!!)

 

 (command "vbaunload" "appli")(command "-vbaload" "appli") 

[bonuscad]

A une époque ou je voulais utilisé un DVB, j'avais utilisé la syntaxe suivante dans un bouton:

 

 

^C^C(command "_-vbarun" "raccord.dvb!raccord_vba.raccord") 

 

A l'époque ça fonctionnait bien, maintenant je n'en sais rien. Le VBA ça ne me plait pas et je m'y interesse guère.!

[sergeluc]

J'ai lu un peu trop vite le sujet ..........(DVB) ,je rectifie par un exemple :

 

(defun charge-dvb (/ file)
     (vl-load-com)
     (if (setq file (findfile "test.dvb"))
  (progn
       (vl-vbaload file);chargement
       (vl-vbarun  "test");lancement si nécessaire
;on peut l'enlever si le programme doit etre lancé différemment
       )
  (alert "test.dvb non trouvé dans le chemein de recherche");test si non trouvé
  )     
    (princ)
    )

[LUDWIG]

Sergeluc : merci pour vl-vbaload que je n'avais pas réussi à trouver dans l'aide (si si, j'avais cherché).

En plus, c'est super, cette commande n'engendre pas de boîte de dialogue si le DVB est déjà chargé !

 

Bonuscad : c'est le chargement (load) et non pas l'exécution (run) que je cherchais.

[LUDWIG]

Voici donc enfin ma routine...