[Lenich]

Уважаемые,

Что еще за <Entity name: 0> и как с ним бороться?
Вообщем есть прога, которая обрабатывает примитивы и тут случайно выдала такую ошибку, я поковырялся в проге и никак не получается сделать условие на проверку этого <Entity name: 0>, т.е. я не могу его отсечь, чтобы программа с ним не работала.
Подсобите. Спасибо.

[Pilot]

А может в чертеже косяк? Recover не пробовал?

[vk]

С телепатией сегодня полный засадняк. В смысле, не могу разглядеть код твоей проги.
Хотя, попробую предположить, что примитив где то не выбран или ссылка на отсутствующий (удаленный) примитив, потому и ошибка.

[Lenich]

Recover не пробовал?

Пробовал. Непомогает.
Вообщем это зверь цепляется к выноске (leader) под кодом (340 . <Entity name: 0>), как это получилось сказать не могу. Но для нормальной работы программы нужно сделать и на эту штуку проверку.

[vk]

это зверь цепляется к выноске (leader) под кодом (340 . <Entity name: 0>),

Точно... Это блок или МТекст, привязанный к лидеру как аннотация... Был когда то.... А потом его прибили программно, не позаботившись об удалении ссылки на него.
А вот почему Recover не сработал - не понятно....

[vk]

Кстати, а как насчет AUDIT :?: Тоже не находит ошибку?

[Lenich]

А вот почему Recover не сработал - не понятно....

И мне не понятно, но почему то AUDIT справился и тепеть все корректно: В выноске стало (73 . 3) и (340 . <Entity name: 0>), т.е. без аннотации.

С телепатией сегодня полный засадняк. В смысле, не могу разглядеть код твоей проги.

Да сам код то и не важен. (мне думается)

Осталось подстраховаться от этой кривости программно, т.е. у меня есть проверка на

Код:

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

(if (= 0 (cdr (assoc 73 (entget (car obj))))))

а как сделать проверку еще и на код 340 . <Entity name: 0>
Попробовал

Код:

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

(if (and (= 0 (cdr (assoc 73 (entget (car obj))))) (/= "<Entity name: 0>" (cdr (assoc 340 (entget (car obj))))))

Не берет.
Может есть способ попроще?

[Alxd]

Я попробовал просто сравнить ENAME с INT. Вроде получилось.
(/= (cdr (assoc 330 r)) 0) равно T
где r =
((-1 . <Entity name: 402a1e20>) (0 . "LINE") (330 . <Entity name: 402a1cf8>) (5
. "6C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbLine") (10 266.441 223.749 0.0) (11 333.377 321.07 0.0) (210 0.0 0.0 1.0))

Получится так?

[Lenich]

(/= (cdr (assoc 330 r)) 0) равно T при (330 . <Entity name: 402a1cf8>)

Здесь Т
И если (330 . <Entity name: 0>) И здесь тоже будет Т

Надо как то по другому. Может из <Entity name: 0>) вытаскивать 0 ?

[Lenich]

Догнал:
сделал проверку на

Код:

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

(entget (cdr (assoc 340 (entget (car obj)))))

Если (340 . <Entity name: 0>) то возвращает nil, а если (340 . <Entity name: 402a1cf8>) то возвращает описание объекта.

Если кто знает способ попроще сообщите пожалуйста.
Всем спасибо!