Exe auto à chaque activation d\'un plan

[dr.loveless]

Salut, je voulais savoir si qq conaitrait une méthode pour executer automatiquement un programme lisp à chaque activation d'un plan ( par ex, je suis sur un plan, je veux changer de plan donc je vais dans fen^tre et je choisis le nouveau plan, à ce moment je voudrais executer un lisp automatiquement.

 

Il existe la fonction startup pour chaque ouverture de plan, mais j'ai rien trouver pour chaque activation de plan!!

 

Ca me parait impossible, mais sait-on jamais !!

 

 

Merci

[Patrick_35]

Salut,

Par plan tu veux parler de calques ?

Enfin, quoi que ce soit, tu peux passer par les reacteurs.

Il y a une explication sur ce sujet par bruno_l

 

@+

[dr.loveless]

J'ai pas compris le rapport !!

[Patrick_35]

Je vois qu'on ne se comprend pas. Tout est dans la notion de plan. Un layer, un fichier, une présentation peuvent êtres des plans

Ce que je te propose sur le lien ci-dessus est un exemple qui détourne une commande autocad en y ajoutant un lisp. Dans l'exemple qui est fournit, quand j'insère un bloc, un attribut qui lui est associé reste toujours sur le même angle, quel que soit l'angle de rotation du bloc.

 

@+

[Pako]

Bonne question Doc ! Tu veux faire exécuter un lisp chaque fois que tu change de dessin chargé dans Autocad. Soit pas le menu fenêtre ou par Ctrl-Tab. Il y a surment un façon que j'igrore, désolé. Peut-être en VBA qui lui va exécuter ton Lisp ?

[didier]

hello le Doc,

encore une fois, c'est un manque de communication,

plan c'est layer ou fichier ou vue ?

en vba tu as la possibilité, si c'est au changement de calque.

explique toi

[dr.loveless]

Je vois que Pako m'a compris, c'est bien çà que je veux faire, des que dans Autocad je change de plan ( donc j'active un nouveau plan ou dessin ) un lisp doit être éxecuté automatiquement.

 

Je comprends pas l'incompréhension de Patrick et Didier ?? Je ne dispose certainement pas d'un vocabulaire suffisant. Pourquoi quand je parle de plan (dessin) , on me parle de layer (calque)?? merci.

 

 

 

Je recapèpète :

 

Avec la fonction Startup, on peut executé un Lisp automatiquement à chaque ouverture ou création d'un dessin. Je cherche un moyen d'executé un lisp à chaque activation de celui-ci, j'entends par activation le fait le rendre le dessin "actif" donc d'avoir la possibilité de travailler dessus.

 

Par exemple, j'ouvre le dessin n°1 ( avec Startup, un lisp s'execute ), j'ouvre un autre dessin ( dessin n°2 ; avec startup le même lisp que précédemment s'execute), ensuite je veux pouvoir poursuivre le dessin n°1, donc je vais dans "fenêtre" et en bas je choisis "dessin1" ( donc je l'active), et là le startup ne s'execute plus vu qu'il ne s'execute que lors de l'ouverture du dessin. Je cherche donc le moyen d'executer un lisp systématiquement à ce niveau ( donc à chaque activation d'un dessin).

 

 

Voilà, j'espère avoir été assez explicit cette fois ci.

 

Merci

[Patrick_35]

Bonjour à tous

C'est bon, j'ai compris ce que tu veux. Je ne peux pas t'aider cette fois ci, car j'ignore comment faire (Pako a été très clair avec le ctrl+tab).

Pour l'incompréhension sur le plan, c'est juste qu'il y a différentes manières de travailler, que chacun à ses propres notions et qu'il faut essayer de traduire ce que veux dire la personne.

 

Pour revenir à ton souci, c'est pour faire quoi exactement. il est peut-être possible de ruser autrement que d'essayer de jouer avec le changement de dessin.

 

@+

[didier]

bonsoir,

pour expliquer l'incompréhension :

un PLAN , c'est l'ancien nom du LAYER

mais comme c'est aussi un objet, on fait tous des PLANS ,

c'est souvent confondu avec un FICHIER .

donc lorsque tu dis :

j'ouvre un plan

il faudrait dire, pour être explicite :

j'ouvre un fichier,

et dans ce fichier je souhaite créer des CALQUES,

et là, c'est clair pour tout le monde.

amicalement

 

[didier]

re bonsoir,

tout à mes explications,

je ne t'ai même pas répondu,

c'est avec le VBA, que tu auras cette possibilité.

ciao

 

[dr.loveless]

OK, merci pour ces explications concernant les "plans".

 

En ce qui concerne le programme va falloir que je fouille en VBA, je vous tiendrai au courant si celle-ci sont fructueuses.

 

Merci encore à tous et bonnes vacances

[bruno_l]

c'est possible en lisp avec le reacteur 'vlr-editor-reactor'

ca interresse du monde ?

[Patrick_35]

:D Oui, oui, oui, je suis preneur :D

 

@+

[bruno_l]

j'ai lu trop vite la file de discussion

en fait j'execute une action a chaque fois qu'un calque (couche de plan est changé)

variable clayer

 

mais bon voila toujours le code

la partie classique

-------------------------------------------------------------

(vl-load-com)

(vlr-remove-all)

;;; fonction cleanreac

;;; nettoyage de tous les reacteurs

 

(defun CLEANREAC ()

(mapcar 'vlr-remove-all

'(:vlr-acdb-reactor

:vlr-editor-reactor

:vlr-linker-reactor

:vlr-object-reactor

)

) ;_ Fin de mapcar

) ;_ Fin de defun

;;;

;;;fin de la partie classique

------------------------------------------------------------------

;;;;la focntion appelé par le reacteur

(defun CHOIX_REAC (A B)

(setq CALQUE_1 (getvar "clayer")

VARIABLE

(car B)

ETAT

(cdr B)

) ;_ Fin de setq

(if (and (= VARIABLE "CLAYER") (/= CALQUE_0 CALQUE_1))

(progn

(alert "le calque à été changé") ;ou n'importe quoi d'autre ...

 

(setq CALQUE_0 CALQUE_1) ; ne pas enlever!!!

) ;_ Fin de progn

) ;_ Fin de if

) ;_ Fin de defun

;;; fin de la focntion appelé par le reacteur

 

;; appel de cleanreac

(CLEANREAC)

(setq CALQUE_0 (getvar "clayer"))

(vlr-editor-reactor NIL '((:vlr-sysvarchanged . CHOIX_REAC)))

;|«Visual LISP© Format Options»

(72 2 40 2 T "Fin de " 80 9 1 2 1 T T nil T)

;*** NE PAS AJOUTER de texte au-dessous du commentaire! ***|;

 

 

bon d'accord je suis hors sujet, mais ...

si il n'y a pas de solution c'est qu'il n'y a pas de problème. (devise shadok)

 

[Patrick_35]

Merci pour ton lisp, même s’il est hors sujet, ça permet de comprendre certaines fonctionnalités

 

Il y a juste une chose que je ne comprends pas

(72 2 40 2 T "Fin de " 80 9 1 2 1 T T nil T)

 

@+

[bruno_l]

c'est juste l'editeur visual lisp qui ajoute ses lignes, quand je met a jour la mise en page du code

en faii il fait des ajouts sur tous le code lisp du style

;_ Fin de defun

;_ Fin de if

...

 

c'est l'option formater le code dans l'editeur du menu outils

c'est super utile pour la lisibilité du code

[bruno_l]

j'ai trouvé le reacteur had hoc

c'est "vlr-docmanager-reactor" et sont event name ":vlr-documentbecamecurrent"

 

un petit test

(defun CHOIX_REAC (A B)

(alert "salut")

;_ Fin de cond

 

)

(vlr-docmanager-reactor NIL '((:vlr-documentbecamecurrent . CHOIX_REAC)))

 

quand on passe sur le plan ou a été executé le code une case de dialogue apparait

 

[dr.loveless]

Merci je viens juste de prendre connaissance de ta soluce, mais çà devrait fonctionner