• На форуме с 30 октября 2006г.
  • Сообщений: 70
  • Спасибо: 0

Тема: Доступ к свойствам слоёв в ВЭ в менеджере слоёв

Каким образом можно поменять значения свойств:
1. Current VP Freeze (available only from a layout tab)
2. New VP Freeze (available only from a layout tab)
с помощью VBA. Где найти объекты отвечающие за эти свойства?

Ответ от AnatolyN (изменено: Anatoly, 15 апреля 2010г. 23:23:07)

  • AnatolyN
  • Активный участник
  • Откуда: Москва
  • На форуме с 14 мая 2009г.
  • Сообщений: 178
  • Спасибо: 4

Re: Доступ к свойствам слоёв в ВЭ в менеджере слоёв

Повторю вопрос.
Можно ли заморозить слой во вьюпорте (то-же, что делает vp freeze в Layer Manager)?

  • Откуда: Санкт-Петербург
  • На форуме с 24 октября 2008г.
  • Сообщений: 19
  • Спасибо: 0

Re: Доступ к свойствам слоёв в ВЭ в менеджере слоёв

Я для себя сделал следующую функцию:
Public Function LayersUsedPropsRead(LayersUsedProps())
    'цель: чтение свойств всех слоев. Полезно при изменении свойств слоев, а затем их восстановлении.
    'пример применения:
        'Dim LayersUsedProps()
        'Call LayersUsedPropsRead(LayersUsedProps())'чтение свойств всех слоев
    Dim n%: n = ThisDrawing.Layers.Count
    ReDim LayersUsedProps(0 To 7, 1 To n)
    Dim layerObj As AcadLayer
    Dim i%: i = 0
    For Each layerObj In ThisDrawing.Layers
        i = i + 1
        LayersUsedProps(0, i) = layerObj.Name
        If layerObj.LayerOn Then LayersUsedProps(1, i) = True
        If layerObj.Lock Then LayersUsedProps(2, i) = True
        If layerObj.Freeze Then LayersUsedProps(3, i) = True
        If layerObj.Plottable Then LayersUsedProps(4, i) = True
        LayersUsedProps(5, i) = layerObj.linetype
        LayersUsedProps(6, i) = layerObj.Lineweight
        LayersUsedProps(7, i) = layerObj.color 'В дальнейшем добавлять свойства по мере надобности
    Next
End Function
Соотвественно, можно сделать функцию по изменению свойств.