获得空组列表

Lisphk

1. ;;; Purpose:       Get groups containing 1 or zero objects.
   
2. ;;; Arguments:     groupObjectList - list of group objects
   
3. ;;; Return value:  List of group objects or nil.
   
4. (defun _GetRedundantGroups (groupObjectList)
   
5.   (vl-remove-if
   
6.     '(lambda (a) (> (vla-get-count a) 1))
   
7.     groupObjectList
   
8.   )
   
9. )
   

;;; Purpose:       Get groups containing 1 or zero objects.<br /> ;;; Arguments:     groupObjectList - list of group objects<br /> ;;; Return value:  List of group objects or nil.<br /> (defun _GetRedundantGroups (groupObjectList)<br />   (vl-remove-if<br />     '(lambda (a) (> (vla-get-count a) 1))<br />     groupObjectList<br />   )<br /> )<br />