矩形的属性表中有多个10号群码，如何取！

walong

((-1 . <图元名: 40084e10>) (0 . "LWPOLYLINE") (330 . <图元名: 40084cf8>) (5 .
"42") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 54.1622
433.533) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 829.153 433.533) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 829.153 106.855) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
54.1622 106.855) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))


上面是矩形的属性表，其中有多个10号群码，
我想取出 (10 54.1622 433.533) 和  (10 829.153 106.855)
请大家帮助！

841594

(defun tst(ent / endlst ls)
  (foreach ls ent
    (if (= 10 (car ls)) (setq endlst (cons (cdr ls) endlst)))
    )
  endlst
  )

meflying

to walong:你既然已经知道这两个项了，还要取什么？
应该提供别的已知条件，比如第二、三个顶点，或者靠近某地方的点。。。

walong

meflying发表于2004-1-13 1:59:00to walong:你既然已经知道这两个项了，还要取什么？
应该提供别的已知条件，比如第二、三个顶点，或者靠近某地方的点。。。

我是知道整个的属性，却并不能单独取出多个相同的10号群码的属性。故而才问的.

walong

meflying发表于2004-1-13 1:59:00to walong:你既然已经知道这两个项了，还要取什么？
应该提供别的已知条件，比如第二、三个顶点，或者靠近某地方的点。。。

我是知道整个的属性，却并不能单独取出多个相同的10号群码的属性。故而才问的.

meflying

用nth一个一个取，然后根据关键字10决定是否需要。

或者使用member加cdr，，，，
...

BDYCAD

參考
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=15268

改改就可用了, 如
(setq lst2 (entget (car (entsel))))
(while (setq lst2 (member (assoc 10 lst2) lst2))
    (setq POINT (append POINT (list(CDR  (car lst2)))))
    (setq lst2 (cdr lst2)))

walong

谢谢各位热心的朋友们

gamemaster

CAD群码值......