walong 发表于 2004-1-12 21:25:00

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

((-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 发表于 2004-1-12 21:54:00

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

meflying 发表于 2004-1-13 01:59:00

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

walong 发表于 2004-1-13 12:40:00

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



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

walong 发表于 2004-1-13 12:55:00

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



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

meflying 发表于 2004-1-13 14:08:00

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

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

BDYCAD 发表于 2004-1-13 16:41:00

參考
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 发表于 2004-1-13 18:38:00

谢谢各位热心的朋友们

gamemaster 发表于 2013-4-10 23:04:42

CAD群码值......
页: [1]
查看完整版本: 矩形的属性表中有多个10号群码，如何取！