多重引线的图元列表同名组码怎么获取

dingtiedt

多重引线的图元列表
Select object: ((-1 . <Entity name: 7ee3d4c0>) (0 . "MULTILEADER") (330 .
<Entity name: 7ee3bcf8>) (5 . "208") (100 . "AcDbEntity") (67 . 0) (410 .
"Model") (8 . "0") (100 . "AcDbMLeader") (270 . 2) (300 . "CONTEXT_DATA{") (40
. 1.0) (10 10255.1 1470.8 0.0) (41 . 444.0) (140 . 4.0) (145 . 2.0) (174 . 1)
(175 . 1) (176 . 0) (177 . 0) (290 . 1) (304 . "adsfasdfadsf") (11 0.0 0.0 1.0)
(340 . <Entity name: 7ee3bc88>) (12 10257.1 1696.43 0.0) (13 1.0 0.0 0.0) (42 .
0.0) (43 . 0.0) (44 . 0.0) (45 . 1.0) (170 . 1) (90 . -1073741824) (171 . 1)
(172 . 5) (91 . -1073741824) (141 . 0.0) (92 . 0) (291 . 0) (292 . 0) (173 . 0)
(293 . 0) (142 . 0.0) (143 . 0.0) (294 . 0) (295 . 0) (296 . 0) (110 1266.05
-3096.2 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (297 . 0) (302 . "LEADER{")
(290 . 1) (291 . 1) (10 1266.05 1470.8 0.0) (11 1.0 0.0 0.0) (90 . 0) (40 .
8989.0) (304 . "LEADER_LINE{") (10 1266.05 -3096.2 0.0) (91 . 0) (170 . 1) (92
. -1056964608) (340 . <Entity name: 0>) (171 . -2) (40 . 0.0) (341 . <Entity
name: 0>) (93 . 0) (305 . "}") (271 . 0) (303 . "}") (272 . 9) (273 . 9) (301 .
"}") (340 . <Entity name: 7ee3d0b0>) (90 . 345280) (170 . 1) (91 . -1056964608)
(341 . <Entity name: 7ee3bca0>) (171 . -2) (290 . 1) (291 . 1) (41 . 8989.0)
(42 . 4.0) (172 . 2) (343 . <Entity name: 7ee3bc88>) (173 . 1) (95 . 1) (174 .
1) (175 . 0) (92 . -1056964608) (292 . 0) (93 . -1056964608) (10 1.0 1.0 1.0)
(43 . 0.0) (176 . 0) (293 . 0) (294 . 0) (178 . 0) (179 . 1) (45 . 1.0) (271 .
0) (272 . 9) (273 . 9))
有三个(40 . _)，想要选择第二个(40 . _)。请问怎么选择又怎么修改。
在此先谢谢！

caoyin

(while (setq A (assoc 40 ENT))
  (setq LST (cons (cdr A) LST)
        ENT (cdr (member A ENT))
  )
)
(reverse LST)

dingtiedt

版主深夜解答难题，令小辈钦佩

步行黔南

采用nth函数可以取出任何图元列表索引元素
(setq elist (entget en));图元列表
     (setq eb0 (nth 0-104 elist))
这里请教其他前辈：修改多重引线第一顶点
(setq elist (entget enMLdobj));图元列表   
  (setq eb0 (nth 0 elist))
  (setq eb1 (nth 1 elist))
  (setq eb2 (nth 2 elist))
                  .......
(setq eb104 (nth 104 elist))
(setq elist          
(list eb0 eb1 ......eb104)
)   
(entmod elist)          
上述办法，直接但笨，本人ActiveX水平有限，几经尝试均不成功！