ssget选集数量限值问题?

87282374

请教各位，如何选定ssget选集内实体的数量？大于设定数量提示并退出命令，小于等于设定数量执行下一步！

start4444

(if (> 5 (sslength (ssget))) (alert "下一步") (alert "太多了"))

和尚777

(defun hs-ssn(ss n)
        (if(and ss n (=(type ss)'pickset)(=(type n)'int))
                (if(>=(sslength ss)n)(progn(princ "\n选择数量太多")(vl-exit-with-value 0))ss)
        )
)
(setq ss(hs-ssn (ssget)10))

87282374

谢谢两位！@start4444，@和尚777

谢雷锋

太多了