[gomer]

Вообще-то в идеале хотелось бы выбрать все линии с малой или нулевой длиной... Кто знает, подскажите, как это можно сделать.

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

Выбирай все, а потом из набора удаляй объекты с длиной, не превышающей указанную.

[Олег (jr.)]

Сообщение от gomer Вообще-то в идеале хотелось бы выбрать все линии с малой или нулевой длиной... Кто знает, подскажите, как это можно сделать.

Можно так

Код:

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

(setq zero_line_list
(vl-remove-if
  (function (lambda (line)
     (not (equal (cdr (assoc 10 (entget line)))
		 (cdr (assoc 11 (entget line)))
		 0.0001);<-- set epsilon here 
	  )
     )
  )
  (vl-remove-if
    (function listp)
    (mapcar (function cadr)
	    (ssnamex (ssget (list (cons 0 "LINE")
				  (if (getvar "CTAB")
                                   (cons 410 (getvar "CTAB"))
                                   (cons 67 (1- (getvar "TILEMODE")))))))
	    )
    )
  )
)

~'J'~

[Do$]

Сообщение от Олег (jr.) (if (getvar "CTAB")...

Бывает, что нет текущей вкладки?

[АлексЮстасу]

Сообщение от gomer Вообще-то в идеале хотелось бы выбрать все линии с малой или нулевой длиной... Кто знает, подскажите, как это можно сделать.

Средствами Drawing Cleanup из AutoCad Map 3D - Erase Short Objects и Zero Length Objects. При этом можно будет удалить не только короткие или нулевой длины элементы, но и короткие сегменты полилиний, совпадающие точки. И сделать это можно не только огульно - автоматом, но и с просмотром соответствующих мест файла, с возможностью что-то удалить, а что-то оставить, пометить спорные места.
Вы скажете, что далеко не у всех есть AutoCad Map 3D. А задачи чистки чертежей встречаются у всех и постоянно. Поэтому я и описывал соответствующий баг - предложение сделать Drawing Cleanup доступным в базовом Автокаде. Чтобы в милионный раз не упирались люди в одни и те же проблемы, уже решенные самой же фирмой, не писали самопальные программки.

[Елпанов Евгений]

Быстрый выбор ->> линии ->> длина ->> менее чем 1.01 ->> ОК.
то же самое повторить для полилиний, дуг итд.