[AGEL]

Поставили на ПК русский автокад 10.
Программа стала выдавать ошибку - Невозможно вычислить площадь, ограниченную самопересекающейся кривой.
Просьба исправить, если не трудно.
(defun c:dann(/ nab PER i kol B lin)
(setvar "cmdecho" 0)
(setq nab (ssget))
(set 'PER 0.00)
(set 'i 0)
(setq kol (sslength nab))
(while (< i kol)
(setq B (ssname nab i))
(setq lin (entget B))
(cond ((= (cdr(assoc 0 lin)) "LWPOLYLINE")
(command "_area" "_o" B)
(setq PER (+ PER (getvar "perimeter")))
(entdel B)
))
(setq i (1+ i))
)
(prompt "\n Длина=")
(prin1 PER)
(setvar "cmdecho" 1)
)

[Дима_]

А что Вы думаете делает ваша программа? Если нужна сумарная длинна полилиний, это одно (и тогда надо передать привет автору этого лиспа), если нужна сумма периметров (что пытается посчитать эта программа - то надо избавлятся от самопересечений) - вобщем вначале опишите зачем Вы ее используете.

[AGEL]

Привет обязатеьно передам...

программа считает сумму длин полилиний в текущем слое.

Просто ранее прог. работала без ошибок.

[Дима_]

Сообщение от AGEL программа считает сумму длин полилиний в текущем слое.

Только не эта программа - это, как я вижу, считает сумму длин полилиний из выбранных объектов (на слой ей вобще по барабану), удаляя при этом все выбранные (то есть не только полилинии) - Вам это нужно?
p.s. вру сбило отсутствие форматирования - удаляет только выбранные полилинии

[VVA]

Давно уже все писано-переписано. Здесь (Как подсчитать суммарную длину примитивов?) подберешь себе подходящий вариант