求批量删除某图层上所有方框内的内容的LSP

yoyoho

感谢 诸位高手 分享程序!

nadaloveluna

琴剑江山_10184 发表于 2015-3-16 10:52

江山前辈，想在追问一下，如果遇到实体与外面的矩形框相交的时候，好像是没法删除的，我应该怎么处理这种情况呢？？？？

xyp1964

2. ;; tt(批量删除方框内含相交的内容) 2015-03-17
   
3. (defun c:tt ()
   
4.   (defun dxf (code s1) (cdr (assoc code (entget s1))))
   
5.   (setq ss (ssget '((0 . "lwpolyline")))
   
6.         i  -1
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (if  (and (= (dxf 70 s1) 1)
   
10.              (setq ptn (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget s1)))
    
11.              (setq ss1 (ssget "cp" (mapcar 'cdr ptn)))
    
12.         )
    
13.       (if (ssmemb s1 ss1)
    
14.         (command "erase" (ssdel s1 ss1) "")
    
15.         (command "erase" ss1 "")
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

;; tt(批量删除方框内含相交的内容) 2015-03-17<br /> (defun c:tt ()<br />   (defun dxf (code s1) (cdr (assoc code (entget s1))))<br />   (setq ss (ssget '((0 . "lwpolyline")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (if  (and (= (dxf 70 s1) 1)<br />              (setq ptn (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget s1)))<br />              (setq ss1 (ssget "cp" (mapcar 'cdr ptn)))<br />         )<br />       (if (ssmemb s1 ss1)<br />         (command "erase" (ssdel s1 ss1) "")<br />         (command "erase" ss1 "")<br />       )<br />     )<br />   )<br />   (princ)<br /> )

琴剑江山_10184

nadaloveluna 发表于 2015-3-17 11:41
江山前辈，想在追问一下，如果遇到实体与外面的矩形框相交的时候，好像是没法删除的，我应该怎么处理这种 ...

1. ;;;;琴剑江山 2015.3.16
   
2. (defun c:ta (/ GET GET2 I NN PLST)
   
3.   (setvar "cmdecho" 0)
   
4.   (princ "\n功能 [批量删除多段内所有对象]")
   
5.   (setq get (ssget (list '(0 . "LWPOLYLINE") (cons 8 "bend"))));删除"bend"层的，自行修改你的层
   
6.   (repeat (setq i (sslength get))
   
7.     (setq nn (ssname get (setq i (1- i))) plst nil)
   
8.     (foreach x (entget nn) (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
   
9.     (setq get2 (ssget "CP" plst ))
   
10.     (command "_.ERASE" get2 "R" nn "")
    
11.   )
    
12.   (setvar "cmdecho" 1)
    
13.   (princ)
    
14. )

;;;;琴剑江山 2015.3.16<br /> (defun c:ta (/ GET GET2 I NN PLST)<br />   (setvar "cmdecho" 0)<br />   (princ "\n功能 [批量删除多段内所有对象]")<br />   (setq get (ssget (list '(0 . "LWPOLYLINE") (cons 8 "bend"))));删除"bend"层的，自行修改你的层<br />   (repeat (setq i (sslength get))<br />     (setq nn (ssname get (setq i (1- i))) plst nil)<br />     (foreach x (entget nn) (if (= (car x) 10) (setq plst (cons (cdr x) plst))))<br />     (setq get2 (ssget "CP" plst ))<br />     (command "_.ERASE" get2 "R" nn "")<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )

不知道你说的是不是这个意思，方框里的对象，与方框相交了，里面的对删除不了

nadaloveluna

琴剑江山_10184 发表于 2015-3-17 22:38
不知道你说的是不是这个意思，方框里的对象，与方框相交了，里面的对删除不了

恩，是这个意思，再次感谢江山前辈抽时间回复这个问题，十分感谢！！谢谢您了。