Lancement de LISP

[Turtle]

Bonjour,

Bon certainement un probleme de debutant en Lisp, mais bon je pose la question :

J'ai fait plusieurs Fichiers Lisp que je charge au demarage de Autocad mais je voudrais qu'il s'execute en plus a chaque lancement d'autocad ou a la creation d'un nouveau dessin.

Davance merci. :casstet:

[bonuscad]

Salut,

 

Regarde déjà la discussion à ce propos:

http://www.cadxp.com/sujetXForum-2209.htm

 

S'il reste des zones d'ombre, tiens nous au courant ;)

[Serge]

Il y a la commande APPLOAD. Avec cette méthode, chaque usager doit faire l'inscription des fichiers.

 

Il y a le fichier acaddoc.lsp que tu peux créer. Tu défini une ligne par fichier à charger comme suit (en adaptant le nom à chaque fois:

(load "monfichier.lsp")

 

Serge

[Turtle]

bonjour,

voila mon fichier lisp :

 

(DEFUN c: droit()

(setq rep (getstring "\nQuel est votre prénom ?:"))

 

(if (= rep "turtle")

(alert "*** FELICITATION ***\n\nVous êtes habilité à utiliser ce poste !!!!\n\n Travaillez bien")

(command "_quit"))

)

 

si je tape DROIT comme Commande mon Lisp fonctionne.

 

Mais au chargement automatique

Il me pose bien la question : quel est votre prenom ?

Mais apres il annule la commande !!!!

j'ai pas le temps de repondre a la question !!!!!

 

Si je peux avoir + d'info.

D'avance merci.

[bruno_l]

il est serieux le programme la ou c'est juste a titre d'exemple

 

y'en a qu'on pas le droit d'utiliser autocad !

le plus n'est il pas de regler les droit sur le repertoire d'installation d'autocad

 

car pour passer outre, un simple escap suffit !!

[Tramber]

Normale, si tu n'es pas une tortue, il y a un QUIT.

 

Cette commande n'a pas d'utilité ?

 

 

Il me pose bien la question : quel est votre prenom ?

Mais apres il annule la commande !!!!

j'ai pas le temps de repondre a la question !!!!!

 

T'as le temps ou t'as pas le temps.

 

La commande qu'il annule à cause du QUIT, c'est DROIT.

 

[Edité le 14/9/2004 par Tramber]

[Turtle]

NON,NON,

mon programme est serieux, car il y a énormemant de personne qui utilise des postes libre pour faire des conneries sur des plans qu'ils n'ont pas a avoir acces !!!!

 

c'est dans le but de decourrager les moins temeraires!!!!

 

J'ai pas compris le dernier message, mais le probleme c'est que mon lisp ce charge mais le programme ne s'arrete pas a la demande du Prénom.

Donc j'ai pas le temps d'ecrir le prenom.

 

Donc j'ai toujours besoin d'aide si possible.

D'avance merci.

[Patrick_35]

Salut,

 

Essaye ceci (à sauver dans le fichier AutoCAD.lsp)

(defun s::startup()
 (c:droit)
)

(defun c:droit()
 (setq rep (getstring "\nQuel est votre prénom ?:"))
 (if (= rep "turtle")
   (progn
     (alert "*** FELICITATION ***\n\nVous êtes habilité à utiliser ce poste !!!!\n\n Travaillez bien")
     (et le lisp continu)
   )
   (command "_quit")
 )
)

 

@+

[bruno_l]

sur quel systeme est ce ?

 

sur un systeme un tant soit peu serieux on ne protege pas les données par l'applicatif, mais par le systeme d'exploitation, en donnant les droits had hoc sur les repertoires ou sont stockés les fichiers a protéger

 

de plus

1) un fichier lisp lisible avec le mot de passe en clair est ce bien raisonnable.

2) on peut toujours arreter l'execution du lisp

3) copier les fichiers, les modifier ailleur, et les replacer

 

 

 

 

 

 

[Patrick_35]

Salut Bruno_l

Je suis bien d'accord, le lisp n'est pas la meilleur des protections (d’autant qu’un echap suffit pour faire planter le lisp), et les personnes qui s'amusent à faire des bêtises sur des plans ne sont pas très intelligentes. La meilleure des protections et de mettre un mot de passe sur le répertoire où se trouvent les dessins, mais comme notre ami Turtle a posé une question précise, il a la solution qui peut servir pour autre chose

Il est encore possible de mettre un mot de passe sur l’économiseur d’écran, comme ça si on quitte son poste, il suffit de le lancer.

 

@+

 

[Edité le 14/9/2004 par Patrick_35]

[Serge]

Turle,

 

Je ne crois pas que tu arrêteras grand monde. Cependant, je me permet certaines améliorations générales.

 

(defun c:test1 ( / reponse)

; ; rien ne nous renseigne sur la casse (majuscules / minuscules)

(setq reponse (getstring "\nVotre nom: "))

 

;; Convertir en minuscules pour faire les bonnes comparaisons

(setq reponse (strcase reponse t))

 

;; Traiter plusieurs cas

(cond

((= "turtle" reponse)

(alert "Bon maitre")

)

((= "snake" reponse)

(alert "Bon escalve")

)

((= "cancer" reponse)

(alert "Bon maitre, je t'ai reconnu")

)

(t

(alert "Désolé, nous allons quitter")

(princ "\nJe quitterais ici.")

)

)

(princ)

)

 

 

Autre alternative (elle-même plus ou moins convaincante). Ça vaut ce que ça vaut

 

(defun c:test2 ()

;; Boucle tant et aussi longtemps que la réponse ne correspond pas à l'un des

;; mots de passe. Si quelqu'un entre S, AutoCAD répondra "Réponse ambigue,

;; clarifiez SNAKE ou SPIDER?"

(initget 1 "TURTLE SNAKE SPIDER CANCER")

(getkword "\nQuel est votre prénom: ")

)

 

 

Serge