反向删除

/db_自贡黄明儒_

老程序了

(defun c:blst(/ s1 s2 s3 n ent)
   (princ "\n选取需保留的实体:")
   (setq s1 (ssget) s2 (ssget "X"))
   (if (not s1) (command "erase" s2 "")
     (progn
        (setq s3 (ssadd) n 0)
        (repeat (sslength s2)
           (setq ent (ssname s2 n))
           (if (not (ssmemb ent s1))
              (ssadd ent s3)
           )
           (setq n (1+ n))
        )
        (command "erase" s3 "" "redraw")
     )
  )
  (redraw)
  (princ) 
)

Lisphk

黄总，是不是 先 X 后 R 更方便些？

1. (defun c:blst (/ s1 s2 s3 n ent)
   
2.   (princ "\n选取需保留的实体:")
   
3.   (setq oldcmd (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 0)
   
5.   (if (setq s1 (ssget))
   
6.     (command ".erase" (ssget "x") "r" s1 "")
   
7.   )
   
8.   (setvar "cmecho" oldcmd)
   
9.   (redraw)
   
10.   (princ)
    
11. )
    
12. 
    

(defun c:blst (/ s1 s2 s3 n ent)<br />   (princ "\n选取需保留的实体:")<br />   (setq oldcmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (if (setq s1 (ssget))<br />     (command ".erase" (ssget "x") "r" s1 "")<br />   )<br />   (setvar "cmecho" oldcmd)<br />   (redraw)<br />   (princ)<br /> )<br /> <br />

wowan1314

好像这样也可以
(defun c:t11 (/ ss)
    (setq ss (ssget))
    (command "select" "all" "R" ss "")
    (command "erase" "P" "")
)

Lisphk

wowan1314 发表于 2017-5-26 14:49

条条大路通罗马啊，异曲同工。

kqqt6236

妙，实在是妙。

ysq101

为什么删除都要用COMMAND？

为什么不直接删除实体？？

spacevalue