[wluk1958]

Подскажите, пожалуйста: существует ли возможность поиска (или вывода) ф-ей " (tblsearch ...) " групп (group), как именованных, так и безымянных. Существуют ли DXF-коды групп ?
И еще, по ходу дела: если группа входит в состав блока - то при разблокировании блока "взрывается" и группа. Спасибо заранее.

[nik_mb]

Табличные данные основных неграфических объектов сгруппированы в символьные таблицы, имеющих имена: BLOCK, LAYER, LTYPE, STYLE, DIMSTYLE, UCS, VIEW, VPORT, APPID
Если взять свойство одного из примитивов группы, то видно присутствие реактора в таком примитиве

Код:

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

 (entget(ssname(ssget)0))

((-1 . <Имя объекта: 7ed8b518>) (0 . "LINE") (5 . "389193")
(102 . "{ACAD_REACTORS") (330 . <Имя объекта: 7ed8b540>) (102 . "}")
(330 . <Имя объекта: 7eea7cf8>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "К_Арматура") (48 . 40.0) (100 . "AcDbLine") (10 -197430.0 -36740.0 0.0) (11 -197430.0 -37980.0 0.0) (210 0.0 0.0 1.0))
Если же набрать такую лисп-строку:

Код:

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

 (entget(cdr(assoc 330(entget (cdr(assoc 330(entget(ssname(ssget)0))))))))

И указать на примитив в группе, то можно найти перечисление имен групп на чертеже (с кодом 3):
((-1 . <Имя объекта: 7eea7c68>) (0 . "DICTIONARY") (5 . "D") (102 . "{ACAD_REACTORS") (330 . <Имя объекта: 7eea7c60>) (102 . "}") (330 . <Имя объекта: 7eea7c60>) (100 . "AcDbDictionary") (280 . 0) (281 . 1)
(3 . "*A1") (350 . <Имя объекта: 7eecbd78>) (3 . "*A2") (350 . <Имя объекта: 7eee9f08>) (3 . "*A4") (350 . <Имя объекта: 7eeea128>) (3 . "*A5") (350 . <Имя объекта: 7eeee878>) (3 . "*A6") (350 . <Имя объекта: 7eee9dc8>) (3 . "*A7") (350 . <Имя объекта: 7eecbdd8>) (3 . "*A8") (350 . <Имя объекта: 7ed07f90>) (3 . "*A9") (350 . <Имя объекта: 7ed07f98>) (3 . "ABC") (350 . <Имя объекта: 7ed8b540>))

[wluk1958]

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

Но, и попутный вопрос: если группа входит в состав блока - то при разблокировании блока "взрывается" и группа. Можно ли оставить группу в девственном состоянии ?
Спасибо еще раз.

[TararykovDG]

Сообщение от nik_mb Табличные данные основных неграфических объектов сгруппированы в символьные таблицы, имеющих имена: BLOCK, LAYER, LTYPE, STYLE, DIMSTYLE, UCS, VIEW, VPORT, APPID Если взять свойство одного из примитивов группы, то видно присутствие реактора в таком примитиве

nik_mb при чем тут это, wluk1958 спрашивал

Сообщение от wluk1958 Подскажите, пожалуйста: существует ли возможность поиска (или вывода) ф-ей " (tblsearch ...) " групп (group), как именованных, так и безымянных. Существуют ли DXF-коды групп ?

wluk1958, да и nik_mb, данные о группах хранятся в рисунке в словаре с именм ACAD_GROUP

Код:

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

 
(dictsearch (namedobjdict) "ACAD_GROUP")

и дальше смотрим dxf-коды 3 и 350

[wluk1958]

"и дальше смотрим dxf-коды 3 и 350"

->
... (3 . "*A1") (350 . <Имя объекта: -ec9d78>)(3 . "*A2") (350 . <Имя объекта: -ec9d18>))
А вот после "(entget...)" почему-то никакого соответствия не вижу. (Это чтобы определить, какую конкретно я выбрал группу).

[nik_mb]

Можно поступить так (возможно есть путь короче) - получить имя группы для выбранного примитива:

Код:

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

 (setq group_vba (vlax-ename->vla-object (cdr(assoc -1 (entget (cdr(assoc 330 (entget (car (entsel ))))))))))
(setq name_group (vla-get-name group_vba))

[wluk1958]

Великолепно ! Это именно то, что я хотел узнать. Спасибо большое.

[Александр Ривилис]

Подсказка: примитив может содержаться сразу в нескольких группах. Код #6 возвращает имя первой из них (если примитив в группе).

[wluk1958]

Спасибо еще раз.

[ashas-]

Здраствуйте.
Бьюсь уже второй день... Можно ли через "vla-get" достать пояснение к нужной группе, посредством выбора объекта входящего в него (учитывая функцию написанную выше). Пролазил почти все свойства, никак не могу понять где оно прописывается. Интересует адрес именно через vla-object.

[Do$]

Когда мне понадобилось, я не нашел. Добирался через DXF.

Код:

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

(cdr (assoc 300 (entget (vlax-vla-object->ename <group-vla-object>))))