Zoom avec boite de dialogue ouverte

[l56]

Bonjour,

 

Tout est dans le titre ...

Ne pouvant pas utilisé (command "_zoom"... , y a t-il un autre moyen ?

 

merci

a+

[(gile)]

Salut,

 

Quand une boite dialogue est ouverte, l'utilisateur ne peut pas intervenir à l'écran (ni à la ligne de commande).

 

Pour faire une sélection à l'écran, par exemple, il faut masquer temporairement la boite de dialogue en faisant une boucle sur les valeurs de l'argument "status" de la fonction done_dialog, valeur retournée par la fonction start_dialog.

[l56]

Je ne souhaite pas la masquer.

On peut intervenir sur l'ecran avec une bdD ouverte en faisant par exemple

(setvar "tilemode" 1), ça marche tres bien.

Mais comment faire un zoom ?

[bseb67]

Salut!

 

Je cherchais la même chose il y a quelque temps pour une appli en lisp.

J'ai trouvé une astuce, elle n'est pas super génial, mais cela fonctionne. par contre

tu ne peut pas changer de présentation ou EO->EP...

 

Voici ma petite astuce:

j'ai rajouter un bouton sur ma dcl, lorsque tu clic dessus, je lance une boite de dialogue

doslib avec un message et un simple bouton ok.

=> Pourquoi? et bien lorsque tu clic sur ok, autocad te rends la main sur la fenêtre autocad et non

la dcl. A partir de là tu peux bouger, zoomer dans la présentation en cours. Et même si tu sélectionne à nouveau ta dcl tu peux recliquer sur autocad pour bouger à nouveau.

 

Par contre, si tu quitte la dcl et la relance plus tard, il faut recliquer sur le bouton lancant la bdd doslib.

 

Il faut donc que tu télécharges la bibliothèque arx doslib, que tu la charge dans ton dessin

et tu fait ceci:

(defun bouger()
       ; liste des boutons : que OK
       (setq buttons (list "OK"))
       ; on lance la bdd
(dos_msgboxex "Vous pouvez bouger dans la présentation en cours" "" buttons 3)
) ; bouger

 

et dans le code lisp de ta dcl tu déclare ceci

(action_tile "k_bouger" "(bouger)")

 

Voilà, en espèrant que cela te conviendra.