如何删除块定义

Clark_James

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

1993063

测试:(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

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

dong20030432

下面是一段简单的代码，用来删除名称为“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

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