关于循环处理选择集的代码，你注意到区别了吗？

Lispboy · 发表于 2013-5-19 16:44:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[pcode=lisp,true]
(setq ss (ssget))
(setq i 0)
(while (setq e (ssname ss i))
....
(setq i (1+ i))
)
[/pcode]

另外一个：

[pcode=lisp,true]
(setq ss (ssget))
(setq i 0 len (sslength ss))
(repeat len
(setq e (ssanme ss i))
....
(setq i (1+ i))
)
[/pcode]

你一般怎么写呢？注意到这两段代码什么本质的区别了吗？

wowan1314 · 发表于 2013-5-19 16:47:35

我都是尽量第一种，少打点代码。

炫翔 · 发表于 2013-5-19 16:52:04

一般用第一种，貌似速度快些

zhang8755 · 发表于 2013-5-19 16:52:37

第二种应该速度快些，少了循环判断。

viphappy · 发表于 2013-5-19 16:53:07

不是太清楚，第一种是乎有个判断，第二种没有

Lispboy · 发表于 2013-5-19 16:57:05

大家画个几万条线，然后分别运行下，看看时间差多少？

Free-Lancer · 发表于 2013-5-19 17:13:16

略有区别,但以现在的硬件可以忽略

(defun getutime ()
(* 86400 (getvar "tdusrtimer"))
)
(defun c:t1 (/ t0 l)
(setq t0 (getutime))
(repeat 100000
(setq l (cons 1 l))
)
(princ (- (getutime) t0))
(princ)
)
(defun c:t2 (/ t0 l)
(repeat 100000
(setq l (cons 1 l))
)
(setq t0 (getutime))
(while l
(setq l (cdr l))
)
(princ (- (getutime) t0))
(princ)
)
(defun c:t3 (/ t0 l)
(repeat 100000
(setq l (cons 1 l))
)
(setq t0 (getutime))
(repeat 100000
(setq l (cdr l))
)
(princ (- (getutime) t0))
(princ)
)

wowan1314 · 发表于 2013-5-19 17:38:03

主要是觉的第一种想停就加个判断就能停止循环。

而第二种不晓得怎么能停下来

炫翔 · 发表于 2013-5-19 18:04:31

wowan1314 发表于 2013-5-19 17:38
主要是觉的第一种想停就加个判断就能停止循环。

而第二种不晓得怎么能停下来

第二种，可以判断 i 的值，
当循环到第 i 次的时候，停下来

炫翔 · 发表于 2013-5-19 18:17:02

wowan1314 发表于 2013-5-19 16:47
我都是尽量第一种，少打点代码。

举例如下:

(setq ss (ssget))
(setq i 0 len (sslength ss))
(repeat len
(setq e (ssanme ss i))
....
(IF (= i 10) (QUIT))
(setq i (1+ i))
)

账号		自动登录	找回密码
密码			立即注册

[研讨] 关于循环处理选择集的代码，你注意到区别了吗？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评