[CB]

Код представленный ниже создает список выбранных текстовых примитивов, отсортированных по убыванию Y-координаты:

Код:

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

(defun sel_txt (/ sset)
  (if (setq sset (ssget '((0 . "*TEXT"))))
    (mapcar (function (lambda (x)
                        (cdr (assoc '1 (entget x)))
                      ) ;_ end of lambda
            ) ;_ end of function
            (vl-sort
              (vl-remove-if
                (function listp)
                (mapcar (function cadr)
                        (ssnamex sset)
                ) ;_ end of mapcar
              ) ;_ end of vl-remove-if
              (function (lambda (x y)
                          (>
                            (caddr (assoc '10 (entget x)))
                            (caddr (assoc '10 (entget y)))
                          ) ;_ end of >
                        ) ;_ end of lambda
              ) ;_ end of function
            ) ;_ end of vl-sort
    ) ;_ end of mapcar
  ) ;_ end of if
) ;_ end of defun

Вопрос в следующем - как можно дополнительно отсортировать текст по такому критерию - если в выбранном тексте встретились примитивы с одинаковыми Y-координатами , то эти примитивы отсортировать по увеличению X-координаты...

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

Попробуй так:

Код:

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

(vl-sort
  (vl-sort
    (vl-remove-if
      (function listp)
      (mapcar (function cadr)
              (ssnamex sset)
              ) ;_ end of mapcar
      ) ;_ end of vl-remove-if
    (function (lambda (x y)
                (> (caddr (assoc '10 (entget x)))
                   (caddr (assoc '10 (entget y)))
                   ) ;_ end of >
                ) ;_ end of lambda
              ) ;_ end of function
    ) ;_ end of vl-sort
  '(lambda (a b) (> (cadr (assoc 10 (entget a))) (cadr (assoc 10 (entget b)))))
  ) ;_ end of vl-sort

Код не проверял.
Но перед использованием кода просмотри http://www.arcada.com.ua/forum/viewtopic.php?t=653

[VVA]

Код:

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

(defun sel_txt (/ sset)
  (if (setq sset (ssget '((0 . "*TEXT"))))
    (mapcar (function (lambda (x)
   (cdr (assoc '1 (entget x)))
        ) ;_ end of lambda
     ) ;_ end of function
     (vl-sort
       (vl-remove-if
  (function listp)
  (mapcar (function cadr)
   (ssnamex sset)
  ) ;_ end of mapcar
       ) ;_ end of vl-remove-if
       '(lambda (a b)
   (or
     (> (caddr (assoc '10 (entget a)))
        (caddr (assoc '10 (entget b)))
     ) ;_ on Y
     (and  ;_ On X if eq Y
   (equal (caddr (assoc '10 (entget a)))
          (caddr (assoc '10 (entget b)))
          1e-6
   ) ;_ end of equal
   (< (cadr (assoc '10 (entget a)))
      (cadr (assoc '10 (entget b)))
   ) ;_ end of <
     ) ;_ end of and
   ) ;_ end of or
        ) ;_ end of lambda
     ) ;_ end of vl-sort
    ) ;_ end of mapcar
  ) ;_ end of if
) ;_ end of defun

Тоже код не проверял

[CB]

Да нет - это не то, даже если учесть, что (car (assoc 10.. - опечатка, потому что тогда предыдущая сортировка по Y уходит в никуда...
Пример того, что надо получить:
1-я строка: текст1 текст2 текст3 [Y1 одинаков X разный]
2-я строка: текст4 текст5 текст6 [Y2 одинаков X разный]
Y1>Y2
................................
Результат: (текст1 текст2 текст3 текст4 текст5 текст6)
А получается например так: (текст2 текст1 текст3 текст5 текст4 текст6) т.е. по Y нормально, а по X - фигня...

[VVA]

Ты про какой пост говоришь?

[CB]

Про пост №2
Ты

[CB]

Пост #3(VVA) - все работает нормально - только надо изменить в строчке
(< (cadr (assoc '10 (entget a)))
(caddr (assoc '10 (entget b)))
) ;_ end of <
на cadr
Спасибо за помощь!