[solo123]

Как из первого примитива вычесть второй?
(command "._box" "0,0,0" "l" "30" "40" "50" )
(command "._box" "0,0,0" "l" "10" "20" "30" )
(command "._box" "10,10,50" "l" "30" "40" "50" )
А потом все три объединить?

[gomer]

используй команду ._union

[Олег (jr.)]

Сообщение от solo123 Как из первого примитива вычесть второй? (command "._box" "0,0,0" "l" "30" "40" "50" ) (command "._box" "0,0,0" "l" "10" "20" "30" ) (command "._box" "10,10,50" "l" "30" "40" "50" ) А потом все три объединить?

Я может по слабости ума чего не понимаю но если
из первого вычесть второй то останется один плюс
третий всего два
А как теперь все три из двух объединить?
Я думаю тут мог бы помочь только Льюс Кэролл
Выражайся яснее и помощь придет
См. в Хэлпе команды subtract, union, intersect

~'J'~

[solo123]

ДА ! объединить оставшиеся два!

[Олег (jr.)]

Сообщение от solo123 ДА ! объединить оставшиеся два!

Сразу после выполнения какой-либо команды рисования
можно получить ссылку на объект с помощью функции ENTLAST:

Код:

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

(defun C:demo  (/ sol1 sol2 sol3 sol4)
  (command "._box" "0,0,0" "l" "30" "40" "50")
  (setq sol1 (entlast))
  (command "._box" "0,0,0" "l" "10" "20" "30")
  (setq sol2 (entlast))
  (command "._subtract" sol1 "" sol2 "")
  (setq sol3 (entlast))
  (command "._box" "10,10,50" "l" "30" "40" "50")
  (setq sol4 (entlast))
  (command "._union" sol3 sol4 "")
  (princ)
  )

~'J'~

[solo123]

Спасибо!

[Олег (jr.)]

Сообщение от solo123 Спасибо!

Успехов

~'J'~