Argument sur vla-remove

[Patrick_35]

Bonjour à tous

 

J'ai récupéré ce petit programme hyper pratique et j'essaye de comprendre comment il fonctionne et une chose m'échappe complètement

Je ne vois pas où on sait que c'est l'argument "ACAD_LAYERFILTERS" qu'on doit utiliser dans le vla-remove :casstet:

J'ai beau chercher dans l'aide, avec du vba (oui, oui, j'essaye un peu), faire des vlax-dump-object sur différents objets, que nenni... :calim:

 

Merci d'avance

 

(defun C:LayerFiltersDelete  ()
(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.")
(princ))

(defun C:LFD () (C:LayerFiltersDelete))