[LISP]求一LISP选择集程式或函数。(已搞掂)

lisell

求一LISP选择集程式或函数。
在做一个LISP外挂过程中遇到一个麻烦事
由于水平有限在LISP中创建一个组GROUP或块，如果用(SSADD SELOBJ (ENTLAST))方式添加选择集,是要在每一个图元创建后加上这一句,太过麻烦,如果在子函数中创建的图元加入选择集更麻烦。
有没有一个方便的程式或函数可以在创建图元时先做个选择集收集记号，到图元完成后再做个选择集结束记号，在记号之间创建的图元全在一个选择集中。
有没有这个程式或函数啊，这可是常用的函数啊。生成的图元都在一个组和块中方便SELECT，EDIT，COPY，MOVE，ERASE。好多外挂都这样做了，只是加了密找不到相关的原码。

(已搞掂)