你删除2行代码，它就会工作。
- (while (car xss)
- (setq bb '()
- bb (cons (car xss) bb)
- ic (getxx (entget (car xss)))
- xss (cdr xss)
- yss xss)
- (while (car yss)
- (setq ent1 (car yss))
- ;;; xic (getxx (entget ent1)))
- ;;; (if (apply 'and (mapcar '(lambda(x y) (equal x y 1e-5)) xic ic))
- (setq bb (cons ent1 bb)
- xss (vl-remove ent1 xss))
- (setq yss (cdr yss)))
- (setq aa (cons bb aa))
- )
| 
