[LastGraff]

Есть небольшой участок географической карты, на котором изолинии сделаны полилиниями на нужных высотах, как по этим линиям сделать поверхность? Помимо линий могут встречаться и точки, для более детальной корректировки карты. Заранее благодарен за помощь.

[Дима_]

Начиная с 2007 акада _loft

[LastGraff]

к сожалению лофт не справляется( говорит, что неверные входные данные, да и такое количество линий обрабатывает пару часов

[Дима_]

А думаешь "такое" количество рукописный лисп (com,net,arx) быстрее обработает?

[LastGraff]

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

[Дима_]

Сообщение от LastGraff просто тут проблемма в том, что встречаются замкнутые и разомкнутые линии,

Эта проблема решается выделением всех линий и установкой свойства "разомкнуто", что такое "недействительность объектов", все ли настройки _loft'а смотрел, если ты хочешь себе помочь то постарайся хотя бы задачу описать - примеры тоже не помешают, пока я понял только что _loft тебе не нравиться и у тебя там аж "столько" линий, а что тебе собственно нужно - понять сложно.

[LastGraff]

Вот небольшой кусок карты (в сплайнах) построить пов-ть по ним не получается


Вопрос, а нельзя ли преобразовать полилинию в набор точек и каким-то макаром построить поверхность по всем этим точкам?

[5hev]

LastGraff, по сплайнам даже Civil не строит. Кстати вы им не пробовали пользоваться?

[VVA]

LastGraff,
LISP. Как преобразовать выделенные сплайны в полилинии?
Может быть попробовать построить поверхность через 3DFACE?
программа триангуляции облака точек

PS:Нарисовать точки в вершинах полилинии

Код:

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

(defun C:P2P ( / i s l)
  ;;; Polyline to Points
(vl-load-com)
(if (setq i 0
           s (ssget '((0 . "*POLYLINE")))
     ) ;_  setq
  (progn (repeat (sslength s)
           (setq l (append   (pline-get-verts (ssname s i)) l)
                i (1+ i)
          ) ;_  setq
         ) ;_  repeat
    (mapcar '(lambda(pt)(entmakex (list (cons 0 "POINT")(cons 10 pt)))) l)
    )
  )
(princ)
)
(defun pline-get-verts (pline_obj)
  (if (= (type pline_obj) 'Ename)
    (setq pline_obj (vlax-ename->vla-object pline_obj))
  ) ;_ end of if
      (cond
        ((wcmatch (vlax-get pline_obj 'Objectname )
           "AcDb2dPolyline,AcDb3dPolyline")
         (group-by-num (vlax-get pline_obj 'Coordinates) 3)
        )
        ((eq (vlax-get pline_obj 'Objectname )
           "AcDbPolyline")
         (mapcar '(lambda(x)(list (car x)(cadr x)(vla-get-elevation pline_obj)))
         (group-by-num (vlax-get pline_obj 'Coordinates) 2)
                 )
        )
       ((eq (vlax-get pline_obj 'Objectname )
           "AcDbLine")
         (list (vlax-curve-getstartpoint pline_obj)(vlax-curve-getendpoint pline_obj))
        )
        (T nil)))
(defun group-by-num (lst num / ls ret)
(if (= (rem (length lst) num ) 0)
 (progn (setq ls nil)
  (repeat (/ (length lst) num)
    (repeat num (setq ls (cons (car lst) ls) lst (cdr lst)))
  (setq ret (append ret (list (reverse ls))) ls nil)))) ret)

[Yuriy-I]

Сообщение от LastGraff Вот небольшой кусок карты (в сплайнах) построить пов-ть по ним не получается

результат создания рельефа в AA-2012
http://narod.ru/disk/25584027001/%D1...-2012.dwg.html

затраченное время на создание рельефа командой drape без учета конвертирования полученного Masselement в 3dsolid составило менее минуты