[denpro]

Имеется файл с элементами. Задача найти одинаковые по габаритам элементы. Все элементы прорисованы в полилиниях, при использовании стандартного автокадовского фильтра максимум можно найти несколько одинаковых прямоугольников, ( элементы ищутся по одинаковой длине полилиний) многоугольники не ищутся вообще...

[Manikin]

можно искать по одинаковой площади - через qselect

[denpro]

через площадь и длину qselect (быстрый выбор) не ищет и стандартный фильтр выбора объектов тоже не работает... у всех объектов слой, тип линий, толщина одинаковая. Фильтрацию по этим параметрам не предлагайте.

[Дима_]

Одинаковые между собой (т.е. возможно несколько "групп") или габаритно-равные какому-то определенному?

[denpro]

нужно найти одинаковые детали(по площади или длине полилиний) из всей этой кучи и посчитать общее колличество одинаковых элементов

[Manikin]

можно попробоватть задавать условие не равно, а больше и меньше, второй выбор из текущего выделения и менять эту площадь в последнем знаке после запятой. я так понимаю, что затыка в округлениях...например площадь фигуры отображается как 4950, а на самом деле 4949,99(9), поэтому и не выбирает

[denpro]

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

[Дима_]

Давай еще раз у тебя детали типа 2,5,2,5,2,5,3,5
то есть три 2, четыре 5 и одна 3 - что тебе нужно получить? у тебя 7 одинаковых или 5+2 одинаковых - надо-ли эти одинаковые как-то отметить, можно например выбрал деталь - показало все одинаковые (написало их число) или еще как? - за тебя никто придумать не сможет (а если и сможет - то не так как тебе надо).

[denpro]

В приложенном файле в самом верхнем левом углу есть треугольник - предложи способ найти такой же в оставшихся столбцах и выделить их дабы потом можно было их посчитать. Конечная цель выделить и посчитать одинаковые детали по колличеству (выбрал деталь - показало все одинаковые (написало их число))

[Profan]

В AutoCAD'е нет понятия "деталь".

[denpro]

Сообщение от Profan В AutoCAD'е нет понятия "деталь".

Для тех кто просто хочет выставить себя умником, просьба стучаться в другие форумы или на сайты знакомств. Вас там оценят.... Не знаете ответ,не пишите чушь......сверху дано подробно что и как требуется. Русский язык у всех свой и объяснить каждому на его русском просто не возможно.

[Хмурый]

без программирования здесь не обойтись

[Profan]

Сообщение от denpro Для тех кто просто хочет выставить себя умником, просьба стучаться в другие форумы или на сайты знакомств. Вас там оценят.... Не знаете ответ,не пишите чушь......сверху дано подробно что и как требуется. Русский язык у всех свой и объяснить каждому на его русском просто не возможно.

Сверху написана чепуха. Такие задачи не свойственны для AutoCAD'а. Если ты этого не понимаешь, то и ступай на другие форумы.
А для AutoCAD'а свойственны задачи выбора объектов. Сделай свои "детали" блоками и сможешь выполнять любую выборку по именам блоков. Умник, чтоб тебе треснуть.

[Klo]

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

[Хмурый]

Klo, а _units не настроить в этом файле?

[Klo]

да, там точность до целых настроена.
изменение точности на быстрый выбор не повлияют (не выберет)...

[denpro]

Сообщение от Profan Сверху написана чепуха. Такие задачи не свойственны для AutoCAD'а. Если ты этого не понимаешь, то и ступай на другие форумы. А для AutoCAD'а свойственны задачи выбора объектов. Сделай свои "детали" блоками и сможешь выполнять любую выборку по именам блоков. Умник, чтоб тебе треснуть.

Твои слова :А для AutoCAD'а свойственны задачи выбора объектов. Так скажи способ как выбрать одинаковые объекты ( квадратики, круги, эллипсы, МНОГОУГОЛЬНИКИ) в этом файле. Блоки это утопия (в этом файле если создавать блоки их будет 281 шт и это самый маленький файл вам был показан). А тебе совет - знаешь ответ пиши , не знаешь промолчи....

[Klo]

Благодаря сообщению profan'a пришла дельная мысль: можно воспользоваться data extractor'ом. Файл прилагаю. Подсчёт осуществлён.
Чертеж1.dwg

[denpro]

вот здесь можно по подробнее.....в принципе этого достаточно...

[Дима_]

Сообщение от denpro ...предложи способ найти такой же в оставшихся столбцах и выделить их дабы потом можно было их посчитать. Конечная цель выделить и посчитать одинаковые детали по колличеству (выбрал деталь - показало все одинаковые (написало их число))

На попробуй - анализирует геометрию полилинии (учитывает только вершины - то есть без сопряжений, но у тебя там вроде их и нет):

Код:

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

 (vl-load-com)
(defun pl->list(pln)
  (mapcar 'cdr
         (vl-remove-if-not
           '(lambda (x) (= (car x) 10))
           (entget pln))))

(defun lst-pt->len-angle-list(lst)
  ((lambda (f-rec)
     (f-rec (angle (car lst) (cadr lst)) lst))
   (lambda (a1 lst)
    (if (cadr lst)
        (cons (cons (distance (car lst) (cadr lst))
                    ((lambda (a)
                      (if (< a 0)
                          (+ a (* 2.0 pi))
                          a))
                     (- a1 (angle (car lst) (cadr lst)))))
              (f-rec a1 (cdr lst)))))))
              
(defun c:find-analog()
  ((lambda (obr ss)
   (if obr (progn
     (mapcar '(lambda (ent) (ssadd ent ss))
       (vl-remove-if
         '(lambda (x) (or (listp x)
                          (not ((lambda (a)
                                  (or (equal (car obr) a 0.001)
                                      (equal (cdr obr) a 0.001)))
                                (lst-pt->len-angle-list (pl->list x))))))
         (mapcar 'cadr (ssnamex (ssget "_a" (list (cons 0 "lwpolyline")))))))
     (sssetfirst nil ss)
     (princ (strcat "Найденно " (rtos (sslength ss)) " объектов.")))
     (princ "Полилиния не выбранна..."))
     (princ))
   ((lambda (lst)
     (if lst (cons (lst-pt->len-angle-list lst)
                   (lst-pt->len-angle-list (reverse lst)))))
    ((lambda (ent)
       (if (and ent
                (= (type (car ent)) 'ENAME)
                (= (cdr (assoc 0 (entget (car ent)))) "LWPOLYLINE"))
           (pl->list (car ent))))
      (entsel "\nВыберите образец ")))
   (ssadd)))

p.s. запускать find-analog