[求助]：求一LISP选择集程式或函数。

lisell

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

fsxm

(defun newenss (en / ss tmp)
  (setq        tmp    en
        ss (ssadd)
  )
  (while (setq tmp (entnext tmp))
    (ssadd tmp ss)
  )
  ss
)
用这个只要给出一个图元
就可以得到图元之后生成的东东!

lisell

太好了，谢谢。你帮我解决了一个难题。