多段线循环提取顶点的问题，请大神进来给看看，谢谢！

312735894

2. (defun c:tt()
   
3.   (setq ent (entget (car (entsel))))
   
4.   (setq i 0)
   
5.   (repeat (length ent)
   
6.     (setq lst (nth i ent))
   
7.     (if (= 10 (car lst))
   
8.      (progn
   
9.       (setq x (cadr lst))
   
10.       (setq y (caddr lst))
    
11.      )
    
12.     )
    
13.    (print (strcat "顶点坐标为：" (rtos x) (rtos y)))
    
14.    (setq i (1+ i))
    
15.   )
    
16. )

(defun c:tt()<br />   (setq ent (entget (car (entsel))))<br />   (setq i 0)<br />   (repeat (length ent)<br />     (setq lst (nth i ent))<br />     (if (= 10 (car lst))<br />      (progn<br />       (setq x (cadr lst))<br />       (setq y (caddr lst)) <br />      )<br />     )<br />    (print (strcat "顶点坐标为：" (rtos x) (rtos y)))<br />    (setq i (1+ i))<br />   )<br /> )

代码如上，ent为多段线的组码表，然后进行循环提取坐标,现在有个问题就是：如果循环完成后，我还想要在最后面输出第一次循环得到的X，Y坐标，不知道怎么做，用assoc不行，坐标和第一次提取的对不上！

陨落

把所有的坐标都做成一个表吧，循环一次打印一次意义不大啊

陨落

而且代码貌似完全不对……

ZZXXQQ

2. (defun c:tt()
   
3. (if (and (setq s1 (entsel "\n选择复线: "))
   
4.             (setq ent (entget(car s1)))
   
5.             (= (cdr(assoc 0 ent)) "LWPOLYLINE")) (progn
   
6.   (setq i 0 plst (list))
   
7.   (foreach x ent (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
   
8.   (setq plst (reverse plst))
   
9.   (print (strcat "顶点坐标为：" (rtos (caar plst)) (rtos (cadar plst))))
   
10. ))
    
11. (princ)
    
12. )
    

(defun c:tt()<br /> (if (and (setq s1 (entsel "\n选择复线: "))<br />             (setq ent (entget(car s1)))<br />             (= (cdr(assoc 0 ent)) "LWPOLYLINE")) (progn<br />   (setq i 0 plst (list))<br />   (foreach x ent (if (= (car x) 10) (setq plst (cons (cdr x) plst))))<br />   (setq plst (reverse plst))<br />   (print (strcat "顶点坐标为：" (rtos (caar plst)) (rtos (cadar plst))))<br /> ))<br /> (princ)<br /> )<br />

ll_j

使用vl-remove-if-not函数从实体表中提取出点表，然后再进行其它操作。

312735894

ZZXXQQ 发表于 2013-12-30 08:17

哦哦 ，我明白了，原来就是将所有的顶点做成一个表，单独来提取，谢谢Z版！！！

312735894

ll_j 发表于 2013-12-30 09:18
使用vl-remove-if-not函数从实体表中提取出点表，然后再进行其它操作。

谢谢老大给的思路，前段时间刚看了您发的帖子，函数赋值与定义，对我帮助太大了，谢谢！

312735894

前面给弄错了，其实用assoc也是可以的，可以提取到第一次的坐标的，不过Z版的更好，想提取哪个就提取哪个！