CAD2004总发生超出最大选择集的问题，请问如何解决!

0451doctor · 发表于 2004-9-25 18:37:00

meflying · 发表于 2004-9-25 19:45:00

释放一些没用的选择集

0451doctor · 发表于 2004-10-7 13:09:00

如何释放！

meflying · 发表于 2004-10-7 13:31:00

(setq ss nil)

龙龙仔 · 发表于 2004-10-7 15:39:00

0451doctor发表于2004-9-25 18:37:00回复：（0451doctor）CAD2004总发生超出最大选择集的问题，请问如何解决! CAD2004总发生超出最大选择集的问题，请问如何解决!

甚么程序用那么多选择集??你的程序思路可能有问题!

alin · 发表于 2004-10-7 15:49:00

When does it happen? Were you runing one of your own routines? Is that possible you made a mistake in your codes and it creates selection sets in a loop?The following codes can kill all selection sets in current drawing and also tell how many of them have been killed :-)

;;Provided by Puckett, Michael
(defun kill-all-ss ()
(length
(mapcar '(lambda (x) (set x nil))
(apply 'append
(mapcar
'(lambda (x)
(if (eq 'pickset (type (eval x)))
(list x)))
(atoms-family 0)
)
)
)
)
)

0451doctor · 发表于 2004-10-8 09:32:00

谢谢你了！

0451doctor · 发表于 2004-10-8 09:37:00

我正在检查我的程序，有5000多行，太多了，有好多函数，不知道什么地方出问题了！我是用了好多选择集，但不可能超过128个，而且也在不断给它们付空值，就是找不出问题来！

龙龙仔 · 发表于 2004-10-8 10:26:00

5000行?甚么大程序!!几百行就不想写了!

0451doctor · 发表于 2004-10-10 12:31:00

(setq a (ssget "x") a 0.0)

这时a最初的选择集是否变为空！

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