(defun c:fs_clsgrp (/ i)
  (setq i 0)
  (vlax-for g (vla-get-Groups *doc*)
    (cond ((<= (vla-get-count g) 1)
	   (princ (strcat "\n清理组：" (vla-get-name g)))
	   (vla-Delete g)
	   (setq i (1+ i))
	  )
    )
  )
  (princ "\n*****程序运行完成,本次共清理了<")
  (princ i)
  (princ ">个无用组*****")
  (princ)
)