[求助]：如何删除块,有几百个同名称的块,一次性解决

zyt3xl · 发表于 2006-10-20 15:54:42

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

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

×

工程图中有几百个同名称的块,依次删除不现实,有没有好办法一次性解决如何删除块.

qrs · 发表于 2006-10-20 22:56:34

删除时，选择地物用过滤filter，输入块名就可以把同名块全删了

xshrimp · 发表于 2006-10-20 23:12:45

[php]
;删除与选中图块同名的图中所有的图块,处理建筑图时使用。
;图中的家具等无用的图块。
(defun c:delblk ( / blkname entlist entname i no selblk ss)
(princ "\n删除与选中图块同名的图中所有的图块")
(setq ss (ssget '((0 . "INSERT"))))
(setq no (sslength ss))
(setq i 0)
(while (< i no)
   (setq entname (ssname ss i))
   (setq entlist (entget entname)) ;属性列表
   (setq blkname (cdr (assoc 2 entlist)))
   (if blkname (setq selblk (ssget "X" (list(cons 2 blkname))))) ;选择图中块名为blkname的选择集
   (if selblk    (command ".erase" selblk "") )
   (setq i (+ 1 i))
  );end while
)
[/php]

xyp1964 · 发表于 2006-10-21 09:29:22

最初由 xshrimp 发布
[B]
;删除与选中图块同名的图中所有的图块,处理建筑图时使用。
;图中的家具等无用的图块。
(defun c:delblk ( / blkname entlist entname i no selblk ss)
(princ "\n删除与选中图块同名的图中所有的图块")
... [/B]

ss为空时(sslength ss)会出错，修改版：
[php]
;;删除图中与选中图块同名的所有图块
(defun c:test (/ ss i ss0 s1 bn ss1)
  (princ "\n删除与选中图块同名的图中所有的图块")
  (if (setq ss (ssget '((0 . "INSERT"))))
(progn
   (setq i -1
      ss0 (ssadd)
   )
   (while (setq s1 (ssname ss (setq i (1+ i))))
(setq bn  (cdr (assoc 2 (entget s1)))
      ss1 (ssget "X" (list (cons 2 bn)))
)
(command "_.select" ss0 ss1 "")
(setq ss0 (ssget "p"))
   )
   (command ".erase" ss0 "")
)
  )
  (princ)
)
[/php]

qrs · 发表于 2006-10-21 23:03:21

还是程序好，不用那么繁琐的选择了

zyt3xl · 发表于 2006-10-23 13:03:34

我不会用程序,2楼主说的不知具体怎样造作.

KENSHIN709 · 发表于 2006-10-23 14:55:44

这个程序真的不错哦,以前del块都是用filter命令的,现在也省了哦.呵呵.不过filter命令还是非常强大的.

tooo · 发表于 2014-3-13 18:06:28

:lol还正想自己写一个呢，一搜索，居然有，一模一样的功能。谢谢分享！:lol

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

[求助]：如何删除块,有几百个同名称的块,一次性解决

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

相关帖子