toutes les FMULT inactives

[PHILPHIL]

hello

 

je cherche un petit LISp pour rendre toutes les FMULT dans toutes les présentations INACTIVES

et ensuite inversement bien sur

 

histoire que quand je me balade dans les présentations de n'avoir que ce qu'il y a dans l'espace papier et eviter la régénérations des fenetres

 

je cherche encore

 

j'ai bien essayer de modifier "VERR" de patrick35 mais ca ne marche pas

ca doit pas etre si simple que ca surtout avec le "MAXACTVP" minimum 2

 

a suivre ...

 

 

 ;;;=================================================================
;;;
;;; VERR.LSP V1.01
;;;
;;; Verrouiller toutes les fenêtres des présentations
;;;
;;; Copyright (C) Patrick_35
;;;
;;;=================================================================

(defun c:fmin  (/ 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 68 (entget (ssname sel n)))) 1) 0)
	 (/= (cdr (assoc 69 (entget (ssname sel n)))) 1))
  (progn
    (setq fen (vlax-ename->vla-object (ssname sel n)))
    (vlax-put-property fen "ViewportOn" :vlax-false)
    (setq tot (1+ tot))
    )
  )
(setq n (1+ n))
)
     (princ (strcat "\n" (itoa tot) " fenêtre(s) d'inactivée(s)"))
     )
   (princ "\nPas de fenêtres")
   )
 (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
 (princ)
 )


(setq nom_lisp "VERR")
(if (/= app nil)
 (if (= (strcase
   (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp)))
 nom_lisp)
   (princ (strcat "..." nom_lisp " chargé."))
   (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter.")))
 (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter.")))
(setq nom_lisp nil)
(princ)

 

 

 

 

a+

 

phil

 

 

[Edité le 1/9/2009 par PHILPHIL]

[Tramber]

^C^CFMULT;I;tout;; 

 

^C^CFMULT;A;tout;; 

 

Et en créant ces 2 boutons (non testés), ca devrait marcher. Il te faut un lisp ?