• Ilsur
  • Восстановленный участник
  • На форуме с 29 января 2004г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Как убить все фильтры в Layer properties manager?

Кто нибудь знает как можно убить фильтры Layer properties manager?
P.S. Все сразу!!!

  • Vaniko
  • Восстановленный участник
  • На форуме с 23 октября 2003г.
  • Сообщений: 36
  • Спасибо: 0

Re: Как убить все фильтры в Layer properties manager?

... вот чистилка на VBA:

Public Sub LayerFiltersPurge()
    Dim LayerFilters As Integer
    Dim ExtDict As AcadDictionary
    Dim ExtDictEnt As AcadXRecord
    Set ExtDict = ThisDrawing.Layers.GetExtensionDictionary '(ACAD_LAYERFILTERS)
    If ExtDict.Count > 0 Then
        Set ExtDict = ThisDrawing.Layers.GetExtensionDictionary(ACAD_LAYERFILTERS)
        For Each ExtDictEnt In ExtDict
            LayerFilters = LayerFilters + 1
            ExtDictEnt.Delete
        Next ExtDictEnt
        MsgBox "Удалено " & LayerFilters & " фильтров слоев"
    Else
        MsgBox "Фильтров слоев не обнаружено"
    End If
End Sub

а на кнопку можно такую команду повесить:

^C^C(defun c:LayerFiltersPurge() (command "vbarun" "Main.LayerFiltersPurge")) LayerFiltersPurge

  • Ilsur
  • Восстановленный участник
  • На форуме с 29 января 2004г.
  • Сообщений: 4
  • Спасибо: 0

Re: Как убить все фильтры в Layer properties manager?

Vanilko спасибо. Все работает.