把此贴删除

zyhandw

(vl-remove-if-not n_lst (mapcar 'cadr (ssnamex s_lst)))这句好像用法不对，可参考下vl-remove-if-not函数说明

ZZXXQQ

2. (defun c:cc ();删除多边形外图元
   
3. (setq en (entsel))
   
4. (setq ss1 (ssget '((0 . "*line") (8 . "beam,edote"))))
   
5. (setq ent (entget(car en)))
   
6. (if (and
   
7.        (= (cdr(assoc 0 ent)) "LWPOLYLINE")
   
8.        (= (cdr(assoc 70 ent)) 1)
   
9.       ) (progn
   
10.   (setq pts '())
    
11.   (foreach x ent (if (= (car x) 10)(setq pts (cons (cdr x) pts))))
    
12.   (reverse pts)
    
13.   (setq pts (mapcar '(lambda (x) (trans x 0 1)) pts))
    
14. ;  (ucs)
    
15.   (setq ss2 (ssget "WP" pts '((0 . "*line") (8 . "beam,edote"))))
    
16. ))
    
17. (command "erase" ss1 "R" ss2 "")
    
18. (princ)
    
19. )
    

(defun c:cc ();删除多边形外图元<br /> (setq en (entsel))<br /> (setq ss1 (ssget '((0 . "*line") (8 . "beam,edote"))))<br /> (setq ent (entget(car en)))<br /> (if (and<br />        (= (cdr(assoc 0 ent)) "LWPOLYLINE")<br />        (= (cdr(assoc 70 ent)) 1)<br />       ) (progn<br />   (setq pts '())<br />   (foreach x ent (if (= (car x) 10)(setq pts (cons (cdr x) pts))))<br />   (reverse pts)<br />   (setq pts (mapcar '(lambda (x) (trans x 0 1)) pts))<br /> ;  (ucs)<br />   (setq ss2 (ssget "WP" pts '((0 . "*line") (8 . "beam,edote"))))<br /> ))<br /> (command "erase" ss1 "R" ss2 "")<br /> (princ)<br /> )<br />

zyhandw

500w008 发表于 2013-7-6 01:44
(defun c:cc ();删除多边形外图元
(setq ent (entsel))
(setq ss1 (ssget '((0 . "*line") (8 . "bea ...

Z版主给出了答案，对照自己的程序看看吧

zyhandw

那你想要达到什么样的效果?