[求助]：求某图层上最新生成的图元

yshf

各位高手，(entlasst)为求得整个图形中最新生成的图元名，那么在有若干图层的图形中，如何方便快速地求得某一图层上最新生成的图元名？

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (WHILE (NOT (setq s1 (entsel "\n选择图层实体: "))))
   
4.   (setq la (cdr (assoc 8 (entget (CAR s1)))))
   
5.   (if (setq ss (ssget "X" (list (cons 8 la))))
   
6.     (setq s1 (ssname ss 0))
   
7.   )
   
8.   (redraw s1 3)
   
9.   s1
   
10. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (WHILE (NOT (setq s1 (entsel "\n选择图层实体: "))))<br />   (setq la (cdr (assoc 8 (entget (CAR s1)))))<br />   (if (setq ss (ssget "X" (list (cons 8 la))))<br />     (setq s1 (ssname ss 0))<br />   )<br />   (redraw s1 3)<br />   s1<br /> )[/FONT]

ljpnb

2楼的程序不完全正确，再一个主题有点模糊，对于某一实体AA从层A变到层B，算不算层B最新产生的物体。

yshf

“最新生成的图元”是指图中没有的，新产生的。实体AA从层A变到层B，当然不算B层最新产生的物体。

雨箭风刀

选层实体，比较 图元名（16进制）

doubao

这得看autocad是否提供了相应机制