Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

Удаление фильтров слоев AutoCAD

Назад к списку функций
;;; DLF.LSP
;;;
;;; Удаление фильтров слоев AutoCAD с помощью команды DLF
;;;
;;; Проверено на AutoCAD 2000, 2000i, 2002, 2004, 2005, 2006, 2007, 2008, 2009
;;;

(vl-load-com)

;;; очистить/удалить все фильтры слоев
;;; Пример использования: (DeleteLayerFilters)
(defun DeleteLayerFilters ()
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove
(vla-GetExtensionDictionary
(vla-Get-Layers
(vla-Get-ActiveDocument
(vlax-Get-Acad-Object))))
"ACAD_LAYERFILTERS")))
)
;;; очистить/удалить все фильтры слоев для AutoCAD 2005 или более поздней версии
;;; Пример использования: (DeleteLayerFilters2)
(defun DeleteLayerFilters2 ()
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove
(vla-GetExtensionDictionary
(vla-Get-Layers
(vla-Get-ActiveDocument
(vlax-Get-Acad-Object))))
"AcLyDictionary")))
)

(defun c:dlf()
(DeleteLayerFilters)
(DeleteLayerFilters2)
(princ "\nВсе фильтры слоев удалены!")
(princ)
)



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko