;;;选方框内所有对象 (defun C:ssrec (/ ss ent lst pt_lst pt) (princ \n★选择方框内所有对象★) ;;; (setq ss (ssget i ((0 . LWPOLYLINE)))) ;;; (if ( ss nil) ;;; (setq ss (ssget ((0 . LWPOLYLINE)))) ;;; ) (setq ss (ssget ((0 . LWPOLYLINE)))) (setq pt_lst nil) (if (/ ss nil) (progn (setq ent (entget (ssname ss 0))) (foreach lst ent (if ( (car lst) 10) (progn (setq pt (cdr lst)) (if ( (member pt pt_lst) nil) (setq pt_lst (cons pt pt_lst)) ) ) ) ) (sssetfirst nil nil) (sssetfirst nil (ssget CP pt_lst)) (command redraw) ) ) (princ) )