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

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

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 :-)

copy


;;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)
                                         )
                                     )
                       )
       )
   )