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

[German]

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

Я это и имел ввиду, просто не использовал никогда. Похоже, если такие метки проставлены в цикле, то каждый "_back" будет возвращать к предыдущей метке.
Мне кажется, об этом 1958, и спрашивал изначально.

[1958]

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

Погоняв Ваш код, признаю свою ошибку.

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

Где и как в коде Алексея отметить точку отката? Прошу прощения за наивный вопрос.
Всё! Разобрался.
Спасибо всем.

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

Всё! Разобрался.
Спасибо всем.

Ну так поделись своим решением. У нас так принято...

[1958]

Ну так поделись своим решением. У нас так принято...

Да какое там решение!

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

1. (vl-load-com)
2. (defun c:tt (/ adoc x s)
3.   (setq x    0.
4.         s    50.
5.         adoc (vla-get-activedocument (vlax-get-acad-object))
6.         ) ;_ end of setq
7.  (vl-cmdf "_undo" "_mark")
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.  (alert "выполнено")
16.  (vl-cmdf "_undo" "_back")
17.   ) ;_ end of defun

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

Да какое там решение!

Вот уж точно! Тебе в этом цикле совсем не нужны вызовы (vla-startundomark adoc) и (vla-endundomark adoc) - они лишние.

[1958]

Вот уж точно!  Тебе в этом цикле совсем не нужны вызовы (vla-startundomark adoc) и (vla-endundomark adoc) - они лишние.

Я просто в код Алексея добавил три строки, чтобы посмотреть что будет. А в своем основном лиспе (из-за которого весь сыр-бор) функции (vla-startundomark adoc) и (vla-endundomark adoc) я убрал. Еще раз спасибо!