Befehl: (setq block (car(entsel)))

Objekt wählen: <Objektname: 7efff5c0>

Befehl: (entget block)
((-1 . <Objektname: 7efff5c0>) (0 . "INSERT") (330 . <Objektname: 7ef6ecd8>) (5 . "1E00") (100 . "AcDbEntity")
(67 . 1) (410 . "Blatt_1") (8 . "AM_5") (100 . "AcDbBlockReference") (2 . "Bohrungsinfo1") (10 0.0 0.0 0.0)
(41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

Befehl: (setq nächstes_ele (entnext block))
<Objektname: 7efff668>

Befehl: (entget nächstes_ele)
((-1 . <Objektname: 7efff668>) (0 . "INSERT") (330 . <Objektname: 7ef6ecd8>) (5 . "1E15") (100 . "AcDbEntity")
(67 . 1) (410 . "Blatt_1") (8 . "AM_5") (100 . "AcDbBlockReference") (2 . "Bohrungsinfo2") (10 0.0 0.0 0.0)
(41 . 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

Befehl: (setq nächstes_ele1 (entnext nächstes_ele))
<Objektname: 7efffe70>

Befehl: (entget nächstes_ele1)
((-1 . <Objektname: 7efffe70>) (0 . "ACMPARTREF") (5 . "1F8E") (102 . "{ACAD_REACTORS")
(330 . <Objektname: 7efffe58>) (330 . <Objektname: 7efe8880>) (102 . "}")
(330 . <Objektname: 7ef6ecd8>) (100 . "AcDbEntity") (67 . 1) (410 . "Blatt_1") (8 . "AM_12")
(100 . "AcmSymbolClass") (10 106.799 168.977 0.0) (11 1.0 0.0 0.0) (12 0.0 1.0 0.0) (40 . 1.0) (1 . "DIN")
(100 . "AcmPartRef") (340 . <Objektname: 7efffe58>) (280 . 1) (340 . <Objektname: 7efffe68>))