[solo123]

Подскажите как удалить в уже разрезанном объекте отрезанные части C помощью Activex Например: Ящик (Box) надо сделать два паралельных реза и оставить только центральную часть.
В примере режет и удаляет все только с одного края. Как исправить код? Или, может быть после первого реза программно развернуть координату Z на 180 градусов?

Код:

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

 (defun c:sl_so (/ )
(command "_ucs"  "WORLD")
(vl-load-com)
(setq acad_application (vlax-get-acad-object))
(setq active_document (vla-get-ActiveDocument acad_application))
(setq model_space (vla-get-ModelSpace active_document))
(setq  _Box (vla-addBox model_space   (vlax-3D-point  0 0 0)   10.0  10.0  2000.0))
(vla-slicesolid  _Box (vlax-3D-point   0 0 100.0) (vlax-3D-point   1.0  0 100.0) (vlax-3D-point   1.0 1.0 100.0) :vlax-false)
(vla-slicesolid  _Box (vlax-3D-point   0 0 -100.0) (vlax-3D-point   1.0  0 -100.0) (vlax-3D-point   1.0 1.0 -100.0) :vlax-false)
)

----- добавлено через ~16 ч. -----

Код:

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

 (defun c:sl_so (/ )
(command "_ucs"  "WORLD")
(vl-load-com)
(setq acad_application (vlax-get-acad-object))
(setq active_document (vla-get-ActiveDocument acad_application))
(setq model_space (vla-get-ModelSpace active_document))
(setq  _Box (vla-addBox model_space   (vlax-3D-point  0 0 0)   10.0  10.0  2000.0))
(vla-slicesolid  _Box (vlax-3D-point   0 0 100.0) (vlax-3D-point   1.0  0 100.0) (vlax-3D-point   1.0 1.0 100.0) :vlax-false)
(vla-Rotate3D _Box (vlax-3D-point   0 0 0)  (vlax-3D-point     0 1.0 0) (angtof "180"))
(vla-slicesolid  _Box (vlax-3D-point   0 0  100.0) (vlax-3D-point   1.0  0  100.0) (vlax-3D-point   1.0 1.0  100.0) :vlax-false)
) ;;сНОвым годом!!!!

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

ПОменяй delobj, например, потом анализируй результаты vla-silcesolid и удаляй ненужное