请教一个难题，大侠才懂！！！

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

(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条直线去？
谢谢！！！

meflying · 发表于 2003-9-25 12:50:00

为什么不自己试试呢？
不错，会，而且你的程序这样循环有问题，因为最后的nn可能会大于原来的(sslength ss)了

xazhji · 发表于 2003-9-25 15:27:00

我认为第一行好像就有问题。此处需要交互式选择，我认为应该给定最好。
其二，ssdel 好像只能把某个实体从选择集中去除，而非删除。
最后，才是循环的问题，你去除了实体，当然选择集的长度就变了， repeat 循环次数是变化的
，导致出错！

meflying · 发表于 2003-9-25 16:06:00

repeat循环次数是不变的，只是后来的nn会达到原来选择集内对象数目，而现在选择集已没有那么多对象，导致(ssname ss nn)出错。
看下面的程序，判断循环次数是否变化，选择4个以上对象
(defun c:test()
  (setq ss (ssget))
  (setq i 0)
  (repeat (sslength ss)
(if (> (sslength ss) 0)(ssdel (ssname ss 0) ss))
(if (> (sslength ss) 0)(ssdel (ssname ss 0) ss))
(setq i (1+ i))
  )
)