[+Alex+]

Здравствуйте!
При работе программы создаются слои. Список создаваемых слоев известен.
Проблема заключается в том, что в текущий чертеж уже может содержать слои совпадающие по названию со слоями из списка.

При возникновении исключительной ситуации требуется откатить состояние чертежа до начала работы программы.

Как организовать следующее:

Если есть такой слой -> Если он может быть удален - > Удалить

(if (tblsearch "LAYER" lay)...?

[T-Yoke]

Сообщение от +Alex+ Здравствуйте! При работе программы создаются слои. Список создаваемых слоев известен. Проблема заключается в том, что в текущий чертеж уже может содержать слои совпадающие по названию со слоями из списка. При возникновении исключительной ситуации требуется откатить состояние чертежа до начала работы программы. Как организовать следующее: Если есть такой слой -> Если он может быть удален - > Удалить (if (tblsearch "LAYER" lay)...?

Если наименования слоев заранее известны, можно в шаблоне чертежа сгруппировать эти слои в одну группу, и когда они будут не нужны удалить все слои в этой группе.

[+Alex+]

Группировка слоев нежелательна.
Необходима проверка на возможность удаления.

[Makswell]

Код:

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

(if (tblsearch "LAYER" lay)
  (progn
    (setq vla_lay (vlax-ename->vla-object (tblobjname "LAYER" lay)))
    (if	(= (vla-get-Used vla_lay) :vlax-false)
      (vla-Delete vla_lay)
    )
  )
)

[+Alex+]

Makswell
Спасибо.
Попробую.

[+Alex+]

Со слоями получилось.
Еще возник один вопрос. Как проверить на возможность удаления не слоя а блока? Имя блока также известно.

[+Alex+]

Печально, но выяснилось, что vla-get-used выдает правильный результат (:vlax-true) только если проверяемый слой текущий. В остальных случаях всегда :vlax-false!
Вопрос остался открытым.

[Елпанов Евгений]

Сообщение от +Alex+ Печально, но выяснилось, что vla-get-used выдает правильный результат (:vlax-true) только если проверяемый слой текущий. В остальных случаях всегда :vlax-false! Вопрос остался открытым.

Тебе обязательно проверять, можно ли удалить этот слой?

Код:

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

(if (tblsearch "LAYER" lay)
 (not (vl-catch-all-error-p
       (vl-catch-all-apply
        (function vla-Delete)
        (list (vlax-ename->vla-object (tblobjname "LAYER" lay)))
       ) ;_  vl-catch-all-apply
      ) ;_  vl-catch-all-error-p
 ) ;_  not
)

[Елпанов Евгений]

кстати, если просто нужно удалить все слои, которые удаляются:

Код:

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

(vlax-map-collection
 (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
 (function (lambda (a) (vl-catch-all-apply (function vla-Delete) (list a))))
)

[+Alex+]

Да, так работает.
Странно, что нет более красивого решения без использования vl-catch-all-apply

Огромное спасибо!!!

[dextron3]

Елпанов Евгений, а как удалить блок существующий в чертеже, но чтобы выпадало окошко с существующими блоками?

[Елпанов Евгений]

Сообщение от dextron3 Елпанов Евгений, а как удалить блок существующий в чертеже, но чтобы выпадало окошко с существующими блоками?

Написать одну программу, выводящую список блоков в диалоговое окошко. И другую, которая вызывает это окно и запускает удаление блока из чертежа.

ps. Мне думается, вы ждали другой ответ...

[dextron3]

а если вам на сотку смс отправить в ответном смс лисп программка не прийдет?

[Елпанов Евгений]

Сообщение от dextron3 а если вам на сотку смс отправить в ответном смс лисп программка не прийдет?

Не придет...
Но, за сотку, спасибо!