Verrouillage des vues

[MNT]

Bonjour,

 

je cherche un moyen de verrouiller la vue juste après la mise à l'échelle de la fenêtre flottante de façon automatique.

 

@+

 

 

[Tramber]

^C^C_chprop \;_la nomdecalqueverouille

Dans un bouton

 

C'est un truc vite fait mais qui necessite que tu ais un calque verouillé, c'est peut-être pas l'idéal

[MNT]

Bonjour et merci Tramber,

 

je post de la maison,je regarderais demain.

 

@+

[Tramber]

^C^Cfmult V A;

 

Beaucoup mieux !

[Serge]

Tramber,

 

Tu avais raison avec le calque verrouillé. Un MVPort sur un tel calque verrouille la vue :-)

 

Un jour, tout le monde aura son MVPort :-))

 

Serge

 

[Patrick_35]

Ou encore ce lisp pour verrouiller toutes les fenêtres dans toutes les présentations

 

(defun c:verr(/ 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)
)

 

ps : pour ceux que ça interresse, regardez le vla-startundomark ainsi que le vla-endundomark. Résultat, un lisp sans command

 

@+

[MNT]

Bonjour,

 

c'est ce que je recherchais,merci.

 

@+