[讨论]：关于“GROUP”的讨论。

ww822

引：如何用LSP获得图中存在的特定的“GROUP”?

XDSoft

最初由 ww822 发布
[B]引：如何用LSP获得图中存在的特定的“GROUP”? [/B]

组GROUP的定义是存放在命名对象词典的组词典中，获得组词典，就可以得到数据库中定义的组，下面是试验：

使用XDRX_API函数xdrx_object_get获得命名对象词典对象：
(setq a (xdrx_object_get "dictionary"))
<图元名: 40032cd0>

获得对象的数据，其中(3 . "ACAD_GROUP")为组，它下一个表是改对象名字。[/COLOR]
命令: (setq b (entget a))
((-1 . <图元名: 40032cd0>) (0 . "DICTIONARY") (330 . <图元名: 0>) (5 . "1A")
(100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "ACAD_GROUP") (350 . <图元名:
40032cc0>) (3 . "ACAD_LAYOUT") (350 . <图元名: 40032d70>) (3 .
"ACAD_MLINESTYLE") (350 . <图元名: 40032cc8>) (3 . "ACAD_PLOTSETTINGS") (350 .
<图元名: 40032d78>) (3 . "ACAD_PLOTSTYLENAME") (350 . <图元名: 40032d60>) (3 .
"AcDbVariableDictionary") (350 . <图元名: 40032f38>))

使用MEMBER函数得到以组对象开始的子表：[/COLOR]
命令: (SETQ C (MEMBER '(3 . "ACAD_GROUP") B))
((3 . "ACAD_GROUP") (350 . <图元名: 40032cc0>) (3 . "ACAD_LAYOUT") (350 .
<图元名: 40032d70>) (3 . "ACAD_MLINESTYLE") (350 . <图元名: 40032cc8>) (3 .
"ACAD_PLOTSETTINGS") (350 . <图元名: 40032d78>) (3 . "ACAD_PLOTSTYLENAME") (350
. <图元名: 40032d60>) (3 . "AcDbVariableDictionary") (350 . <图元名: 40032f38>))

CADR获得组对象[/COLOR]
命令: (SETQ D (CADR C))
(350 . <图元名: 40032cc0>)

CDR得到组对象名
命令: (SETQ E (CDR D))
<图元名: 40032cc0>

获得组对象的数据：
命令: (SETQ F (ENTGET E))
((-1 . <图元名: 40032cc0>) (0 . "DICTIONARY") (5 . "18") (102 .
"{ACAD_REACTORS") (330 . <图元名: 40032cd0>) (102 . "}") (330 . <图元名:
40032cd0>) (100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "FIRST") (350 .
<图元名: 40032fa8>) (3 . "SECOND") (350 . <图元名: 40032fb0>))

上面的表中组码3的表为当前数据库定义的组，可以看到有两个组，名字分别是FIRST,SECOND，可以
在进一步得到这两个组的对象，在ENTGET就可以得到组里面的实体名字。

拿first为例子：

得到第一个组
命令: (setq g (assoc 3 f))
(3 . "FIRST")

得到组子表
命令: (setq h (member g f))
((3 . "FIRST") (350 . <图元名: 40032fa8>) (3 . "SECOND") (350 . <图元名:
40032fb0>))

得到第一个FIRST组的对象

命令: (setq i (cdadr h))
<图元名: 40032fa8>

获得组对象的数据，其中组码340的就是组里面的实体
命令: (setq j (entget i))
((-1 . <图元名: 40032fa8>) (0 . "GROUP") (5 . "B5") (102 . "{ACAD_REACTORS")
(330 . <图元名: 40032cc0>) (102 . "}") (330 . <图元名: 40032cc0>) (100 .
"AcDbGroup") (300 . "") (70 . 0) (71 . 1) (340 . <图元名: 40032fa0>) (340 .
<图元名: 40032f90>))

[F]使用XDRX_API可以很方便的进行上面这些操作，见下面[/F]

直接得到组对象
(setq a (xdrx_object_get "group"))
命令: (setq a (xdrx_object_get "group"))
<图元名: 40032cc0>

使用对象叠代器，做个循环就得到组词典下面的所有组对象，由子表组成，每个子表的CAR是组名，CADR是组对象，ENTGET这个CADR，就可以得到组内的实体
命令: (while (setq b (xdrx_object_next))(setq gg (cons b gg)))
(("SECOND" <图元名: 40032fb0>) ("FIRST" <图元名: 40032fa8>))

xdrx_object_get和xdrx_object_next组合，不仅适用组词典，对所有容器对象都可以，也就是说，可以用他们得到命名对象词典下面的所有东西，得到块表容器下的所有东西，得到。。。