我也来个测试，Vlax-curve 部分函数

eachy

1. (defun c:t1 (/ ss l)
   
2.   (setq l 0.)
   
3.   (if (ssget)
   
4.     (progn
   
5.       (vl-cmdf ".time" "r" "on" "d" "")
   
6.       (vlax-map-collection
   
7.         (vla-get-activeselectionset
   
8.           (vla-get-activedocument (vlax-get-acad-object))
   
9.         )
   
10.         '(lambda (x)
    
11.            (setq l
    
12.                   (+ (vlax-curve-getdistatparam x (vlax-curve-getendparam x))
    
13.                      l
    
14.                   )
    
15.            )
    
16.          )
    
17.       )
    
18.       (command ".time" "off" "d" "")
    
19.     )
    
20.   )
    
21.   l
    
22. )
    
23. (defun c:t2 (/ ss l)
    
24.   (setq l 0.)
    
25.   (if (ssget)
    
26.     (progn
    
27.       (vl-cmdf ".time" "r" "on" "d" "")
    
28.       (vlax-for        x
    
29.                   (vla-get-activeselectionset
    
30.                     (vla-get-activedocument (vlax-get-acad-object))
    
31.                   )
    
32. 
    
33.         (setq l
    
34.                (+ (vlax-curve-getdistatparam x (vlax-curve-getendparam x))
    
35.                   l
    
36.                )
    
37.         )
    
38.       )
    
39.       (command ".time" "off" "d" "")
    
40.     )
    
41.   )
    
42.   l
    
43. )
    
44. (defun c:t3 (/ ss e l)
    
45.   (if (setq ss (ssget))
    
46.     (progn
    
47.       (setq ssl (sslength ss)
    
48.             l 0.)
    
49.       (vl-cmdf ".time" "r" "on" "d" "")
    
50.       (while (> ssl 0)
    
51.         (setq e        (ssname ss (setq ssl (1- ssl)))
    
52.               l        (+ (vlax-curve-getdistatparam e (vlax-curve-getendparam e))
    
53.                    l
    
54.                 )
    
55.         )
    
56.       )
    
57.       (command ".time" "off" "d" "")
    
58.     )
    
59.   )
    
60.   l
    
61. )

(defun c:t1 (/ ss l)<br />   (setq l 0.)<br />   (if (ssget)<br />     (progn<br />       (vl-cmdf ".time" "r" "on" "d" "")<br />       (vlax-map-collection<br />         (vla-get-activeselectionset<br />           (vla-get-activedocument (vlax-get-acad-object))<br />         )<br />         '(lambda (x)<br />            (setq l<br />                   (+ (vlax-curve-getdistatparam x (vlax-curve-getendparam x))<br />                      l<br />                   )<br />            )<br />          )<br />       )<br />       (command ".time" "off" "d" "")<br />     )<br />   )<br />   l<br /> )<br /> (defun c:t2 (/ ss l)<br />   (setq l 0.)<br />   (if (ssget)<br />     (progn<br />       (vl-cmdf ".time" "r" "on" "d" "")<br />       (vlax-for        x<br />                   (vla-get-activeselectionset<br />                     (vla-get-activedocument (vlax-get-acad-object))<br />                   )<br /> <br />         (setq l<br />                (+ (vlax-curve-getdistatparam x (vlax-curve-getendparam x))<br />                   l<br />                )<br />         )<br />       )<br />       (command ".time" "off" "d" "")<br />     )<br />   )<br />   l<br /> )<br /> (defun c:t3 (/ ss e l)<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq ssl (sslength ss)<br />             l 0.)<br />       (vl-cmdf ".time" "r" "on" "d" "")<br />       (while (> ssl 0)<br />         (setq e        (ssname ss (setq ssl (1- ssl)))<br />               l        (+ (vlax-curve-getdistatparam e (vlax-curve-getendparam e))<br />                    l<br />                 )<br />         )<br />       )<br />       (command ".time" "off" "d" "")<br />     )<br />   )<br />   l<br /> )

运行效果

1. 
   
2. 命令: t1
   
3. 选择对象: 指定对角点: 找到 20000 个
   
4. 
   
5. 选择对象:
   
6. 
   
7.   消耗时间计时器 (关):    0 天 00:00:02.031
   
8. 
   
9. 命令: t2
   
10. 选择对象: 指定对角点: 找到 20000 个
    
11. 
    
12. 
    
13.   消耗时间计时器 (关):    0 天 00:00:02.109
    
14. 
    
15. 命令: t3
    
16. 选择对象: 指定对角点: 找到 20000 个
    
17. 
    
18. 选择对象:
    
19. 
    
20.   消耗时间计时器 (关):    0 天 00:00:00.250
    
21. 
    
22. 340355.0

复制代码

playboy

斑竹能解释一下这个有什么用吗

eachy

最初由 playboy 发布
[B]斑竹能解释一下这个有什么用吗 [/B]

你说速度快的好用还是慢的好用？
再看一个用转换的，vlax-ename->vla-object  很耗时的

2. 
   
3. (defun c:t4 (/ ss e l obj)
   
4.   (if (setq ss (ssget))
   
5.     (progn
   
6.       (setq ssl (sslength ss)
   
7.             l 0.)
   
8.       (vl-cmdf ".time" "r" "on" "d" "")
   
9.       (while (> ssl 0)
   
10.         (setq e        (ssname ss (setq ssl (1- ssl)))
    
11.               obj (vlax-ename->vla-object e)
    
12.               l        (+ (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))
    
13.                    l
    
14.                 )
    
15.         )
    
16.       )
    
17.       (command ".time" "off" "d" "")
    
18.     )
    
19.   )
    
20.   l
    
21. )

<br /> (defun c:t4 (/ ss e l obj)<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq ssl (sslength ss)<br />             l 0.)<br />       (vl-cmdf ".time" "r" "on" "d" "")<br />       (while (> ssl 0)<br />         (setq e        (ssname ss (setq ssl (1- ssl)))<br />               obj (vlax-ename->vla-object e)<br />               l        (+ (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))<br />                    l<br />                 )<br />         )<br />       )<br />       (command ".time" "off" "d" "")<br />     )<br />   )<br />   l<br /> )

运行结果

1. 
   
2. 命令: t4
   
3. 选择对象: 指定对角点: 找到 20000 个
   
4. 
   
5. 选择对象:
   
6. 
   
7.   消耗时间计时器 (关):    0 天 00:00:03.031
   
8. 
   
9. 340355.0

复制代码

陌生人

t3为什么用了那么少的时间？

aeo

vb方法就是慢。它放弃了直接用指针的方法，中间不知打了多少道弯。

ename其实就是个指针，sset也是，虽然用lisp过渡了一下，但用的还是arx方法.

陌生人

vla-get-activeselectionset 在有些测试的时候是比ssget －》ename快的，这里怎么变的这么慢？而且慢这么多？嗯，我试试看

我的测试：
命令: t1
选择对象: 指定对角点: 找到 4000 个
消耗时间计时器 (关):    0 天 00:00:00.766
命令: t2
选择对象: 指定对角点: 找到 4000 个
  消耗时间计时器 (关):    0 天 00:00:00.797
命令: t3
选择对象: 指定对角点: 找到 4000 个
  消耗时间计时器 (关):    0 天 00:00:00.469
命令: t4
选择对象: 指定对角点: 找到 4000 个
  消耗时间计时器 (关):    0 天 00:00:01.078

eachy

这也翻上来啊！那时的计算机不能和现在比，再写的话就是这样了

1. (defun c:t5 (/ ss sl e l i)
   
2.   (if (setq ss (ssget))
   
3.     (progn
   
4.       (setq sl (sslength ss)
   
5.       i  -1
   
6.       )
   
7.       (vl-cmdf ".time" "r" "on" "d" "")
   
8.       (repeat sl
   
9.   (setq e  (ssname ss (setq i (1+ i)))
   
10.         l  (+ (vlax-curve-getdistatparam e (vlax-curve-getendparam e))
    
11.        l
    
12.     )
    
13.   )
    
14.       )
    
15.       (command ".time" "off" "d" "")
    
16.     )
    
17.   )
    
18.   l
    
19. )

(defun c:t5 (/ ss sl e l i)<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq sl (sslength ss)<br />       i  -1<br />       )<br />       (vl-cmdf ".time" "r" "on" "d" "")<br />       (repeat sl<br />   (setq e  (ssname ss (setq i (1+ i)))<br />         l  (+ (vlax-curve-getdistatparam e (vlax-curve-getendparam e))<br />        l<br />     )<br />   )<br />       )<br />       (command ".time" "off" "d" "")<br />     )<br />   )<br />   l<br /> )