[LISP程序]：如何构造一个选择集？

urljit

最重要的是，“绘图前先标记 (setq lastobj (entlast) )
绘图完后用 (while (setq lastobj (entnext lastobj)) (ssadd lastobj ss))
ss 就是你要的选集 ”可能导致运行速度减慢，而且，图形越大越明显。

eachy

最初由 urljit 发布
[B]楼上的朋友：由于你使用了ssget，所以自然而然的选择集就是“p”的了。我的意思是多个(ssadd(entlast))构成的选择集如何变为“P”的。 [/B]

把你的程序最后写成返回选择集。关于实体标记的程序以前讨论过还可以利用实体ID，标记时记录 entlast 实体 ID ，提取时获取 entlast ID ，两者求差差值，就是可能的最大实体数，然后用ObjectIDToObject获取实体，当然可能中间有删除的。ActiveX中不提倡用ObjectID（这是ARX方法），建议用句柄，句柄是16进制，本论坛有转换函数

2. (defun c:xxx()
   
3. .....
   
4. (setq ss (ssadd))
   
5. .....
   
6. (setq ss (ssadd (entlast) ss)
   
7. .....
   
8. ss
   
9. (princ)
   
10. )

(defun c:xxx()<br /> .....<br /> (setq ss (ssadd))<br /> .....<br /> (setq ss (ssadd (entlast) ss)<br /> .....<br /> ss<br /> (princ)<br /> )

urljit

eachy斑竹:我已经建立选择集了,问题的关键在于如何实现select objects时用"p"能够选择到已经建立的选择集.