Отмена действий

[1958]

Искал ответ на вопрос, но не нашёл. Наверно, плохо искал. 
Суть вопроса:
1. делаю выборку по признаку ACAD_PROXY_ENTITY
2. ставлю метку (vla-startundomark adoc)
3. расчленяю набор командой (vl-cmdf "_explode" (ssname ss i))
4. ставлю метку (vla-endundomark adoc)
5. теперь делаю выборку по признаку "CIRCLE" среди расчлененных элементов
6. если окружности в новом наборе имеются, то продолжаю дальнейшие действия.

А если в новом наборе нет окружностей, то как мне отменить действия между метками?
(vl-cmdf "_undo" ... ? )
Что записать в команде? Какие параметры?

[Александр Ривилис]

3. расчленяю набор командой (vl-cmdf "_explode" (ssname ss i))

Тут расчленяется не набор, а один выбранный примитив.

6. если окружности в новом наборе имеются, то продолжаю дальнейшие действия.

А если в новом наборе нет окружностей, то как мне отменить действия между метками?
(vl-cmdf "_undo" ... ? )
Что записать в команде? Какие параметры?

Попробуй:

Код - Auto/Visual Lisp [Выбрать]

1. (vl-cmdf "_u")

[1958]

Тут расчленяется не набор, а один выбранный примитив.

У меня там идет перебор в цикле, не стал расписывать досконально в сообщении.

(vl-cmdf "_u")

Не работает, т.е. прокси-объекты (вернее их остатки) остаются расчлененными.

[Александр Ривилис]

Можно еще попробовать

Код - Auto/Visual Lisp [Выбрать]

1. (vl-cmdf "_undo" "1")

Только я вот думаю, что в этом контексте не поможет.

[1958]

Можно еще попробовать
Код - Auto/Visual Lisp [Выбрать]
(vl-cmdf "_undo" "1")
Только я вот думаю, что в этом контексте не поможет.

Нет, не работает.
Наверно, надо в

1. делаю выборку по признаку ACAD_PROXY_ENTITY

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

[Александр Ривилис]

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

Это правильно, но не всегда возможно - далеко не все прокси-примитивы можно копировать, а тем более менять им слой.

[1958]

(vl-cmdf "_undo" "1")

Попробовал такой вариант:

Код - Auto/Visual Lisp [Выбрать]

1. (vl-cmdf "_undo" "5")

Вроде работает.

[Александр Ривилис]

Попробовал такой вариант:
Код - Auto/Visual Lisp [Выбрать]

    (vl-cmdf "_undo" "5")

Вроде работает.

По меньшей мере странно.

[1958]

По меньшей мере странно.

1 - авто;
2 - управление;
3 - начало;
4 - конец;
5 - метка;
6 - обратно.

Вы предложили <1>, не сработало. А вот <5> (возврат к метке) - работает. Вроде логично. Погоняю еще немного на работе с разными файлами.

[Алексей Кулик]

Мне кажется, что 5 в данном случае будет пониматься не как "Метка", а как количество отменяемых шагов.

[1958]

Мне кажется, что 5 в данном случае будет пониматься не как "Метка", а как количество отменяемых шагов.

Возможно. Но, Вы посмотрите рисунок запроса действий на команду undo.

[Алексей Кулик]

Смотрел. Много раз смотрел
Делать видео лениво, поэтому сделаем небольшой код:

Код - Auto/Visual Lisp [Выбрать]

1. (vl-load-com)
2.  
3. (defun tt (/ adoc x s)
4.   (setq x    0.
5.         s    50.
6.         adoc (vla-get-activedocument (vlax-get-acad-object))
7.         ) ;_ end of setq
8.   (repeat 15
9.     (vla-startundomark adoc)
10.     (entmakex (list '(0 . "circle") (cons 10 (list x 0. 0.)) (cons 40 (* s 0.4))))
11.     (setq x (+ x s))
12.     (vla-endundomark adoc)
13.     ) ;_ end of repeat
14.   (princ)
15.   ) ;_ end of defun

После выполнения делаем _.undo и нажимаем, к примеру, 8. Смотрим на результат

[German]

А параметр "Mark" не работает? Я имею ввиду, что-то вроде:

Код - Auto/Visual Lisp [Выбрать]

1. (vl-cmdf "_undo" "M")

[Алексей Кулик]

Конечно работает! 1958, как мне кажется, просто перепутал количество отменяемых действий и порядковый номер опции

[Александр Ривилис]

А параметр "Mark" не работает? Я имею ввиду, что-то вроде:

Код - Auto/Visual Lisp [Выбрать]

1. (vl-cmdf "_undo" "M")

Тогда уж так. Отмечаем точку, до которой нужно откатиться:

Код - Auto/Visual Lisp [Выбрать]

1. (vl-cmdf "_undo" "_mark")

Если нужно откатиться, то вызываем:

Код - Auto/Visual Lisp [Выбрать]

1. (vl-cmdf "_undo" "_back")