z394326635 发表于 2009-8-27 11:38:00

xshrimp 发表于 2009-8-27 11:44:00

(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
)

z394326635 发表于 2009-8-28 11:37:00

liminnet 发表于 2009-8-28 17:42:00

页: [1]
查看完整版本: 从e1后面新建对像的对像集