[SlayERR]

привет. имеются две дуги. одна - нормальная, а другая - нет, при удалении которой удаляется не связанный с ней слой (казалось бы). Вопрос к знатокам: где хранится информация о связанном с дугой слое и как можно получить доступ к подобной информации. Моя конечная задача - очистить чертеж от подобных связей с помощью самодельной автолисп-проги.
Если кто знает, помогите, пожалуйста.
[ATTACH]1160574377.dwg[/ATTACH]

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

Кликаем на "ненормальной":

Command: (entget (car (entsel)) '("*"))

Select object: ((-1 . <Entity name: 7ef5d098>) (0 . "ARC") (330 . <Entity name:
7ef5bcf8>) (5 . "D3") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "1.
Асфальтобетон") (100 . "AcDbCircle") (10 0.0 -2.84217e-014 0.0) (40 . 5.0) (210
0.0 0.0 1.0) (100 . "AcDbArc") (50 . 6.10172) (51 . 3.86147) (-3 ("AC_800"
(1000 . "ELEMENT_19") (1002 . "{") (1071 . 74659) (1005 . "0") (1003 .
"4k_1floor$0$Благоустройство.Специальный") (1011 757.97 -512.557 0.0) (1011
757.97 -511.557 0.0) (1011 756.97 -512.557 0.0) (1002 . "}"))
("AcDbBlockRepETag" (1070 . 1) (1071 . 371) (1005 . "0"))))

Лечить, если "по-тупому", можно и так:

Код:

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

(setq ent (car (entsel)))
(entmake (vl-remove-if '(lambda (x) (member (car x) '(-1 330 5))) (entget ent)))
(entdel ent)

[SlayERR]

Я делал совсем по тупому, от недостатка знаний

(setq Nabor1 (ssget))
(setq Elem1 (entget (ssname Nabor1 0)))


Потом - инспект - и ничего интересного не показало, хотя я ожидал что-то типа того что ты прислал. Весь вечер буду разбираться. Если не трудно, подскажи, что это за группы которые больше 1000
Спасибо

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

А это так называемые расширенные данные. Там можно приличное количество данных хранить. Но как их удалять "по красивому", я не знаю (можно, конечно, попробовать через activex пройтись, но там я пас). Все остальное завтра, уж домой полтора часа как пора

[SlayERR]

Спасибо. Я теперь попробую сам разруливать проблему.

[VVA]

Здесь
есть кое-что по удалению расширенных данных