[Olga_@@@]

Проблема:
есть файл(ы) с кучей слоев в именах которых содержатся только числовые значения. Автокад их сортирует, как текст: 1, 110, 14 и т.д.
Можно ли как-то изменить порядок сортировки, что бы было так: 1, 14, 110 ???

[Profan]

001
014
110

[Olga_@@@]

Profan, у меня названия слоев создаются при выполнении запроса по значению поля Elevation. Как в процессе запроса вставить нули... чего-то не соображу. Там нет вроде такой функции...

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

Olga_@@@, названия слоев назначаются пользовательским лиспом? Или какой-то встроенной функцией?

[Olga_@@@]

запросом Autodesk Map, т.е. встроенной функцией, но это не функция базового автокада

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

Ясно... Образец файла в теме http://forum.dwg.ru/showthread.php?t=29433 покатит?

[Olga_@@@]

Кулик Алексей aka kpblc, в том файле набор слоев неудачный попался, они там все ###_m. Я лучше другой сделаю.
PS если стандартными средствами это не решается, то может быть объединить это с задачей в той теме??? или лучше по отдельности?

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

Думаю, что лучше в этой теме образец. Вопрос сразу: какие примитивы понадобится обрабатывать?

[Olga_@@@]

полилинии

[VVA]

Olga_@@@, А если "нормализовать" слои как показано в #2?
Тогда Автокад отсортирует их по порядку

Код:

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

;;;LayerSort
(defun c:LayS ()
;;;================================================================================
;;;Written By Michael Puckett. 
;;;Список элементов символьных таблиц АвтоКАДа 
;;; - s- имя таблицы
;;;Пример - список всех слоев - (setq all_layers (tablelist "LAYER"))
;;;(setq all_layers (tablelist "LAYER"))
;;;
;;;AutoLisp should return something like this :
;;;Start Coding Here 
(defun tablelist (s / d r)
  (while (setq d (tblnext s (null d)))
    (setq r (cons (cdr (assoc 2 d)) r))
  )					;while
)					;defun
;;;End Coding Here
  ;;-------------------------------------------------
  ;;  function to Count the longest number in string 
  ;;  CAB added to get the correct COUNT
  (defun getcount (lst / count pat)
    (setq count 0)
    (setq pat '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
    (mapcar
      '(lambda (str / i maxlen ch)
         (setq i 0 maxlen 0)
         (while (/= (setq ch (substr str (setq i (1+ i)) 1)) "")
           (if (vl-position ch pat) ; number
             (setq maxlen (1+ maxlen))
             (setq count  (max count maxlen) maxlen 0)
           )
         )
	 (setq count  (max count maxlen)) ;_<<< ADD 21.06.2007 by 
       )
      Lst
    )
    count
  )
;;;Function Normalize (add 0 befor number) number in string
;;; Count normalize symbols set in variable count
;;; CAB added count as an argument
  (defun NormalizeNumberInString (str count / ch i pat ret buf)
    (setq i   0
          pat '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")
          ret ""
    ) ;_ end of setq
    (while (/= (setq ch (substr str (setq i (1+ i)) 1)) "")
      (if (vl-position ch pat)
        (progn
          (setq buf ch) ;_ end of setq
          (while
            (vl-position (setq ch (substr str (setq i (1+ i)) 1)) pat)
             (setq buf (strcat buf ch))
          ) ;_ end of while
          (while (< (strlen buf) count) (setq buf (strcat "0" buf)))
          (setq ret (strcat ret buf))
        ) ;_ end of progn
      ) ;_ end of if
      (setq ret (strcat ret ch))
    ) ;_ end of while
    ret
  ) ;_ end of defun

(setq lay-list (tablelist "LAYER"))
(setq count  (1+ (GetCount  lay-list))
        NorStrs (mapcar '(lambda (x) (NormalizeNumberInString x count))
                        lay-list)
      tmp lay-list
  )
(mapcar '(lambda(x y / i lay)
           (setq i 0)
           (while (member y tmp)
             (setq y (strcat y (itoa(setq i (1+ i)))))
             )
           (VL-CATCH-ALL-APPLY '(lambda()
           (setq lay (vla-item (vla-get-Layers(vla-get-activedocument (vlax-get-acad-object))) x))
           (vla-put-name lay y)
                                  )
             )
           (setq tmp (cons y tmp))
           )
        lay-list NorStrs
        )
  (princ "\nГотово")
  (princ)
  )

[Olga_@@@]

VVA, спасибо, попробую.

[Olga_@@@]

Кулик Алексей aka kpblc, примеры здесь (облегченный вариант без примитивов)

[Olga_@@@]

VVA, код работает, хотя отрицательные значения все равно идут в противоестественном порядке. Но, это не проблема кода, просто автокад любые названия слоев воспринимает только как текст, к сожалению.
Но, все равно с переименованными слоями работать намного легче . Огромное спасибо!