[WATRES]

Здравствуйте!

Необходимо получить двухмерные сечения из многогранной сети.
Данный вопрос поднимался в теме
"3D тело из многогранной сети. Как?"
http://forum.dwg.ru/showpost.php?p=633628&postcount=15

Выношу его в отдельную тему, т.к. решения я не нашел и тема про другую задачу.
Задача один в один как у Small Muke :
"Моя задача стоит в том чтобы получить сечения рудных тел через каждые 15 ед. по оси z... Аммм. Многогранная сеть не сечется!"

Файл прикладываю. В файле единственный объект - это геологическая модель по ИГЭ. Данная модель была получена конвертацией через формат Collada из не САПР и не Autodesc программы.
Или во что можно преобразовать многогранную сеть?

[WATRES]

OK, к сожалению, никто не знает.
Тогда от противного, подскажите пожалуйста.
Есть текстовый файл с координатами. Это часть трехмерной модели, построенной по влажности.
Каким объектом отрисовать в Автокаде, чтобы было удобнее редактировать (задавать сечения по нужным мне плоскостям)?
В идеале нужно получить трехмерную модель, выглядящую как тело, и отрисованную объектом, удобным для резки, разделения и т.д.

[GRIFEL]

Код:

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

 (defun c:test ( / ss j [v [v1 [v2 ss[v a b c d i n m ee )
  (vl-load-com)(setq ss[v()*sg(cond(*sg)(24)))
  (if(and(setq ss(ssget "_:L" '((0 . "ARC,CIRCLE,LWPOLYLINE,SPLINE,LINE,ELLIPSE"))))(progn(initget 6)
     (setq *sg (cond((getint(strcat "\n êîëè÷åñòâî ñåãìåíòîâ äðîáëåíèÿ <"(itoa *sg)"> : ")))(*sg)))))
    (progn(repeat(setq j(sslength ss))((lambda ( e / k l i p )
            (setq k(/(vlax-curve-getDistatParam e(vlax-curve-getEndParam e))(float *sg))l(entget e)i -1)
            (repeat(1+ *sg)(setq p(cons(cons 10(trans(vlax-curve-getPointatDist e(*(setq i(1+ i))k))0 e))p)))
(setq ss[v(cons p ss[v))
	(if(entmake(append(list(cons 0 "LWPOLYLINE")(cons 100 "AcDbEntity")(cons 100 "AcDbPolyline")
                    (cons 90 (length p))(cons 38 (last (car p)))(cons 70 (if (vlax-curve-isClosed e) 1 0)))
                  (apply 'append(mapcar '(lambda(a)(if(assoc a l)(list(assoc a l))))'(6 8 39 48 62 210)))p))
              (entdel e)))(ssname ss(setq j(1- j)))))))
(setq [v1(car ss[v)[v2(cadr ss[v) [v()i 0 n 1 a(cdr(car [v1))b(cdr(car [v2))[n()[v(list a b))
  (while(setq c(cdr(nth(setq i(1+ i))[v1)))(setq d(cdr(nth i [v2))[v(cons c(cons d [v)) a b d c
	      [n(cons(list n(+ n 2)(+ n 3)(+ n 1))[n)n(+ n 2)))
    (entmake(setq ee'((0 . "POLYLINE")(70 . 64)(66 . 1))))
 (setq i -1)(while(setq a(nth(setq i(1+ i))[v))(setq a(trans a 1 0)
			ee(list'(0 . "VERTEX")(cons 10 a)'(70 . 192)))(entmake ee))
 (setq i -1)(while(setq a(nth(setq i(1+ i))[n))(setq m(nth(1-(abs(car a)))[v)
	       		ee(list'(0 . "VERTEX")'(70 . 128)
 (cons 10 m)(cons 62(if(nth 4 a)(nth 4 a)(atoi(getvar"cecolor"))))
(cons 71(car a))(cons 72(cadr a))(cons 73(caddr a))(cons 74(cadddr a))))(entmake ee))
(if(not(entmake'((0 . "SEQEND"))))(entmake))(princ))

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

[WATRES]

GRIFEL, спасибо за код.
но как им пользоваться?
сохранить в файл с расширением .dvb или .lsp и запустить?

[trir]

я бы посоветовал Civil 3D - но она работает с поверхностями, то есть ей нужно: кровля, подошва. Но в неё легко строить разрезы.

[WATRES]

Сообщение от trir я бы посоветовал Civil 3D - но она работает с поверхностями, то есть ей нужно: кровля, подошва. Но в неё легко строить разрезы.

В нем легко работать, если вы изначально создавали проект в Сивиле.
Я же получаю трехмерные модели через Collada.
Так что для моих целей Сивил ничем не круче чем классический Автокад.

[trir]

Ну, конвертировать один XML в другой - не сложно.

[WATRES]

Сообщение от trir Ну, конвертировать один XML в другой - не сложно.

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

[trir]

А в чём создаётся геологическая модель по ИГЭ?

[WATRES]

Сообщение от trir А в чём создаётся геологическая модель по ИГЭ?

Изначально модель создается работой с геологической информацией в модуле под названием Digger, хранится в базе данных формата Interbase.
Затем, загоняется в базу данных Microsoft SQL.
Оттуда, через Колладу - получаем тот пример, который я привел.
И сети нет информации по Диггеру (Digger).

[trir]

Чего то самопальное на Delphi? А какая схема у базы на Interbase?

[WATRES]

Сообщение от trir Чего то самопальное на Delphi? А какая схема у базы на Interbase?

Разработке уже 20 лет, и по ее возможностям нельзя говорить о какой то "самопальности" .
По поводу структуры базы Интербэйса нюансов не знаю. Знаю, что безбожно устарело.
Если вас интересуют вопросы по базе - пишите в PM, передам их разрабам.
Сейчас же меня волнует вопрос по Автокаду и многогранным сетям, либо по возможности визуализации уже готовой объемной модели и средствам ее редактирования.

[GRIFEL]

Если под понятием многогранная сеть понимать POLYFACE то ряд функций для работы с ней можно взять здесь . Что касаетсы загрузки : APPLOAD с клавиатуры или загрузка приложений - и дальше по диалоговому окну . В данном случае указать POLYFACE.VLX из Polyface.rar После загрузки появится подсказка о загруженных функциях ... Предыдущая на LISP формировала только обечайки на базе двух полилиний ....

[WATRES]

Сообщение от GRIFEL Если под понятием многогранная сеть понимать POLYFACE то ряд функций для работы с ней можно взять здесь . Что касаетсы загрузки : APPLOAD с клавиатуры или загрузка приложений - и дальше по диалоговому окну . В данном случае указать POLYFACE.VLX из Polyface.rar После загрузки появится подсказка о загруженных функциях ... Предыдущая на LISP формировала только обечайки на базе двух полилиний ....

Благодарю!
Но я делаю как вы написали, а мне выдает:
"Неизвестная команда "PLRR"."

[GRIFEL]

В подсказке после загрузки появляется список рабочих функций ? если какоя-то из них не срабатывает это может быть возможно при использовании локализованной версии (оговорено в подсказке). PLRR срабатывает при наличии в чертеже модели или сформированного фрагмента сети созданного предварительно..... если работают остальные функции - надо разбираться
Попробуйте командой BX создать простейший фрагмент типа рамы или арки и задействуйте опцию R - образмеривания ..... если процесс пошел должна заработать и PLRR . Есть смысл погонять все функции(команды) .

[WATRES]

Сообщение от GRIFEL В подсказке после загрузки появляется список рабочих функций ? если какоя-то из них не срабатывает это может быть возможно при использовании локализованной версии (оговорено в подсказке). PLRR срабатывает при наличии в чертеже модели или сформированного фрагмента сети созданного предварительно..... если работают остальные функции - надо разбираться Попробуйте командой BX создать простейший фрагмент типа рамы или арки и задействуйте опцию R - образмеривания ..... если процесс пошел должна заработать и PLRR . Есть смысл погонять все функции(команды) .

Да, Автокад, русская версия 2011.

[GRIFEL]

Cожалею что не смогу в ближайшее время "обрусачить" данное приложение - если владеете LISPом - могу сбросить код в личку ..... дело несложное но нудное ,
кстати ,первый фрагмент(C:TEST) должен сработать и в русской версии ...