[求助]：怎样取出群码值为10的第二个子列表？

mhy007

有一对象联合属性列表newlist，群码值为10的子列表有两个或多个，我用(setq a (assoc 10 newlist))只能取出第一个,想取出第二个,第三个应该用什么函数呢?

雨箭风刀

你一次 vl-remove  car非10的
然后用 nth 分别取

mhy007

哦,好办法!

xyp1964

2. [FONT=courier new](defun assoc10 (elist n)
   
3.   (repeat n
   
4.     (setq a        (assoc 10 newlist)
   
5.           elist        (vl-remove a newlist)
   
6.     )
   
7.   )
   
8.   a
   
9. )[/FONT]

[FONT=courier new](defun assoc10 (elist n)<br />   (repeat n<br />     (setq a        (assoc 10 newlist)<br />           elist        (vl-remove a newlist)<br />     )<br />   )<br />   a<br /> )[/FONT]

雨箭风刀

用vl-remove是不保险的，因为多义线可能有重合点，尤其首尾可能重合
提供另外两个写法

2. 
   
3. (defun d10 (elist n / a)
   
4.   (repeat n
   
5.     (setq a     (assoc 10 elist)
   
6.           elist        (cdr(member a elist))
   
7.     )
   
8.   )
   
9.   a
   
10. );;
    
11. (defun dxf10 (elist n)
    
12.   (nth (1- n)(vl-remove-if-not '(lambda(x)(= 10 (car x))) elist))
    
13. )
    

<br /> (defun d10 (elist n / a)<br />   (repeat n<br />     (setq a     (assoc 10 elist)<br />           elist        (cdr(member a elist))<br />     )<br />   )<br />   a<br /> );;<br /> (defun dxf10 (elist n)<br />   (nth (1- n)(vl-remove-if-not '(lambda(x)(= 10 (car x))) elist))<br /> )<br />

xyp1964

2. [FONT=courier new](defun assoc10 (ename n)
   
3.   (setq        ptlst (xyp-get-Vertexs ename 0)
   
4.         pt-n  (nth n ptlst)
   
5.   )
   
6.   pt-n
   
7. )
   
8. 
   
9. ;;;标注多段线任意顶点坐标
   
10. (defun c:test ()
    
11.   (cmdlasc0)
    
12.   (setq        INT   (UINT 7 "" "\n位数" INT)
    
13.         s1    (car (entsel "\n选择多段线: "))
    
14.         etype (xyp-get-dxf 0 s1)
    
15.         pt    (assoc10 s1 (- int 1))
    
16.   )
    
17.   (if (and pt
    
18.            (member etype '("POLYLINE" "LWPOLYLINE"))
    
19.       )
    
20.     (xyp-ZB pt 1000 4)
    
21.     (princ "\n不存在此顶点! ")
    
22.   )
    
23.   (cmdla1)
    
24. )
    
25. [/FONT]

[FONT=courier new](defun assoc10 (ename n)<br />   (setq        ptlst (xyp-get-Vertexs ename 0)<br />         pt-n  (nth n ptlst)<br />   )<br />   pt-n<br /> )<br /> <br /> ;;;标注多段线任意顶点坐标<br /> (defun c:test ()<br />   (cmdlasc0)<br />   (setq        INT   (UINT 7 "" "\n位数" INT)<br />         s1    (car (entsel "\n选择多段线: "))<br />         etype (xyp-get-dxf 0 s1)<br />         pt    (assoc10 s1 (- int 1))<br />   )<br />   (if (and pt<br />            (member etype '("POLYLINE" "LWPOLYLINE"))<br />       )<br />     (xyp-ZB pt 1000 4)<br />     (princ "\n不存在此顶点! ")<br />   )<br />   (cmdla1)<br /> )<br /> [/FONT]

dezhang

也可以FOREACH加IF
(FOREACH Z DXF
   (IF (= (CAR Z) 10) (SETQ AA (CONS Z AA))))

xyp1964

对于POLYLINE实体，求角点不能用dxf 10组码，因为只存在1个dxf 10组码。