通过选组内实体求组定义，组包含的实体，组名

无痕

测试分析:

2. (setq a (entget(car(entsel))))
3.    (setq a360 (entget(cdr(assoc 360 a))))
4.    ;->得实体词典定义.
5.    ;((-1 . <图元名: 7ef7cee8>) (0 . "DICTIONARY") (330 . <图元名: 7ef7cea8>) (5 . "A5") (100 . "AcDbDictionary")
6.    ;(280 . 1) (281 . 1))
7.    (setq b360 (entget(cdr(assoc 330 a360))))
8.    ;=> 与a相同!
9.    ;((-1 . <图元名: 7ef7cea8>) (0 . "LWPOLYLINE") (5 . "9D") (102 . "{ACAD_XDICTIONARY")
10.    ;(360 . <图元名: 7ef7cee8>) (102 . "}") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ef7cec0>) (102 . "}")
11.    ;(330 . <图元名: 7ef7cc10>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline")
12.    ;(90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 33990.7 14713.5) (40 . 0.0) (41 . 0.0) (42 . 0.0)
13.    ;(10 42287.1 14713.5) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 42287.1 7262.24) (40 . 0.0) (41 . 0.0) (42 . 0.0)
14.    ;(10 33990.7 7262.24) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))
15.    (setq a330 (entget(cdr(assoc 330 a))))
16.    ;->得组定义,但无组名字.
17.    ;((-1 . <图元名: 7ef7cec0>) (0 . "GROUP") (5 . "A0") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ef7ccc0>) (102 . "}")
18.    ;(330 . <图元名: 7ef7ccc0>) (100 . "AcDbGroup") (300 . "") (70 . 0) (71 . 1)
19.    ;(340 . <图元名: 7ef7ceb0>)(340 . <图元名: 7ef7ceb8>) (340 . <图元名: 7ef7cea8>)) ;;<-组包含的实体.
20.    (setq b330 (entget(cdr(assoc 330 a330))))
21.    ;->找到(3 . "XX")为所要找的组名.
22.    ;((-1 . <图元名: 7ef7ccc0>) (0 . "DICTIONARY") (5 . "18") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ef7ccd0>)
23.    ;(102 . "}") (330 . <图元名: 7ef7ccd0>) (100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "*A1")
24.    ;(350 . <图元名: 7ef7ced8>) (3 . "1") (350 . <图元名: 7ef7ce68>) (3 . "XX") (350 . <图元名: 7ef7cec0>))
25.    (setq groupname (cdr(car(cdr(member (cons 350 (cdr(assoc -1 a330))) (reverse b330))))))
26.    ;->"XX"

(setq a (entget(car(entsel))))    (setq a360 (entget(cdr(assoc 360 a))))    ;->得实体词典定义.    ;((-1 . <图元名: 7ef7cee8>) (0 . "DICTIONARY") (330 . <图元名: 7ef7cea8>) (5 . "A5") (100 . "AcDbDictionary")    ;(280 . 1) (281 . 1))    (setq b360 (entget(cdr(assoc 330 a360))))    ;=> 与a相同!    ;((-1 . <图元名: 7ef7cea8>) (0 . "LWPOLYLINE") (5 . "9D") (102 . "{ACAD_XDICTIONARY")    ;(360 . <图元名: 7ef7cee8>) (102 . "}") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ef7cec0>) (102 . "}")    ;(330 . <图元名: 7ef7cc10>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline")    ;(90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 33990.7 14713.5) (40 . 0.0) (41 . 0.0) (42 . 0.0)    ;(10 42287.1 14713.5) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 42287.1 7262.24) (40 . 0.0) (41 . 0.0) (42 . 0.0)    ;(10 33990.7 7262.24) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))    (setq a330 (entget(cdr(assoc 330 a))))    ;->得组定义,但无组名字.    ;((-1 . <图元名: 7ef7cec0>) (0 . "GROUP") (5 . "A0") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ef7ccc0>) (102 . "}")    ;(330 . <图元名: 7ef7ccc0>) (100 . "AcDbGroup") (300 . "") (70 . 0) (71 . 1)    ;(340 . <图元名: 7ef7ceb0>)(340 . <图元名: 7ef7ceb8>) (340 . <图元名: 7ef7cea8>)) ;;<-组包含的实体.    (setq b330 (entget(cdr(assoc 330 a330))))    ;->找到(3 . "XX")为所要找的组名.    ;((-1 . <图元名: 7ef7ccc0>) (0 . "DICTIONARY") (5 . "18") (102 . "{ACAD_REACTORS") (330 . <图元名: 7ef7ccd0>)    ;(102 . "}") (330 . <图元名: 7ef7ccd0>) (100 . "AcDbDictionary") (280 . 0) (281 . 1) (3 . "*A1")    ;(350 . <图元名: 7ef7ced8>) (3 . "1") (350 . <图元名: 7ef7ce68>) (3 . "XX") (350 . <图元名: 7ef7cec0>))    (setq groupname (cdr(car(cdr(member (cons 350 (cdr(assoc -1 a330))) (reverse b330))))))    ;->"XX"

结论注：以下方法仅对一重组有效，如实体同属于多个组，则运行结果对应最下层（最先定义）的组)

2. ;1.求组定义:
3.     ;测试: (gpdef (car(entsel)))
4.     (defun gpdef (gpe)
5.         (entget(cdr(assoc 330 (entget gpe))))
6.     )
7.     ;2.求组内实体:
8.     ;测试:返回-> (<图元名: 7ef7ceb0> <图元名: 7ef7ceb8> <图元名: 7ef7cea8>)
9.     (mapcar 'cdr (vl-remove-if '(lambda(x)(/= 340 (car x))) (gpdef (car(entsel)))))
10.     ;3.求组名:
11.     ;测试:返回组名-> "xx"
12.     (setq gpdefl (gpdef (car(entsel)))
13.         gpdict (entget(cdr(assoc 330 gpdefl)))
14.                 gpname (cdadr(member (cons 350 (cdr(assoc -1 gpdefl))) (reverse gpdict)))
15.     )

;1.求组定义:     ;测试: (gpdef (car(entsel)))     (defun gpdef (gpe)         (entget(cdr(assoc 330 (entget gpe))))     )     ;2.求组内实体:     ;测试:返回-> (<图元名: 7ef7ceb0> <图元名: 7ef7ceb8> <图元名: 7ef7cea8>)     (mapcar 'cdr (vl-remove-if '(lambda(x)(/= 340 (car x))) (gpdef (car(entsel)))))     ;3.求组名:     ;测试:返回组名-> "xx"     (setq gpdefl (gpdef (car(entsel)))         gpdict (entget(cdr(assoc 330 gpdefl)))                 gpname (cdadr(member (cons 350 (cdr(assoc -1 gpdefl))) (reverse gpdict)))     )

adison

如何分解匿名组，要求速度。

龙龙仔

http://www.mjtd.com/bbs/Archive_view.asp?boardID=3&ID=19958