[Pavel.K.]

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

С уважением, Павел.

[Дима_]

Сообщение от Pavel.K. Подозреваю, что придется изучать программирование. Наставьте на путь истинный. буду благодарен любой помощи.

Начните с выкладывния примера файла, где есть что было и что надо получить - прямоугольники - это (один из вариантов) частный случай полилиний, что подразумеваеться под длинной (периметр, длинна по большей или Х оси), это только малая часть вопросов, которых Вы по "неопытности" учесть вряд-ли можете. У автокада есть несколько интерфейсов через которые можно программировать - есть ли каки-либо программные технологии с которыми Вы знакомы?

[VVA]

Pavel.K.,

Сообщение от Pavel.K. так, чтобы один объект находился над другим ну или как-то иначе

Имеется ввиду порядок следования в чертеже?
Если да, то можно:
1. Каким либо образом раскрасить объекты "по определенным параметрам" и воспользоваться CDORDER из Express Tools
2. Каким либо образом в соответствии с "определенными параметрами" разбросать по слоям и воспользоваться Layer Draw Order

[Pavel.K.]

Под длиной полилинии подразумевается именно периметр прямоугольника. К сожалению с программированием практически не знаком, но видимо нужно изучать.
Выкладываю пример

[Дима_]

Изучай потихоньку:

Код:

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

 (vl-load-com)
(defun c:sort-box( / minpt maxpt)
  ((lambda (frec top-pt lst doc)
     (vla-getboundingbox (car lst) 'minpt 'maxpt)
     (vla-startundomark doc)
     (frec minpt (cdr lst))
     (vla-endundomark doc))
   (lambda (pt lst / minpt maxpt)
      (if (car lst)
          (progn (vla-getboundingbox (car lst) 'minpt 'maxpt)
                 (vla-move (car lst) (top-pt minpt maxpt) pt)
                 (vla-getboundingbox (car lst) 'minpt 'maxpt)
                 (frec minpt (cdr lst)))))
   (lambda (minpt maxpt)
      ((lambda (lst-pt)
          (vlax-3d-point (list (caar lst-pt)
                               (cadadr lst-pt)
                               (caddar lst-pt))))
        (mapcar '(lambda (pt) (vlax-safearray->list pt))
                (list minpt maxpt))))                
   (vl-sort (mapcar 'vlax-ename->vla-object
                    (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "LWPOLYLINE")))))))
            '(lambda (a b) (< (vla-get-length a)
                              (vla-get-length b))))
   (vla-get-activedocument(vlax-get-acad-object))))

[Pavel.K.]

Большое Спасибо. Вы очень помогли. Конечно пока почти ничего не понятно из этого кода, но главное работает отменно!
Надеюсь в скором времени я и сам так смогу.