求救：CAD块一问

Luster 发表于 2003-1-15 20:15:00

在VBA中我想察看某一个块名的块引用是否存在，如果不存在，则删除这个块
请问得怎么编制程序。
我编了一个，但是说类型不对

'这个函数的功能是删除当前图纸空间中没有引用的块
'也就是曾经作过块，但是插入的实体被删除了，所以
'要把这个块删掉，否则下次做块将把以前的实体保留在
'块中
Public Sub DelBlock(ByVal blkName As String)

Dim blkObj As AcadBlock
Dim entobj As AcadBlockReference
Dim foundobj As Boolean
foundobj = False
blkName = Trim(blkName)

For Each blkObj In ThisDrawing.Blocks
If blkObj.ObjectName = "AcDbBlockTableRecord" And blkObj.Name = blkName Then
   For Each entobj In ThisDrawing.ModelSpace
         If entobj.ObjectName = "AcDbBlockReference" And entobj.Name = blkName Then
            foundobj = True
         End If
   Next
   If foundobj = False Then
         ThisDrawing.SendCommand "purge" & vbCr & "b" & vbCr & blkName & vbCr & "y" & vbCr & "y" & vbCr
   End If
End If
Next
End Sub

efan2000 发表于 2003-1-15 22:04:00

Re: 检查块引用是否存在

在块集合中块的对象名称是AcDbBlock，而不是AcDbBlockTableRecord，这是ARX中的用法。
判断一个块的块引用是否存在，可以有两种方法。
一是遍历模型空间或者图纸空间，检查块引用对象是否存在。
二是创建一选择集，使用过滤机制选择块的块引用对象，如果返回的数目是零，那么块引用不存在。

Luster 发表于 2003-1-16 09:34:00

呵呵，我用AcDbBlockTableRecord是判断有没有块纪录

如果没有，就不必做了
要是有块纪录，而且没有块引用
我才用purge命令把块纪录删除
因为如果下次我再做相同名字的块
系统会把上次的块中的实体也保留
这样，块中会多很多东西
而不象手动操作时进行替换

zxj_76 发表于 2003-1-16 10:21:00

用InsertBlock插入一个没有定义的块时，会发生-2147418113号错误。

efan2000 发表于 2003-1-16 11:09:00

判断块记录不是这种方法吧

判断块记录只要通过枚举块集合，检查块的名称是否与给定的名称相同就可以了，何必如此麻烦。

zhuqi75 发表于 2003-1-17 10:37:00

就是说你的目的是删除无用的块名吧？

就是说你的目的是删除无用的块名吧？
给我什么好处，亲一下？

zhuqi75 发表于 2003-1-17 11:47:00

将这个快过滤出来，看其数量

efun2000 的方法我完全赞同。

Luster 发表于 2003-1-17 14:51:00

呵呵，你要是女的，我当然不介意

不过男的就免了，哥们没这方面的爱好！

页: [1]

明经CAD社区's Archiver