• Dolgy44
  • Восстановленный участник
  • На форуме с 22 марта 2008г.
  • Сообщений: 9
  • Спасибо: 0

Тема: Видимость при печати

Не знаю как сделать в vba, чтобы объект(допустим AcadText) на чертеже не печатался?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Видимость при печати

> Dolgy44

Sub LetLayer()
    Dim layerObj As AcadLayer
    Set layerObj = ThisDrawing.Layers.Add("New_Layer")
    layerObj.Plottable = False
    Dim MyText As AcadText
    '---------------------
    MyText.Layer = "New_Layer"
End Sub

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

Re: Видимость при печати

Если надо работать с одним конкретным объектом (не затрагивая остальных), можно попробовать Visible поменять. Вдруг поможет?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Видимость при печати

> Кулик Алексей aka kpblc
Я попробовал, похоже и вправду помогает. Но мне кажется что автору темы нужно чтобы объект оставался на экране и только не выводился в печать.
Т.е. можно манипулировать видимостью, отключая ее на момент печати и возвращая затем.
Вообщем, пусть решает Dolgy44 что ему больше подходит. На всякий случай вот простенький код:

Dim returnObj As AcadText
    Dim basePnt As Variant
    On Error Resume Next
    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an text"
    returnObj.Visible = False
'    ---------------------------
    returnObj.Visible = True

  • Dolgy44
  • Восстановленный участник
  • На форуме с 22 марта 2008г.
  • Сообщений: 9
  • Спасибо: 0

Re: Видимость при печати

Спасибо большое Вам. Все получилось))