如何删除块定义

Clark_James · 发表于 2016-9-19 22:31:00

通过看书学习，我大概知道如何删除图纸空间中的块参照了，
但是块的定义仍然是存在的，
那么如何清理掉无用的块定义呢？（VBA实现，不用CAD自带purge命令）

1993063 · 发表于 2016-9-20 08:11:00

测试:(db "块名")
(defun DB ( bm / e s)
  (if (setq s (ssget "_X" (list '(0 . "INSERT") (cons 2 bm))))
(while (setq e (ssname s 0))
   (ssdel (entdel e) s)
)
  )
)

elepeipei · 发表于 2018-5-8 14:53:00

不知道楼主有没有找到用VBA的方法

dong20030432 · 发表于 2018-5-8 17:26:00

下面是一段简单的代码，用来删除名称为“CAD”的块定义，当块计数为零时，删除之，代码只是示意，具体你自己写。
On Error Resume Next
Set sset = Thisdrawing.SelectionSets.Item("ss1")
sset.Delete
Set sset = Thisdrawing.SelectionSets.Add("ss1")
CreateSSetFilter FilterType, FilterDate, 2, "CAD"
sset.Select acSelectionSetAll, , , FilterType, FilterDate
If sset.Count = 0 Then
Thisdrawing..Blocks.Item("CAD").Delete
End If

一只鸟243aZ · 发表于 2018-5-13 19:05:00

Thisdrawing..Blocks.Item("CAD").Delete
强大。
另外，请问如何VBA实现，直接选择全部定义块呢？选择集的过滤参数（组码.值）如何设置？
谢谢。

如何删除块定义

发表回复

精选推荐