effacer etat des calques

[Invité ingoenius]

je me trouve souvant a utiliser la commande lman pour enregistrer des etat des calques,

par contre quand je veux effacer plusieres de ces memoires il faut le fair un par un , il y pas un facon d'effacer d'un coup tous les etat de calque sauvegardees du dessin ???

 

un espece de purge lman????

 

merci pere noel ;-)

 

 

[Invité ingoenius]

voilà aprés un recherche approfondie et quelques modification voici ici 3 routines differentes

 

peut'etre on pet faire beaucoup plus concis, masi en attendant ca marche

si ca peut servir ;-)

 

 

 

KILL efface les filtres et les etat des layer

 

(defun C:Kill (/ lyr ent cnt)
 
(setq cnt 0)
(while (setq lyr (tblnext "layer" (not lyr)))
(setq ent (entget (tblobjname "layer" (cdr (assoc 2 lyr)))'("RAK")))
(if (and ent (assoc -3 ent))
(progn
(setq ent (subst '(-3 ("RAK")) (assoc -3 ent) ent))
(entmod ent)
(setq cnt (1+ cnt))
)
)
)

(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 "\nAll layer filters have been deleted.")

 (alert "Layer State and filters Erased" );messaggio a schermo
(princ)
)

 

 

 

LKILL efface les etat des layers

 

 
(defun C:LKill (/ lyr ent cnt)
 
(setq cnt 0)
(while (setq lyr (tblnext "layer" (not lyr)))
(setq ent (entget (tblobjname "layer" (cdr (assoc 2 lyr)))'("RAK")))
(if (and ent (assoc -3 ent))
(progn
(setq ent (subst '(-3 ("RAK")) (assoc -3 ent) ent))
(entmod ent)
(setq cnt (1+ cnt))
)
)
)

(alert "Layer State Erased" );messaggio a schermo
(princ)
)

 

 

FKILL efface les filtres des layer

(defun C:FKill ()
(vl-Load-Com)
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove
(vla-GetExtensionDictionary
(vla-Get-Layers
(vla-Get-ActiveDocument
(vlax-Get-Acad-Object)
)
)
)
"ACAD_LAYERFILTERS"
)
)
)
(alert "Layer Filter Erased" );messaggio a schermo  

(princ)
)

[Patrick_35]

Salut

Sur ce sujet

 

@+