[LISP函数]：一次删除所有不要的同名块

glyxmj · 发表于 2005-10-21 23:00:02

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

选取图中的一个块，即可删除图中所有与该块相同的块，
达到快速删除目的，不用一个个的删除.
(defun c:db(/ ss lsl id entd name ssi)
  (setq ss(ssget ))
  (setq lsl(sslength ss))
  (setq id 0 )
  (repeat lsl
(setq entd (ENTGET(ssname ss id)))
(if (= (cdr (assoc 0 entd)) "INSERT")
      (PROGN (SETQ NAME (CDR (ASSOC 2 ENTD)))
            (SETQ SSI(SSGET "X" (LIST (CONS 0 "INSERT") (CONS 2 NAME))))
         (COMMAND "ERASE" SSI ""))
   )
(SETQ ID (1+ ID))
)
  (setq lsl nil)
)
怎么没人回复！请发表一个使用感受？？

NET-JOB · 发表于 2006-4-1 16:27:08

删除块的好工具，楼主能否增加只删除选中区域内的的块呢

xyp1964 · 发表于 2006-4-1 17:14:33

[FONT=courier new](defun c:db ()
(while (not (setq s1 (car (entsel "\n选图块: ")))))
(if (= (cdr (assoc 0 (entget s1))) "INSERT")
(progn
(setq bn (cdr (assoc 2 (entget s1)))
ss (ssget (list (cons 0 "INSERT") (cons 2 bn)))
ss (ssadd s1 ss)
ss (ssdel s1 ss)
)
(if ss
(progn
(setq n (sslength ss))
(command "erase" ss "")
(princ "\n删除< ")
(princ n)
(princ " >个< ")
(princ bn)
(princ " >同名图块!")
)
)
)
(princ "\n所选非图块! ")
)
(princ)
)[/FONT]

NET-JOB · 发表于 2006-4-6 00:32:08

谢谢xyp1964斑竹的程序。程序试用了，可以删除被框选的块，但是如果第一次选者的图块是在框选的范围中的话，在程序删除其它块的同时会自动过滤第一次选择的图块。

xyp1964 · 发表于 2006-4-6 08:08:04

最初由 NET-JOB 发布
[B]谢谢xyp1964斑竹的程序。程序试用了，可以删除被框选的块，但是如果第一次选者的图块是在框选的范围中的话，在程序删除其它块的同时会自动过滤第一次选择的图块。 [/B]

目的就是要保留第一次所选的块，否则框选为全图就会一个不留全部删除了。

NET-JOB · 发表于 2006-4-6 21:08:14

可是我一般在第一次选择删除块名时就在后面的选择范围内的，因为这样比较直观，选择块之后，再选择包括该图块的删除范围，一删了事，这样就不用再次选择删除了

hbhu · 发表于 2006-4-6 21:24:26

可不可以做出删除一层的东西的啊。

账号		自动登录	找回密码
密码			立即注册

[LISP函数]：一次删除所有不要的同名块

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子