[Shaft]

Всем доброго времени суток, Уважаемые форумчане!!!

Стоит такая вот задача:
Создать контур (внешний) на основе набора выделенных примитивов!

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

[Лиспер]

Попробуй _.boundary.

[Shaft]

Сообщение от Лиспер Попробуй _.boundary.

Это в моём случае негодиться совсем! Т.к. самые крайние границы придется сводить в замкнутый контур. В таком случае проще обвести вручную (как я и делаю), а так как таких контуров мне приходиться делать много и регулярно, то я хотел бы уйти от данной ручной работы Отнимающей приличную кучу времени!

[VVA]

LISP. Отрисовка внешнего контура выбранных объектов

[Shaft]

VVA, Огромное Вам спасибо!
Но увы ваша программа выдает непредсказуемый результат. Я пробовал создать контур в файле примера (который выложил в 1 посте). Получается весьма причудливо.

Ps Код был взять из шапки той темы, ссылку на которую вы мне дали.

[Лиспер]

В той теме много кодов. И на следующей странице - тоже.

[Shaft]

Сообщение от Лиспер В той теме много кодов. И на следующей странице - тоже.

Я пробовал код с обеих страниц, в итоге взял тот что в шапке на 1-ой странице.

[Do$]

Я так понял, что программа ECO корректно обрабатывает только замкнутые объекты. Для набора незамкнутых полилиний результат будет не тот, который ожидает Shaft.

[VVA]

Внутри ECO использует тот же самый _boundary. Поэтому если _boubdary не подходит, то и ECO не подойдет. Чтобы получить общий контур объекты должны пересекаться.

[Лиспер]

Offtop: У меня никак не получается придумать гарантированно работающий алгоритм

[Do$]

Ну вкратце так (если все объекты - полилинии):
Находим крайнюю полилинии и обходим вдоль нее в каком-нибудь направлении. Полилиния заканчивается - переходим на следующую по какому-нибудь правилу... и до тех пор, пока контур не замкнется.
Shaft, есть какие-нибудь правила, по которым вручную контур строится?

[Shaft]

Do$, когда строиться вручную, то просто строиться полилиния по крайним полилиниям. Чтобы даже вершины совпадали. Т.е. если посмотреть в файле-примере, то там видно что вершины контура совпадают с вершинами карйних полилиний. Переход от крайней полилинии к внутренней производиться перпендикулярно к последней. Это желательно, но не объязательно.

Зы Если я не совсем понятно объяснил (вы скажите) Тогда я попробую изобразить это в файле-примере.

[VVA]

У меня никак не получается придумать гарантированно работающий алгоритм

У меня родился такой алгоритм:
1. Для всех линейных объектов (не обязательно полилиний) находим общий габаритный контейнер (boundingbox). LISP. LIB. Получение габаритов для списка объектов.
В результате имеем некий прямоугольник, описывающий все выбранные примитивы.
Это первое грубое приближение контура
2. Обходим прямоугольник с неким шагом. Для текущей точки ищем ближайшую точку из всех выбранных примитивов и берем ее.
Если не понятно, то попробую нарисовать. Мне кажется, что алгоритм рабочий.

[Shaft]

Сообщение от VVA У меня родился такой алгоритм:

Я так понял, что это не готовая программа, а только элемент для ее написания... верно ? Потому как мне неудалось получить от нее ождиаемого результата

[VVA]

Это библиотечная ф-ция для выполнения п.1 алгоритма.

[Shaft]

VVA, я так и подозревал, что фигню пытался сделать!
Что поделать, делитант я полный (пока) в lispe

[VVA]

Первый вариант на основе алгоритма, изложенного в #13

Код:

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

(defun C:TEST( )
(vl-load-com)
  (
   (lambda ( / ss lst bb bb-pline step param pt)
     (setq ss (ssget  '((0 . "*LINE,ARC,CIRCLE"))))
     (setq bb (lst-getboundingbox (setq lst (lib:conv-pickset-to-vlalist ss))))
     (setq bb (mapcar '(lambda(x)(mapcar '+ x '(0 0))) bb))
     (command "_.Rectang" "_w" 0  "_none" (car bb) "_none" (cadr bb))
     (setq bb-pline (vlax-ename->vla-object(entlast)))
     (setq step 0.01 ;_Шаг обхода габаритного контейнера
           param 0
           )
     (while (< param (vlax-curve-getEndParam bb-pline))
       (setq pt (vlax-curve-getPointAtParam bb-pline param))
       (setq near_pt_list (cons(car
       (vl-sort
         (mapcar '(lambda(x)(vlax-curve-getClosestPointTo x pt)) lst)
         '(lambda(a b)(< (distance pt a)(distance pt b)))
         )
       ) near_pt_list)
       )
       (setq param (+ param step))
     )
     (command "_.Pline" "_none" (car near_pt_list))
     (foreach a (cdr near_pt_list)(command "_none" a))
     (command "_c")
     (SSSETFIRST nil (ssget "_L"))
     (vla-Erase bb-pline)
     )
    )
  (princ)
  )



;|============================================================================= 
*    Функция преобразования набора, полученного через (ssget), в список 
* ename-примитивов. 
*    Параметры вызова: 
*   value   набор примитивов 
*    Примеры вызова: 
(lib:conv-pickset-to-list (ssget))
=============================================================================|; 
(defun lib:conv-pickset-to-list (value / item lst)
       (repeat (setq item (sslength value)) ;_ end setq
         (setq lst (cons (ssname value (setq item (1- item))) lst))
         ) ;_ end repeat

  lst
;;;  (if selset 
;;;    (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))) 
;;;    )
  ) ;_ end of defun 

;|============================================================================= 
*    Функция преобразования набора, полученного через (ssget), в список 
* vla-примитивов. 
*    Параметры вызова: 
*   selset   набор примитивов 
*    Примеры вызова: 
(lib:conv-pickset-to-vlalist (ssget)) 
=============================================================================|; 
(defun lib:conv-pickset-to-vlalist(selset) 
  (if selset 
    (mapcar 'vlax-ename->vla-object
            (lib:conv-pickset-to-list selset) 
            ))) ;_ end of defun

;   Возвращает список из двух 3d точек
;   '((левая нижняя) (правая верхняя))
;
    (defun lst-getboundingbox (lst)
      (vl-load-com)
      (if (listp lst)
        ((lambda (x)
           (list
             (apply
               (function mapcar)
               (cons (function min) (mapcar (function car) x))
             ) ;_  apply
             (apply
               (function mapcar)
               (cons (function max) (mapcar (function cadr) x))
             ) ;_  apply
           ) ;_  list
         ) ;_  lambda
          (vl-remove-if
            (function null)
            (mapcar
              (function
                (lambda (x / minp maxp)
                  (if (not (vl-catch-all-error-p
                             (vl-catch-all-apply
                               (function vla-getboundingbox)
                               (list x 'minp 'maxp)
                             ) ;_  vl-catch-all-apply
                           ) ;_  vl-catch-all-error-p
                      ) ;_  not
                    (list (vlax-safearray->list minp)
                          (vlax-safearray->list maxp)
                    ) ;_  list
                  ) ;_  if
                ) ;_  lambda
              ) ;_  function
              lst
            ) ;_  mapcar
          ) ;_  vl-remove-if
        )
      ) ;_  if
    ) ;_ end of defun

[Shaft]

VVA, супер!
На и раз это тестовая версия, то хочу высказать парочку замеченных неточностей:

На скриншотах я постарался выделить проблемные места.
Красная линия это результат работы программы
Зеленая линия это желаемый/требуемый рузультат

Для дотягивания до идеала, хотелось бы чтобы были поправленны следующие моменты:
1 - совпадение вершин контура с вершинами обводимых линий
2 - корректно "обводить" дуговые сегменты
3 - отучить программу пропускать некоторые участки (рис 1 и 3) впринципе тоже что и п.1
4 - или недоводит (рис 2)тоже можно отнести к п.1

[VVA]

Обновил код в #17

[Shaft]

VVA, проверил обновленный код из #17, все ошибки описаные мною в #18 остались. Только обрисовка внешних границ улучшлась лишь в некоторых местах маленькие расхождения. А в 95% идет полное совпадение по вершинам.

P.s. Но если удастся избавиться от проблемок из #18, то это будет бесценный инструмент!!!
Надеюсь не только для меня

[VVA]

Сообщение от Shaft Только обрисовка внешних границ улучшлась лишь в некоторых местах маленькие расхождения. А в 95% идет полное совпадение по вершинам

Никаких других проблем в #18 не описано. В #17 я выделил красным шаг обхода. Уменьшая его, будешь получать больше расчетных точек и больший % совпадения по вершинам, но и ресурсов процессора будет задействовано больше. Сейчас каждый прямой сегмент габаритного контейнера делится на 100 частей.

[Shaft]

Сообщение от VVA В #17 я выделил красным шаг обхода. Уменьшая его

Я примерно так и догадался и уже поэкспериментировал.

Это из #18 я это в спойлере указал. Может зря т.к. выглядит это все незаметно.

Для дотягивания до идеала, хотелось бы чтобы были поправленны следующие моменты: 1 - совпадение вершин контура с вершинами обводимых линий 2 - корректно "обводить" дуговые сегменты 3 - отучить программу пропускать некоторые участки (рис 1 и 3) впринципе тоже что и п.1 4 - или недоводит (рис 2)тоже можно отнести к п.1

[Shaft]

Наконец-то сеть заработала стабильно...
Хочу поблагодарить Вас уважаемый VVA, за вашу помощь!!!

[АлексЮстасу]

Попробовал создать внешний контур множества блоков - не получилось.
Допуск менял в:
(setq step 70.01 ;_Шаг обхода габаритного контейнера
Пишет:
; error: too few arguments

А как раз было б здорово создать автоматом внешние контуры вокруг множеств блоков.

[VVA]

АлексЮстасу, Этот лисп для специфической задачи. Попробуй ECO по ссылке из #4

[peacemaker_kiss]

Поправьте код!!!!! Он потрясающий, но....см. картинку
[img]http://i6.********/thumbs/1/2/2/Bezimyanni_8230191_14369122.jpg[/img]

[АлексЮстасу]

Создание внешнего контура с помощью новой программы SuperBoundary:
1. Чертим вокруг всех нужных примитивов любой охватывающий контур с запасом.
2. Выделяем все эти примитивы, и указываем любую точку между охватывающим контуром и этими примитивами.

[posetitel]

Подниму тему.
Уважаемый VAA, могли бы откорректировать код из сообщения #17 в части алгоритма поиска ближайшей точки. Сейчас, как я понял, сначала строится внешний прямоугольник, потом бегунок с указанным шагом проходит по этому прямоугольнику и ищет ближайшую точку на объекте. Хотелось бы, чтобы ближайшая точка находилась не по геометрическому расстоянию до выбранных примитивов, а чтобы от вертикальной грани внешнего прямоугольника проводилась горизонталь до примитивов и в месте пересечения образовывалась точка, а для горизонтальной грани внешнего прямоугольника опускалась (или соответственно поднималась) вертикаль до ближайшего из выбранных примитивов и в месте пересечения образовывалась точка, а потом эти точки соединялись в поверхность.
(на всякий случай прилагаю иллюстрацию: белая линия - это произвольный примитив, контур которого должен получиться, красным выделено то, какой контур должен получиться, зеленое - это линии внутри алгоритма, которые ищут ближайшие расстояния, голубой - это просто внешний контур)
Так, как сейчас работает алгоритм, на примитивах с уклоном и выступами по уклону программа часто рисует контур некорректно, Над выступом остается много неохваченных областей.