[编程申请]：点选删除同名的图块为R14的

露水2

在网上搜索了一圈到是找了几个但是都不能在R14上使用，
点击一个块然后同名的块都删除了，先谢谢。

zxq0220

程序
[php]
(DEFUN C:DELSABK ()
(SETVAR "CMDECHO" 0)
(IF (SETQ ENS (ENTSEL "\nSelect a Block : ")) (PROGN
  (SETQ ENT (ENTGET (CAR ENS)))
  (IF (SETQ SS (SSGET "X" (LIST (ASSOC 0 ENT) (ASSOC 2 ENT)))) (PROGN
   (SETQ SS (SSDEL (CAR ENS) SS))
   (COMMAND "ERASE" SS "")
  ))
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq        s1 (entsel "选择要删除的图块 : ")
   
4.         et (cdr (assoc 0 (entget (car s1))))
   
5.   )
   
6.   (if (= et "INSERT")
   
7.     (progn
   
8.       (setq Bn (cdr (assoc 2 (entget (car s1))))
   
9.             ss (ssget "X" (list (cons 0 "INSERT") (cons 2 bn)))
   
10.             sl (sslength ss)
    
11.       )
    
12.       (command "erase" ss "")
    
13.       (princ "\n共删除同名图块 ")
    
14.       (princ sl)
    
15.       (princ " 个!")
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        s1 (entsel "选择要删除的图块 : ")<br />         et (cdr (assoc 0 (entget (car s1))))<br />   )<br />   (if (= et "INSERT")<br />     (progn<br />       (setq Bn (cdr (assoc 2 (entget (car s1))))<br />             ss (ssget "X" (list (cons 0 "INSERT") (cons 2 bn)))<br />             sl (sslength ss)<br />       )<br />       (command "erase" ss "")<br />       (princ "\n共删除同名图块 ")<br />       (princ sl)<br />       (princ " 个!")<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

coolzhb

最初由 露水2 发布
[B]在网上搜索了一圈到是找了几个但是都不能在R14上使用，
点击一个块然后同名的块都删除了，先谢谢。 [/B]

类似这种问题，我推荐您使用akwai的选择易，一般都可以解决！
实际上就是选择集的问题！

露水2

哈哈，一觉醒来问题解决了，那叫一个兴奋，太谢谢你们了。我测试了一下，二楼的和三楼的区别是，zxq0220兄的那个：点选那一个块保留，删除和他同名的块；斑竹的是：删除你点选的同名块包括你选择那个；coolzhb兄的akwai俺就不知道了。以共大家选用。