[Cfytrr]

Приветствую.
При работе с насыщенными чертежами очень удобно пользоваться функцией временной изоляции объектов ISOLATEOBJECTS. Только вот очень часто возникает необходимость добавить к уже изолированной группе объектов еще несколько, приходится отменять действующую "изоляцию" и выбирать заново (при этом, как правило, забываешь выбрать парочку нужных и повторяешь все заново). Так вот, возможен ли вариант дополнительного выбора объектов без отмены уже существующей изолированной группы?

[Agnilebannen]

Как добавить быстро объекты к изолированным я не знаю, но в вашем способе можно сделать улучшение: перед тем как отменять изоляцию можно создать из всех изолированных объектов создать группу, чтобы потом ничего не потерять при повторной изоляции.

[VVA]

Это не подойдет? LISP for hiding/showing objects...

[Cfytrr]

VVA,
Да, это то что нужно!

[CaMoCAD]

VVA, спасибо, удобная штука.
Вопрос: а куда прячутся объекты? Замороженных/выключенных слоев нет... Если сохранить файл со спрятанными объектами, они не пропадут? Как показать спрятанные объекты на чужом компе без этого лиспа?

[VVA]

CaMoCAD, У примитивов есть свойство Visible. Примитивы не пропадут в любом случае, так как их никто не удаляет. По идее ISOLATEOBJECTS и HIDEOBJECTS должны так же оперировать этим свойством. По идее UNISOLATEOBJECTS должна восстановить, но это требует проверки

[CaMoCAD]

VVA, штука в том, что в aCAD2010 нет этих команд, а лисп работает

[sasha_lif]

вот еще одна прога
http://forum.dwg.ru/showthread.php?t=87666 пост №6

[VVA]

Само свойство существует с давних времен. А команды появились, начиная с 2011

[Cfytrr]

VVA,
Не подскажите как должен выглядеть макрос для того чтобы "правый клик" повторно вызывал не просто команду команду _INVIS, а команду с параметром _INVIS I


з.ы. Родные команды Autocad не "включают " отключенные Вашим макросом объекты

Command: _UnIsolateObjects
No objects to unisolate.

Сообщение от Cfytrr Не подскажите как должен выглядеть макрос для того чтобы "правый клик" повторно вызывал не просто команду команду _INVIS, а команду с параметром _INVIS I

"Правый клик" это я так понимаю, повтор последней команды?..
Можно на кнопку повесить макрос по типу:

Код:

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

^C^C(defun C:Имя_Псевдокоманды () <код_лиспа>)

И выглядеть он будет примерно так:

Код:

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

^C^C(defun C:MyInvis () (command "_INVIS" "_I"))

После первого запуска с кнопки в течение сеанса команда будет доступна как любая другая команда AutoCAD.

[gomer]

Сообщение от VVA По идее UNISOLATEOBJECTS должна восстановить, но это требует проверки

Нет, не восстанавливает

[VVA]

Сообщение от gomer Нет, не восстанавливает

То, что эти команды используют свойство visible - подтверждается

Команда: (setq line (vlax-ename->vla-object(car(entsel)))) Выберите объект: #<VLA-OBJECT IAcadLine 14ed82ec> Команда: Команда: (vla-get-Visible line) :vlax-true Команда: HIDEOBJECTS Выберите объекты: найдено: 1 Выберите объекты: Команда: (vla-get-Visible line) :vlax-false

Беглый анализ показал, что про выполнении команды создается словарь

Команда: (mapcar 'cdr(vl-remove-if-not '(lambda(x)(= (car x) 3))(entget(namedobjdict)))) ("ACAD_CIP_PREVIOUS_PRODUCT_INFO" "ACAD_COLOR" "ACAD_DETAILVIEWSTYLE" "ACAD_FIELDLIST" "ACAD_GROUP" "ACAD_IMAGE_VARS" "ACAD_LAYOUT" "ACAD_MATERIAL" "ACAD_MLEADERSTYLE" "ACAD_MLINESTYLE" "ACAD_OBJECTISOLATION" "ACAD_PLOTSETTINGS" "ACAD_PLOTSTYLENAME" "ACAD_SCALELIST" "ACAD_SECTIONVIEWSTYLE" "ACAD_TABLESTYLE" "ACAD_VISUALSTYLE" "ACAD_WIPEOUT_VARS" "AcAec" "AcDbVariableDictionary" "BNS_VARIABLES" "VETCAD_DICT")

Осталось разобраться со структурой и "запихать" скрываемые примитивы туда, чтобы восстанавливало