Все действительно просто.
До того, как сделать кнопку, забрось себе лиспик:
Цитата:
(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))
|
Вот теперь сделай кнопку (надеюсь, что умеешь

), посади на нее иконку, в макро впиши вот это:
Цитата:
^C^C-purge a n -purge a n -purge a n -purge a n -purge a n -purge a n audit y LFD
|
И успехов