[Джек]

всем привет!!!!
Вот надумал я сделать прожку для быстрого удаления прямых и лучей на чертеже. Вот код:

Код:

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

(defun c:deliteXLINE (/ SSXLINE SSRAY )
  (setq  SSXLINE (ssget "_X" (list '(0 . "XLINE") )))
  (setq SSRAY (ssget "_X" (list '(0 . "RAY") )))
    (command "_erase" SSXLINE "")
  (command "_erase" SSRAY "")
  (alert (strcat "\nУдалено " (itoa (sslength SSXLINE)) " прямых " " и "   (itoa (sslength SSRAY)) " лучей" ))
  (princ)
)

Но, как чайник в лиспе - есть некоторые вопросы:
1- как сделать после завершения программы - при нажатии отмена - возвращались все ранее удаленные примитивы
2 - если на чертеже нет луча - , почему программа не работает?
за ранее спасибо

[VVA]

Код:

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

(defun c:deliteXLINE (/ SSXLINE SSRAY )
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setq  SSXLINE (ssget "_X" '((0 . "XLINE"))))
  (setq SSRAY (ssget "_X" '((0 . "RAY"))))
  (if SSXLINE  (command "_erase" SSXLINE "")(setq SSXLINE (ssadd)))
  (if SSRAY (command "_erase" SSRAY "")(setq SSRAY (ssadd)))
  (vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))
  (alert (strcat "\nУдалено " (itoa (sslength SSXLINE)) " прямых " " и "   (itoa (sslength SSRAY)) " лучей" )) 
  (princ))

[Лентяй]

1. Для вохврата служит команда "undo". Нажатие ESC должно прерывать выполненте программы, однако я не вижу в коде места, где такое нажатие можно сделать.
2. Сделай так

Код:

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

(alert (strcat "\nУдалено " (if SSXLINE (itoa (sslength SSXLINE)) "0") " прямых "
           " и " (if SSRAY (itoa (sslength SSRAY)) "0") " лучей" ))

и будет тебе щастя