[LISP函数]：获取最后图元前指定数量的图元实体的选择集

lgwlgw

;;;获取在最后生成的图元实体前生成的指定数量的图元实体的选择集
;;;返回 “选择集名称”
;;;参数：N  选集里包含的图无数量
;;;例：（xl-get-endn-ss  8)
(defun xl-get-endn-ss (n / ss en elst i)
  (setq        ss   (ssadd)
        elst ()
  )
  (repeat n
    (setq en   (entlast)
          ss   (ssadd en ss)
          elst (cons en elst)
    )
    (entdel en)
  )
  (setq i 0)
  (repeat (length elst)
    (entdel (nth i elst))
    (setq i (1+ i))
  )
  ss
)

zml84

1.这种先删除再恢复的做法不错，以退为进的思想值得学习。
但需要注意的是，应该对图档中图元实体的数目进行检查。

2.根据实体句柄来提取，也是一种实现途径。

3.感觉这个功能，一般较少用到，但还是要感谢楼主的热心奉献！

liqilin7288

非常好的思路，我在设计一个LISP时，想在退出前，将LISP画出的图形打成块，总没有找到合适的办法选择给定数目的对象，这个办法，终于让我实现了，谢谢！

kdst

插入的块行吗？

yoyoho

感谢楼主!
提供源码程序!

yjch

感谢楼主的思路

laibinwu

先删除再恢复，不错的思路。