从e1后面新建对像的对像集

xshrimp

2. (defun gps->entlastent ( ent / ss e1)
3. (if ent
4.     (setq ent (entnext ent));setq
5.     (setq ent (entnext));setq
6. );if
7. (setq ss (ssadd))
8. (while ent
9. (setq e1 (entget ent));setq
10. (if (and (not (equal "VERTEX" (cdr (assoc 0 e1))
11.          )    );not equal
12.          (not (equal "SEQEND" (cdr (assoc 0 e1))
13.          )    );not equal
14.     );and
15.     (setq ss (ssadd ent ss));setq
16. );if
17. (setq ent (entnext ent));setq
18. );while
19. ss
20. )

(defun gps->entlastent ( ent / ss e1) (if ent     (setq ent (entnext ent));setq     (setq ent (entnext));setq );if (setq ss (ssadd)) (while ent (setq e1 (entget ent));setq (if (and (not (equal "VERTEX" (cdr (assoc 0 e1))          )    );not equal          (not (equal "SEQEND" (cdr (assoc 0 e1))          )    );not equal     );and     (setq ss (ssadd ent ss));setq );if (setq ent (entnext ent));setq );while ss )