Clark_James 发表于 2016-9-19 22:31:24

如何删除块定义

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

1993063 发表于 2016-9-20 08:11:05

本帖最后由 1993063 于 2016-9-19 14:13 编辑


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

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

dong20030432 发表于 2018-5-8 17:26:43

本帖最后由 dong20030432 于 2018-5-9 09:06 编辑

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

Thisdrawing..Blocks.Item("CAD").Delete
强大。
另外，请问如何VBA实现，直接选择全部定义块呢？选择集的过滤参数（组码.值）如何设置？
谢谢。
页: [1]
查看完整版本: 如何删除块定义