[求助]：请教一个难题，高手才懂！！！

morecs · 发表于 2003-9-25 10:21:22

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

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

×

(setq ss (ssget '((0 . "LINE"))))
(setq nn 0)
(repeat (sslength ss)
(setq l1 (ssname ss nn))
上面循环到某个l1时，假设nn=7
(ssdel l1 ss)消除第8条直线
(setq nn (1+ nn))这时会不会跳到第10条直线去？
谢谢！！！

lsjjm · 发表于 2003-9-25 13:33:10

你到底想达到什么目的?
如果你要消除第8条直线:(只是从SS中剃除, 而不是真正的抹掉)
(setq ss (ssget '((0 . "LINE"))))
(ssdel (ssname ss 7) ss)即可.
不会跳到第10条直线去
ssdel 在SS的内部循环中是不起作用的.

morecs · 发表于 2003-9-25 16:30:45

谢谢！！！
如果(setq l1 (ssname ss nn))
改为(command "erase" l1 "")
结果会怎样？
因为有些直线不符合条件要消除，担心循环会有变化

前生 · 发表于 2003-9-25 16:33:31

(entdel ll)
可以删除

lsjjm · 发表于 2003-9-25 18:16:37

最初由 morecs 发布
[B]谢谢！！！
如果(setq l1 (ssname ss nn))
改为(command "erase" l1 "")
结果会怎样？
因为有些直线不符合条件要消除，担心循环会有变化 [/B]

当然可以消除了, 你可以试试嘛! 最好在循环体外执行.

morecs · 发表于 2003-9-25 18:28:51

必须在循环内消除，有办法吗？
消除后会引起循环的异变吗？

cy956 · 发表于 2003-9-26 22:00:02

担心循环异变你就用while来循环。

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

[求助] [求助]：请教一个难题，高手才懂！！！

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

相关帖子

浏览过的版块