我也找到了
 - (defun ENT_FROM (e / ss sn)
- ;;;;返回自实体E之后生成的实体选择集;;;;Desgined by byghbcx
- (if (/= (type e) (quote ENAME))
- (alert "Parameter ERROR in ENT_FROM")
- )
- (setq ss (ssadd))
- (while e
- (setq e (entnext e))
- (if e
- (progn
- (setq sn (cdr (assoc 0 (entget e))))
- (if (not (member sn
- (quote
- ("ATTRIB" "VERTEX" "SEQEND")
- )
- )
- )
- (setq ss (ssadd e ss))
- )
- )
- )
- )
- ss
- )
|