Gestionnaire de calque

[Martial]

Quelqu'un a trouver une solution pour améliorer la rapidité d''affichage et de fermeture du gestionnaire d'affichage ?

 

Martial

 

NB : et comment se débarrasser de ces dizaines voir centaines ! de filtres qu'on trainent de génération en génération ! :casstet:

[Romain]

Quelqu'un a trouver une solution pour améliorer la rapidité d''affichage et de fermeture du gestionnaire d'affichage ?

 

Pack SP1 d'Autodesk

et comment se débarrasser de ces dizaines voir centaines ! de filtres qu'on trainent de génération en génération !

 

J'utilise une macro nommée delfilternames, que j'ai trouvé sur www.cadalyst.com

[Serge]

Martial,

 

Ou celle-ci qui offre l'avantage de filtrer les noms car effacer aveuglément risque de nuire à certains programmes.

 

 

;;; DelSomeFilters

;;; Efface les filtres de calques de façon sélective

 

(vl-load-com)

 

(defun DelSomeFilters ( mask / lext-dict ldict lay_entity lay_filters filter_name)

(vl-load-com)

(setq lext-dict (entget (vlax-vla-object->ename

(vla-GetExtensionDictionary (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))))

)))

(setq lay_entity (if (member (cons 3 "ACAD_LAYERFILTERS") lext-dict)

(cdr (assoc 360 lext-dict))

nil

))

(if lay_entity (setq lay_filters (entget lay_entity)))

(if lay_filters (setq lay_filters (member (assoc 3 lay_filters) lay_filters)))

(while lay_filters

(setq filter_name (cdar lay_filters))

(if (wcmatch filter_name mask)

(dictremove lay_entity filter_name)

)

(setq lay_filters (cddr lay_filters))

)

(princ)

)

 

;;; Exemples:

;;; (DelSomeFilters "*[1-9]*") ; Tous les calques avec des nombres

;;; (DelSomeFilters "*") ; Tout

;;; (DelSomeFilters "???,~*m*,N*") ; Tous les calques ayant 3 caractères ET ceux n'ayant pas de 'm' ET ceux ne débutant pas par N

;;; (DelSomeFilters "*")

 

(defun c:dsf () (DelSomeFilters "*") (princ))

(princ "\nTapez DSF pour effacer tous les filtres de calques")

(princ)

 

Serge