• Андрей
  • Восстановленный участник
  • На форуме с 9 июня 2006г.
  • Сообщений: 96
  • Спасибо: 0

Тема: Цвет слоя

Уважаемые Знатоки, подскажите пожалуйста, как программно VB можно изменять цвета слоев  и видимость их в Автокаде.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Цвет слоя

ThisDrawind.Layers.Item("0").Color=162
Может, так?

  • Андрей
  • Восстановленный участник
  • На форуме с 9 июня 2006г.
  • Сообщений: 96
  • Спасибо: 0

Re: Цвет слоя

Спасибо за ответ.
С изменением цвета слоя разобрался.
Dim intCnt As Integer
  Dim oLayers As AcadLayers
  Set oLayers = ThisDrawing.Layers
  ReDim varLayerInfo(oLayers.Count - 1, 3)
  For intCnt = 0 To oLayers.Count - 1
  If oLayers(intCnt).Name = 0 Then oLayers(intCnt).color = acBlue
  Next intCnt
End Sub
Подскажите пожалуйста, как программно сделать слой невидимым.

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Цвет слоя

LayerOn

  • Андрей
  • Восстановленный участник
  • На форуме с 9 июня 2006г.
  • Сообщений: 96
  • Спасибо: 0

Re: Цвет слоя

Извините за бестолковые вопросы. Я очень спешил и не успевал посмотреть в хелп. Ваш форум очень дружеский, и на нем всегда можно получить помощь. Большое всем спасибо!