[hwd]

Доброго времени суток.

Пользователю нужно, чтобы по завершению команды _.trim, автоматически удалялись примитивы, использовавшиеся в качестве "ножниц", т.е. те, относительно которых выполнялась обрезка.

Первое, что пришло на ум:

Код:

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

 
;; hwd-trim-with-erasing - обрезка примитивов с последующим удалением вспомогательных "ножниц".
(defun c:hwd-trim-with-erasing()
	(setq items (ssget)) ;; запоминаем вспомогательные объекты
	(command "_.trim" items "" pause) ;; выполняем основную команду	
	(command "_.erase" items "") ;; удаляем вспомогательные объекты
);; defun

Проблема в том, что pause позволяет пользователю выполнить только одно действие, т.е. выбрать только один обрезаемый объект. Из-за этого возникает ошибка. Чтобы код заработал, приходится писать такой вариант:

Код:

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

 
;; hwd-trim-with-erasing - обрезка примитивов с последующим удалением вспомогательных "ножниц".
(defun c:hwd-trim-with-erasing()
	(setq items (ssget)) ;; запоминаем вспомогательные объекты
	(command "_.trim" items "" pause) ;; выполняем основную команду
        (command)
	(command "_.erase" items "") ;; удаляем вспомогательные объекты
);; defun

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

Как решается проблема с pause?

Спасибо

[gomer]

первое что пришло на ум...

Код:

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

 ((lambda (ss)
   (cond (ss
	  (command "_.trim" ss "")
	  (while (= (getvar "CMDACTIVE") 1)
	    (vl-cmdf pause)
	  )
	  (command "_.erase" ss "")
	 )
   )
 )
  (ssget)
)

[hwd]

@gomer,
Спасибо!