如何创建多段线顶点数目对应表

gcho

想达到的目的：依次选择第一条多段线（顶点数为5）、第二条多段线（顶点数为6）……
              输出：（1  5）（2  6）……
下面的代码中第10行改怎么写？

1. 
   
2. (defun c:tt (/ i ss ename elist e f ff)
   
3. (setq i 1)
   
4.    (while  
   
5.     (setq ss (entsel (strcat "\n请选取第" (rtos i 2 0) "条多段线:")));选择第i条多段线
   
6.     (setq ename (car ss))               
   
7.      (setq elist (entget ename))
   
8.     (setq e (cdr (assoc 90 elist)));获取第i条多段线的顶点个数
   
9.     (setq f (list i e) )           ;构造成：(第i条多段线 顶点个数)表
   
10.     (setq ff  ? ?  ?  )          ;组合成：(第1条多段线 顶点个数)(第2条多段线 顶点个数)……表
    
11.     (setq i (1+ i))
    
12.     )
    
13. (princ  ff)
    
14. )
    

<br /> (defun c:tt (/ i ss ename elist e f ff) <br /> (setq i 1) <br />    (while  <br />     (setq ss (entsel (strcat "\n请选取第" (rtos i 2 0) "条多段线:")));选择第i条多段线<br />     (setq ename (car ss))               <br />      (setq elist (entget ename))<br />     (setq e (cdr (assoc 90 elist)));获取第i条多段线的顶点个数<br />     (setq f (list i e) )           ;构造成：(第i条多段线 顶点个数)表<br />     (setq ff  ? ?  ?  )          ;组合成：(第1条多段线 顶点个数)(第2条多段线 顶点个数)……表<br />     (setq i (1+ i))<br />     )<br /> (princ  ff)<br /> )<br />

byghbcx

(setq ff  (cons f ff)), 最后用(setq ff (reverse ff))
或(setq ff (append ff (list f)))