[Konstruktiv54]

Вот есть отличный макрос, за авторством {Smirnoff}.
Возможно его доработать таким образом, что бы новые элементы создавались в определённой последовательности (к примеру с лева на права и с верху в низ) не важно в какой, главное в последовательности.
Надо сильно сильно...

Код:

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

 (defun c:FRTO(/ ACTDOC COPOBJ ERRCOUNT EXTLST
        EXTSET FROMCEN LAYCOL MAXPT CURLAY
        MINPT OBJLAY OKCOUNT OLAYST
        SCLAY TOCEN TOOBJ VLAOBJ *ERROR*)
  (vl-load-com)
  (defun *ERROR*(msg)
    (if olaySt
      (vla-put-Lock objLay olaySt)
      ); end if
    (vla-EndUndoMark actDoc)
    (princ)
    ); end of *ERROR*
  (defun GetBoundingCenter(vlaObj / blPt trPt cnPt)
  (vla-GetBoundingBox vlaObj 'minPt 'maxPt)
      (setq blPt(vlax-safearray->list minPt)
       trPt(vlax-safearray->list maxPt)
       cnPt(vlax-3D-point
        (list
             (+(car blPt)(/(-(car trPt)(car blPt))2))
             (+(cadr blPt)(/(-(cadr trPt)(cadr blPt))2))
          0.0
            ); end list
      ); end vlax-3D-point
     ); end setq
  ); end of GetBoundingCenter
  (if(not(setq extSet(ssget "_I")))
    (progn
      (princ "\n+++ Select distination objects and press Enter <- ")
      (setq extSet(ssget))
      ); end progn
    ); end if
  (if(not extSet)
    (princ "\nDistination objects isn't selected!")
    ); end if
  (if
    (and
    extSet
    (setq toObj(entsel "\n+++ Select source object -> "))
    ); and and
    (progn
      (setq actDoc
        (vla-get-ActiveDocument
          (vlax-get-Acad-object))
       layCol
        (vla-get-Layers actDoc)
       extLst
        (mapcar 'vlax-ename->vla-object
                    (vl-remove-if 'listp
                     (mapcar 'cadr(ssnamex extSet))))
       vlaObj(vlax-ename->vla-object(car toObj))
       objLay(vla-Item layCol
             (vla-get-Layer vlaObj))
       olaySt(vla-get-Lock objLay)
       fromCen(GetBoundingCenter vlaObj)
       errCount 0
       okCount 0
       ); end setq
      (vla-StartUndoMark actDoc)
      (foreach obj extLst
   (setq toCen(GetBoundingCenter obj)
         scLay(vla-Item layCol
              (vla-get-Layer obj))
              );end setq
   (if(/= :vlax-true(vla-get-Lock scLay))
     (progn
     (setq curLay(vla-get-Layer obj))
     (vla-put-Lock objLay :vlax-false)
     (setq copObj(vla-copy vlaObj))
     (vla-Move copObj fromCen toCen)
     (vla-put-Layer copObj curLay)
     (vla-put-Lock objLay olaySt)
     (vla-Delete obj)
     (setq okCount(1+ okCount))
     ); end progn
     (setq errCount(1+ errCount))
     ); end if
   ); end foreach
      (princ
   (strcat "\n" (itoa okCount) " were changed. "
      (if(/= 0 errCount)
        (strcat (itoa errCount) " were on locked layer! ")
        ""
        ); end if
      ); end strcat
   ); end princ
      (vla-EndUndoMark actDoc)
      ); end progn
    (princ "\nSource object isn't selected! ")
    ); end if
  (princ)
  ); end of c:FRTO

[swell{d}]

5000р

[gomer]

а не слипнется... 5 килорублей за сортировку набора?

[Кулик Алексей aka kpblc]

Offtop: Учитывая отстутствие внятного набора правил, как бы swell{d} не продешевил

[Boxa]

Вот это по взрослому, вот это от души! Хотя там всякое может быть, тз то туманно.

[gomer]

Что ж не понятного, сортировать вдоль, ну или поперек...

[swell{d}]

Offtop: Мне для комфортной жизни надо 100к в месяц. Разделим на 22 рабочих дня - получим 4500р день. Работы там на полдня (с учётом составления договора и т.п.), т.е. 2250р. 10% на налоги, итого 2500р. С учётом, что человек заплатит аванс 50%, а на остаток скорее всего кинет - цена 5кр. Всё обоснованно.
А кто считает, что я зажрался, пусть сделает бесплатно.

[Кулик Алексей aka kpblc]

gomer, вспомни про вариант "сортировать отрезки, окружности и блоки". По каким параметрам будешь делать?
Автору: настоятельно рекомендую сузить варианты и скорректировать запросы.

[Konstruktiv54]

Меня интересуют только линии (отрезки).
Цель - упорядочить нумерацию стержневых элементов в СКАДе (план свай, план колонн) при иморте из dxf.
Известно, что в автокаде при создании элемента ему присваивается какой-то порядковый номер, и при импорте в СКАД все элементы будут пронумерованы точно в этой же последовательности.
Идея в том, что бы нарисованный план свай или колонн, перерисовать исходя из этих соображений, но соблюдением какой-либо координатной последовательности. При этом вновь отрисованные элементы должны сохранять информацию (слой, цвет) о своём предшественнике. Это уже не имеет особого значения. Важна только геометрия.

Вот к примеру такая схемка

[Andryleon]

я для таких вещей пользуюсь Утилитой небольшой. Вот ветка на форуме.
http://forum.dwg.ru/showthread.php?t=110889
Она позволяет в Автокад выводить планы колонн, свай, разрезы по схеме прямо в Автокад, без dxf.
При этом есть поддержка проги, писал им - они подстраивали некоторые вещи по моим запросам...
Так что советую, мне помогает очень )

[swell{d}]

эх, не дали денег заработать =(
http://youtu.be/-ew2unlAjSM
П.С. Под автокад запиливаем самостоятельно, ибо "санкции".

[Konstruktiv54]

Огромное спасибо Дим! )

[swell{d}]

запустил на файлике из #9, вот результат: