获得列表内指定索引范围内的列表，求优化

xinxirong

2. ;提取表         表 开始 结束索引值
   
3. ;例:(setq a '(1 2 3 4 5 6 7 8 9))
   
4. ;用法:(tiqulst a 3 6)
   
5. ;当一个表是一个1M以上的文件的字符串，vl-string->list后就会很慢，半个小时都有
   
6. (defun tiqulst (lst sta end / newpl num)
   
7.   (if (< end (+ (length lst) 1))
   
8.     (progn
   
9.       (setq t1 (getvar "CDATE"));记录开始时间
   
10.       (setq newpl '())
    
11.       (repeat (- end sta)
    
12.   (setq num (list (nth sta lst)))
    
13.   (setq newpl (append  newpl num))
    
14.   (setq sta (1+ sta))
    
15.   )
    
16.       )
    
17.     ;else
    
18.     (alert "tiqulst中end大于lst的长度")
    
19.     )
    
20.   (setq t2 (* (- (getvar "CDATE") t1) 1e6));秒
    
21.   (princ "\ntiqulst用时")
    
22.   (princ t2)
    
23.   newpl
    
24.   )

;提取表         表 开始 结束索引值<br /> ;例:(setq a '(1 2 3 4 5 6 7 8 9))<br /> ;用法:(tiqulst a 3 6)<br /> ;当一个表是一个1M以上的文件的字符串，vl-string->list后就会很慢，半个小时都有<br /> (defun tiqulst (lst sta end / newpl num)<br />   (if (< end (+ (length lst) 1))<br />     (progn<br />       (setq t1 (getvar "CDATE"));记录开始时间<br />       (setq newpl '())<br />       (repeat (- end sta)<br />   (setq num (list (nth sta lst)))<br />   (setq newpl (append  newpl num))<br />   (setq sta (1+ sta))<br />   )<br />       )<br />     ;else<br />     (alert "tiqulst中end大于lst的长度")<br />     )<br />   (setq t2 (* (- (getvar "CDATE") t1) 1e6));秒<br />   (princ "\ntiqulst用时")<br />   (princ t2)<br />   newpl<br />   )

说白了，就是substr，但转成string之后会丢数据。如果是C语言就简单得多，1秒都不用。

llsheng_73

1. (defun tt (lst sta end / newpl num)
   
2.   (setq t1 (getvar "CDATE"));记录开始时间
   
3.   (repeat(-(min end(length lst))(setq sta(max 0 sta)))
   
4.     (setq newpl(cons(nth sta lst)newpl)
   
5.           sta(1+ sta)))
   
6.   (princ "\ntt用时")
   
7.   (princ (* (- (getvar "CDATE") t1) 1e6))
   
8.   (reverse newpl))

(defun tt (lst sta end / newpl num)<br />   (setq t1 (getvar "CDATE"));记录开始时间<br />   (repeat(-(min end(length lst))(setq sta(max 0 sta)))<br />     (setq newpl(cons(nth sta lst)newpl)<br />           sta(1+ sta)))<br />   (princ "\ntt用时")<br />   (princ (* (- (getvar "CDATE") t1) 1e6))<br />   (reverse newpl))

好象没什么可优化的，差不多就只能这样了

xinxirong

我用arx写的，1M的列表瞬间提取。
static int ads_subList(void)
{
//函数的参数 ((1 2 3 4 ..) start end)
struct resbuf *pArgs =acedGetArgs () ;
struct resbuf *ret;
//SHORT *buf =new SHORT[1048576];//最大1M
int count=0;
pArgs=pArgs->rbnext;
pArgs=pArgs->rbnext;//跳过RTLE
int start=pArgs->resval.rlong;
pArgs=pArgs->rbnext;
int end=pArgs->resval.rlong;
pArgs =acedGetArgs()->rbnext ;
int i=0;
while(i<start && pArgs->restype==RTSHORT)
{
pArgs=pArgs->rbnext;
i++;
}
ret=pArgs;
i=1;
while(i<end-start && pArgs->rbnext->restype==RTSHORT)
{
pArgs=pArgs->rbnext;
i++;
}
pArgs->rbnext=NULL;
return acedRetList(ret);
acutRelRb(ret);
}