Supprimer tous les filtres

[j-lo]

Bonjours,

 

J'ai de gros soucis sur des plans qui pèses plusieurs Mo.

 

J'ai trouver une LIPS et je voudrais être sur quel supprime tous les filtres et uniquement ça.

 

 (defun c:lfd ()
(vl-Load-Com)
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove (vla-GetExtensionDictionary
(vla-Get-Layers
(vla-Get-ActiveDocument
(vlax-Get-Acad-Object))))
"ACAD_LAYERFILTERS")))
(princ "\nTout les filtres de calques on été supprimés avec succès !")
(command "_.audit" "_yes")
(command "_.purge" "_all" "" "_no")
(princ)
)

 

Quel est la différence avec celle-ci

 

(defun fixup ()
(vl-Load-Com)
(foreach dict (entget (namedobjdict))
	(if
		(and
			(= (type (cdr dict)) 'STR)
			(wcmatch (cdr dict) "AEC*")
			(wcmatch (cdr dict) "COVADIS*");ligne non présente dans l'original
		)
		(dictremove (namedobjdict) (cdr dict))
	)
)
; LayFiltDel downloaded from AcadX.com,
; author: R. Robert Bell
(vl-Catch-All-Apply
	'(lambda ()
		(vla-Remove (vla-GetExtensionDictionary
			(vla-Get-Layers
				(vla-Get-ActiveDocument
					(vlax-Get-Acad-Object)
				)
			)
		)
		"ACAD_LAYERFILTERS"
		)
	)
)
(command "_.audit" "_yes")
(command "_.purge" "_all" "" "_no")
(princ)
)
(defun c:fx () (fixup)) 

 

J'ai trouvé les deux sur le forum autodesk.

 

Merci de vos réponses car je débute sur autocad et surtout en lips.[Edité le 16/12/2008 par j-lo]

 

[Edité le 16/12/2008 par j-lo]

[(gile)]

Salut,

 

Les deux routines suppriment tous les filtres de calque.

La seconde (qui inclut la première) supprime en plus les dictionnaires générés par des applications verticales (AutoCAD Architechture et Covadis).

 

Les deux font un contrôle (audit) et une purge du dessin.

[j-lo]

J'utilise autocad pour du dessin mécanique en 2D, un grand nombre de plans on été contaminé par des centaines de filtres.

 

Les applications verticales ne me concernes pas enfin je pense.

 

Merci de votre réponse.

 

Cordialement.