[Yuzer]

Может есть лисп, который бы во всем выборе показывал бы количество одинаковых отрезков или длин полилиний?

[Дима_]

Да наверно есть но в качестве разминки - вот еще

Код:

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

 (vl-load-com)
(defun c:odinak()
  ((lambda (frec lst) (frec '() lst))
   (lambda (ret lst)
     (if lst
         (frec
           ((lambda (x)
                (if x
                    (subst (cons (car x) (1+ (cdr x))) x ret)
                    (cons (cons (car lst) 1) ret)))
            (assoc (car lst) ret))
           (cdr lst))
         ret))
   (mapcar
     '(lambda (ent) (vla-get-length (vlax-ename->vla-object ent)))
     (vl-remove-if
       'listp
         (mapcar 'cadr (ssnamex (ssget (list '(0 . "*LINE")))))))))

з.ы. тут по хорошему еще конечно допуск надо добавить - но скорее всего надо еще отсортировать будет и ... вобщем для затравки пока так.

[Yuzer]

Дима_, вот что у меня выдает

Команда: _appload LISP. Вывод списка примитивов (полилиний) по группам.lsp успешно загружено. Команда: ; ошибка: синтаксическая ошибка

Дальше не проверял.

[Дима_]

По моему что-то на форуме сломалось - код неверно копирует (по крайней мере этот) нажми в правой части кода кнопку <> view source выдели и скопируй ctrl-c - так работает (при нажатии на кнопку копировать неверно переносит конец строки).
p.s. ты случаем не с номерами строк копируешь?

[Yuzer]

Супер. То, что нужно!
Гигантское спасибо!
Правка: копирнул со строками.