[neopentan]

Как с помощью VBA создавать маскирующие объекты (многоугольники фонового цвета, которыми можно закрывать объекты рисунка) и включать/отключать их контур?

[AlexV]

Сообщение от neopentan Как с помощью VBA создавать маскирующие объекты (многоугольники фонового цвета, которыми можно закрывать объекты рисунка) и включать/отключать их контур?

Ну, включить/выключить проще всего, по моему, так:

Код:

[Выделить все]

ThisDrawing.SendCommand "._wipeout" & vbCr & "_f" & vbCr & "_ON" & vbCr
ThisDrawing.SendCommand "._wipeout" & vbCr & "_f" & vbCr & "_OFF" & vbCr

[neopentan]

Помогло, спасибо огромное!

[Дима_]

Сообщение от neopentan которыми можно закрывать объекты рисунка

на всякий случай - у всех объектов чертежа есть свойство видимости

[Do$]

Сообщение от Дима_ на всякий случай - у всех объектов чертежа есть свойство видимости

Вот, кстати, всегда было интересно - это свойство доступно только программно или есть возможность пользователю управлять видимостью отдельного объекта? Ну и интересно, использовал ли кто-то изменение видимости отдельных объектов в своей программе? Может быть есть какое-то мнение на основе опыта - стОит это использовать или есть подводные камни?

[Boxa]

Я глубоко не копал, попробовал и только.
ИМХО. Сделав программно объект невидимым, вернуть ему видимость можно так же программно, вот только выбрать объект уже не получится (как вариант выбрать все через ctrl-a и очистить ненужное через shift+выбор мышкой), так что приходится перебирать всю базу и делать все объекты видимыми.

[kp+]

использовал ли кто-то изменение видимости отдельных объектов в своей программе?

В Toolpack'е реализован полный набор команд для работы с видимостью объектов, именно такой, как сказал уважаемый Воха.

Visibility OBV You can temporarily and permanently blank out objects, regardless of their layer. This tool provides this capability. Each method is explained below. Blank Used to temporarily blank out objects, they return to the screen on the next redraw. Redrawall Used to restore all blanked out objects. Redraw works as well. Hide Used to permanently hide objects, they DO NOT return to the screen on the next redraw, or regen. UnhideAll Used to restore all hidden objects.

Лично я ими никогда не пользовался, но возможность отключить отдельные объекты включенного слоя может кому-то понадобиться. Например, так можно внедрить в чертеж своеобразный "водяной знак". Не слишком надежный, но с эффектом внезапности

[Дима_]

У меня есть вспомогательная команда для скрытия выделенных и для показа всех - для трехмерки очень удобно.

[gomer]

_HIDEOBJECTS и _UNHIDE стандартные команды автокада 2013, раньше не скажу...

[kp+]

в 2010 нет

[Do$]

То, что есть команды может и хорошо, а может и плохо. Придет чертеж с кучей невидимых объектов, и ломай голову, почему он пустой и весит десятки мб.
Пока не понадобилось ни разу скрывать объекты, но отсутствие стандартного интерфейса для контроля этого как-то напрягало. Слой отключил - это можно проверить в диспетчере слоев, а вот если объект - попробуй догадайся где он.