[Golem-iq]

Есть два 3D тела, созданных из двух полилиний с помощью выдавливания. Их нужно объединить в одно тело.
Вот пример:

исходный

получившийся

Мне нужно это сделать на Lisp'е. Пытаюсь сделать вот так:

Код:

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

 (defun condust( / n osm otv x y h)

  (setq osm (getvar "osmode")) ;; Сохраняем объектную привязку
  (setvar "osmode" 0)
  (command "_.layer" "_set" "cond" "")

  (setq x (atoi (nth 6 obor)); длина
	y (atoi (nth 7 obor)); ширина
	h (atoi (nth 8 obor)); высота

	n '(300 300)       ; точка появления блока
  )
  (command "_pline" ; отрисовка 2D основы блока
           (list (nth 0 n) (nth 1 n))
	   (list (+ (nth 0 n) y) (nth 1 n))
	   (list (+ (nth 0 n) y) (+ (nth 1 n) x))
	   (list (nth 0 n) (+ (nth 1 n) x))
	   (list (nth 0 n) (nth 1 n))
	   ""
  )
  (setq temp1 (entlast))
  (command "_extrude" temp1 "" h "") ; выдавливаем для придания объёма

  (command "_pline" ; отрисовка 2D метки направления движения потока воздуха для блока
           (list (+ (nth 0 n) (/ (nth 0 n) 10)) (+ (nth 1 n) (/ (nth 1 n) 10)))
	   (list (+ (nth 0 n) (/ y 1.2)) (+ (nth 1 n) (/ x 2)))
	   (list (+ (nth 0 n) (/ (nth 0 n) 10)) (+ x (- (nth 1 n) (/ (nth 1 n) 10))))
	   (list (+ (nth 0 n) (/ (nth 0 n) 10)) (+ (nth 1 n) (/ (nth 1 n) 10)))
	   ""
  )
  (setq temp2 (entlast))
  (command "_move" temp2 "" '(0 0 -50) "")
  (command "_extrude" temp2 "" (+ h 100) "")

  (command "_union" temp1 temp2 "") ;;  Объединения не происходит. AutoCAD выводит, что "Выделено 0 объектов".
  
  (setvar "osmode" osm)
)

Объединения не происходит. AutoCAD выводит, что "Выделено 0 объектов". Помогите найти ошибку.

[Do$]

Логика приведенной программы:
берем последний примитив (полилинию), выдавливаем. При этом, полилиния, скорее всего, удаляется и создается новый объект - тело (3d solid). А в union передаются ссылки на полилинии. Естественно, что команда не принимает их и пишет, что выбрано 0 объектов.

[Golem-iq]

Сообщение от Do$ Логика приведенной программы: берем последний примитив (полилинию), выдавливаем. При этом, полилиния, скорее всего, удаляется и создается новый объект - тело (3d solid). А в union передаются ссылки на полилинии. Естественно, что команда не принимает их и пишет, что выбрано 0 объектов.

Благодарю, мягко говоря прозевал...

Если кому нужен будет исправленный вариант:

Код:

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

  (defun condust( / n osm otv x y h)

  (setq osm (getvar "osmode")) ;; Сохраняем объектную привязку
  (setvar "osmode" 0)
  (command "_.layer" "_set" "cond" "")

  (setq x (atoi (nth 6 obor)); длина
	y (atoi (nth 7 obor)); ширина
	h (atoi (nth 8 obor)); высота

	n '(300 300)       ; точка появления блока
  )
  (command "_pline" ; отрисовка 2D основы блока
           (list (nth 0 n) (nth 1 n))
	   (list (+ (nth 0 n) y) (nth 1 n))
	   (list (+ (nth 0 n) y) (+ (nth 1 n) x))
	   (list (nth 0 n) (+ (nth 1 n) x))
	   (list (nth 0 n) (nth 1 n))
	   ""
  )
  (setq temp1 (entlast))
  (command "_extrude" temp1 "" h "") ; выдавливаем для придания объёма
  (setq temp1 (entlast)) ; ИСПРАВЛЕНО

  (command "_pline" ; отрисовка 2D метки направления движения потока воздуха для блока
           (list (+ (nth 0 n) (/ (nth 0 n) 10)) (+ (nth 1 n) (/ (nth 1 n) 10)))
	   (list (+ (nth 0 n) (/ y 1.2)) (+ (nth 1 n) (/ x 2)))
	   (list (+ (nth 0 n) (/ (nth 0 n) 10)) (+ x (- (nth 1 n) (/ (nth 1 n) 10))))
	   (list (+ (nth 0 n) (/ (nth 0 n) 10)) (+ (nth 1 n) (/ (nth 1 n) 10)))
	   ""
  )
  (setq temp2 (entlast))
  (command "_move" temp2 "" '(0 0 -50) "")
  (command "_extrude" temp2 "" (+ h 100) "")
  (setq temp2 (entlast)) ; ИСПРАВЛЕНО


  (command "_union" temp1 temp2 "") ;;  Объединения не происходит. AutoCAD выводит, что "Выделено 0 объектов".
  
  (setvar "osmode" osm)
)