[МишаИнженер]

Команда _intersect ("Пересечение") создает 3D объект, который принадлежит всем исходным 3D объектам одновременно. Как сделать так так чтобы после завершения команды "Пересечение" исходные объекты не удалялись?

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

delobj ?

[МишаИнженер]

Сообщение от Кулик Алексей aka kpblc delobj

Вроде бы не подходит.

DELOBJ Режим сохранения или удаления примитивов, используемых для создания других объектов

Эта системная переменная управляет удалением примитивов, которые использовались для создания исходных 3D объектов.
Может можно как-то LISP сделать, который перед запуском команды _intersect делал бы копии исходных объектов?
Чтобы сделать копии какую надо использовать команду, _copy?

[Хмурый]

вроде, этот момент разбирали лет 20 назад.
перед применением команды _intersect следует скопировать объекты

[МишаИнженер]

Получилось сделать LISP программу с копированием объектов:

Код:

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

 (defun C:CopyInter()
 ;Функция выполняет команду "Пересечение" с сохранением исходных объектов
 ;Выделим исходные объекты на экране
	(setq sEnt (entsel) sset (ssadd))
	(ssadd (car sEnt) sset)
	(while (setq sEnt (entsel)) (ssadd (car sEnt) sset))
  ;Сделаем копии исходных объектов
	(command "_copy" sset "" '(0. 0. 0.) '(0. 0. 0.))
  ;Выполним команду "Пересечение"
	(command "_intersect" sset "")
	(princ)
)

Неудобство в том, что выделенные объекты не подсвечиваются, поэтому не понятно все ли объекты выделены.
Как сделать так чтобы при выборе объекты подсвечивались?

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

ssetfirst

[МишаИнженер]

Спасибо! Получился код:

Код:

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

 (defun C:CopyInter()
 ;Функция выполняет команду "Пересечение" с сохранением исходных объектов
 ;Выделим исходные объекты на экране
	(setq sEnt (entsel) sset (ssadd))
	(ssadd (car sEnt) sset)
	(sssetfirst nil sset)
	(while (setq sEnt (entsel)) (progn (ssadd (car sEnt) sset) (sssetfirst nil sset)))
  ;Сделаем копии исходных объектов
	(command "_copy" sset "" '(0. 0. 0.) '(0. 0. 0.))
  ;Выполним команду "Пересечение"
	(command "_intersect" sset "")
	(princ)
)

Объекты подсвечиваются.
Странная конечно команда "ssetfirst": когда параметр nil, тогда объекты подсвечиваются. По логике, когда параметр "включено", тогда должны объекты подсвечиваться.
К этому надо привыкать, потому что много таких "абсурдных" ситуаций в LISP.