verouillage

[x_all]

dans les présentations je suis un peu enquiquiné par le verrouillage...

 

ma technique doit pas être super au point...

si dans une fenêtre après un zoom ou un pan je me rend compte un peu tard qu'elle n'était pas verrouillée il faut faire un zoom précédent, sortir de la fenêtre, la sélectionner regarder dans les propriété et la verrouiller, enfin re rentrer dedans..

 

je trouve ça un peu lourd...

 

avez vous une autre méthode?

existe t il une commande pour la verrouiller de l'intérieur ? (sans passer par l'EP)

 

l'idéal, ce serai un bouton qui verrouille la fenêtre active ou la fenêtre sélectionnée ou qui la débloque si elle l'est deja....qu'on soit en EP ou en EO

 

une histoire de variable?

 

merci...

 

 

[denis38]

Bonjour,

 

regarde par ici avec verr et unverr

http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=11314&POSTNUKESID=18aa8db9abfdb2fe4f19ff3778dfe58f http://

et par la

http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=11303 http://

 

a+

Denis

[lili2006]

Bonjour à toutes et tous,

 

Personnellement je me suis fait 2 boutons, et c'est ultra rapide (surtout avec beaucoup de fenêtres et présentations,...)

 

Les lisps qui les commandes (du grand Patrick_35, :P ) =>

 

 (defun c: [surligneur] verr[/surligneur](/ fen n sel tot)
 (vl-load-com)
 (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
 (if (setq sel (ssget "x" (list (cons 0 "VIEWPORT"))))
   (progn
     (setq n 0 tot 0)
     (while (ssname sel n)
       (if (and (= (logand (cdr (assoc 90 (entget (ssname sel n)))) 16384) 0) (/= (cdr (assoc 69 (entget (ssname sel n)))) 1))
         (progn
           (setq fen (vlax-ename->vla-object (ssname sel n)))
           (vlax-put-property fen "displaylocked" :vlax-true)
           (setq tot (1+ tot))
         )
       )
       (setq n (1+ n))
     )
     (princ (strcat "\n"  (itoa tot) " fenêtre(s) de verrouillée(s)"))
   )
   (princ "\nPas de fenêtres")
 )
 (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
 (princ)
)

(princ "\nVERR.LSP chargé. Tapez VERR pour l'exécuter")
(princ)
- - -  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
(defun c: [surligneur] unverr[/surligneur](/ fen n sel tot)
 (vl-load-com)
 (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
 (if (setq sel (ssget "x" (list (cons 0 "VIEWPORT"))))
   (progn
     (setq n 0 tot 0)
     (while (ssname sel n)
       (setq fen (vlax-ename->vla-object (ssname sel n)))
       (if (eq (vlax-get-property fen "displaylocked") :vlax-true)
         (progn
           (vlax-put-property fen "displaylocked" :vlax-false)
           (setq tot (1+ tot))
         )
       )
       (setq n (1+ n))
     )
     (princ (strcat "\n"  (itoa tot) " fenêtre(s) de déverrouillée(s)"))
   )
   (princ "\nPas de fenêtres")
 )
 (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
 (princ)
)

(princ "\nUNVERR.LSP chargé. Tapez UNVERR pour l'exécuter")
(princ)

 

Exemple sur un fichier "classique" =>

 

Commande:

Commande: VERR

45 fenêtre(s) de verrouillée(s)

Commande:

 

Commande:

Commande: UNVERR

45 fenêtre(s) de déverrouillée(s)

Commande:

 

Sinon, si 'est pour un besoin ponctuel sur une fenêtre ou deux, tu as aussi le petit cadenas en bas à droite à coté des échelles, rudement pratique !

[x_all]

cool

 

j'aurai du commencer par regarder dans ce formidable post de patrick_35

 

@lili, sur 2007 je ne crois pas qu'il y ai ce cadenas...(le seul cadenas en bas a droite vzerouille les barres d'outil)

 

mais je vais me faire les bouton qui vont bien...

 

merci

:)

[lili2006]

Re,

 

Oups, il est possible que ce cadenas soit arrivé avec la V2008,...

 

Pour me faire pardonner, je te donne les icônes que j'utilise sur mes boutons,...