[Abzorbo]

необходимо выполнить экспорт в ЛИРУ поверхности, вот только ЛИРА не читает эти примитивы. Есть ли возможность разбить на отдельные стерженьки такие элементы, как показано в визуальном стиле WIREFRAME? ну или как-то приблизить к стержневой модели такие примитивы... При взрывании ничего не получается.

[GRIFEL]

Если на плоскости разложилось , то и в набор линий можно , примерно так ...

Код:

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

(defun c:pfl(/ ss a b c d ab bc cd da [v)(setq ss(ssget)  i -1 [v())
  (while (setq e(ssname ss(setq i(1+ i))))(setq ee(entget e))(if(=(cdr(assoc 0 ee))"3DFACE")(progn
    (setq a(cdr(assoc 10 ee))b(cdr(assoc 11 ee))c(cdr(assoc 12 ee))d(cdr(assoc 13 ee))
	  ab(list a b)bc(list b c)cd(list c d)da(list d a)
	  [v(if(or(member ab [v)(member(reverse ab)[v))[v(cons ab [v))
	  [v(if(or(member bc [v)(member(reverse bc)[v))[v(cons bc [v))
	  [v(if(or(member cd [v)(member(reverse cd)[v))[v(cons cd [v))
	  [v(if(or(member da [v)(member(reverse da)[v))[v(cons da [v))))))(command"_.erase" ss "")
  (while [v(setq a(car [v)b(cadr a)a(car a))(command "_.line" a b "")(setq [v(cdr [v)))(princ) )

[Unfamous]

_XEDGES

[Abzorbo]

Сообщение от GRIFEL Если на плоскости разложилось , то и в набор линий можно , примерно так ...

оййй, да... уж разложилось так разложилось... Причём сработало только в 2010 и только на взорванном MESH-теле.
В принципе если пользовать 2010, то проблему можно решить как раз MESH-моделированием, получаем грани и по ним можно навести стержни...

Сообщение от Unfamous _XEDGES

знаю про эту команду, но она даёт немного не то - только проекцию, в моём случае окружность

[GRIFEL]

Странно ..... У меня срабатывает в 2000англ(дома) и в 2012рус (на работе) ..... я и предполагал предварительное разложение на 3DFACE .....

[ki]

Если надо как на картинке, то можно нарисовать дополнительные плоскости пересекающие исходное тело в нужных местах, потом клеймить тело этими плоскостями и после разломать на линии.

[Abzorbo]

Сообщение от GRIFEL Странно ..... У меня срабатывает в 2000англ(дома) и в 2012рус (на работе) ..... я и предполагал предварительное разложение на 3DFACE .....

нет, не срабатывает в 2008.
Сфера 3D Solid просто исчезает.
В 2010 получилось! Сначала создал просто сферу 3D Solid, потом "взорвал", получил набор 3DFACE, к ним уже применил лисп и получил линии. В принципе желаемое достигнуто, но, как говорится, через опу

Сообщение от ki Если надо как на картинке, то можно нарисовать дополнительные плоскости пересекающие исходное тело в нужных местах, потом клеймить тело этими плоскостями и после разломать на линии.

как мне нарисовать дополнительные плоскости на 3D Solid? Точек привязки в местах пересечения линий нет.
Можешь файлик приложить?

[ki]

Ну, как-то так. АКАД 2010
---
Может и не совсем правильно

[Abzorbo]

а как получилось добиться третьего шага, что при взрыве образуются SURFACE?

[ki]

просто при разбивании (_explode) 3D солида с кучей граней, полученных при клеймении, получил поверхности

[Abzorbo]

ээммм... а что такое клеймение? не знаю такой фичи

[Хмурый]

_ IMPRINT
я-бы сказал- "впечатыванье"

[Abzorbo]

разобрался, так как надо мне пашет только в 2010...
прикольная фича!