[sanchez206283]

Подскажите, как можно вычесть одно 3D тело из другого, чтобы при этом оба этих тела остались? Видел в 3D max вроде после вычитания тел предлагается оставить или удалить обьект. Автокад же ничего не предлагает, а сразу удаляет вычитаемое тело.

[vadim_evg1]

http://ad-cad.narod.ru/AD-Profil.htm
команда Ad-Sub

[sanchez206283]

Загрузился файл формата vlx. И что с ним делать?

[Дима_]

команда subtr:

Код:

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

(vl-load-com)
(defun sstolist (ss / i lst); конвертирует набор в список
(setq i 0)
(if ss
(repeat (sslength ss)
(setq lst (append lst (list (ssname ss i))) i (1+ i))
));end of repeat & if
lst);end of sstolist
(defun c:subtr( / ss1)
(princ "\nВыберите тела из которых будет производиться вычитание ")
(setq	ss1 (mapcar 'vlax-ename->vla-object (sstolist (ssget (list (cons -4 "<OR") (cons 0 "3DSOLID") (cons 0 "REGION") (cons -4 "OR>"))))))
		(princ "\nВыберите вычитаемые тела ")
(mapcar '(lambda (obj)
		(mapcar '(lambda (x) (vla-boolean x acSubtraction (vla-copy obj))) ss1)) 
(mapcar 'vlax-ename->vla-object (sstolist (ssget (list (cons -4 "<OR") (cons 0 "3DSOLID") (cons 0 "REGION") (cons -4 "OR>"))))))
(princ))

[Хмурый]

а кажется, так всё просто: скопировал объекты сами на себя и вычитай

[Дима_]

Сообщение от Хмурый а кажется, так всё просто: скопировал объекты сами на себя и вычитай

Верно - но беда в том, что если вычитать из нескольких они меж собой объедняться, что не всегда удобно.

[atollon]

Ну выполни еще одну команду - Разделить

Код:

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

Команда: _solidedit
Автоматическая проверка тел при редактировании:  SOLIDCHECK=1
Задайте опцию редактирования тела [Грань/Ребро/Тело ACIS/Отменить/выХод] 
<выХод>: _body
Задайте опцию редактирования тела
[Клеймить/Разделить/оБолочка/Упростить/Проверить/Отменить/выХод] <выХод>: 
_separate
Выберите 3D тело:

[конструтор]

sanchez206283,
А попробуй скопировать вычитаемое тело и вставить на тоже место- будет их два- одно изх них вычтеш другое останется

[sanchez206283]

конструтор, я так и делал. Но в конструкции, где нужно сделать много вычитаний без удаления (шип-пазов в моем случае) это слишком уж кропотливо. Вот и ищу здесь способ поэффективнее.

[Taracka]

Все "шипы" на отдельный слой. Выбрать их все, скопировать, например на @0,10000. Потом вычесть то что нужно и переместить обратно второй экземпляр шипов.

[конструтор]

sanchez206283,

Кропотливо, но смотря как делать - попробуй вставить один шип и распредель енго по контуру массивом - это будет быстрей

[vrtm]

конструтор, Offtop: ты видимо указал стрелочкой на то место где у ТЕБЯ находится кнопка масштаба на расположенной у ТЕБЯ панели. Поржал - в документе тока выноска

[sanchez206283]

vrtm, ага. Там только надпись "Массив" и выноска

[конструтор]

sanchez206283,
Ребята я прошу прощения
Действительно стрелка показывает на кнопку "Массив", а куда делся экран - ?

[Jerald]

Нашёл сию тему поиском, что бы новую не открывать задам здесь вопрос: Кто то знает? Есть ли какая-нибудь системная переменная отвечающая за то, что бы команда SUBTRACT не объединяла солиды после вычитания из них?

[Хмурый]

Jerald, такой системной переменной нет.
После объединения воспользоваться опцией команды

_solidedit
Solids editing automatic checking: SOLIDCHECK=1
Enter a solids editing option [Face/Edge/Body/Undo/eXit] <eXit>: _body
Enter a body editing option
[Imprint/seParate solids/Shell/cLean/Check/Undo/eXit] <eXit>: _separate