indal 发表于 2002-10-17 10:50:00

块删除问题

删除块前，应先删除块的引用，怎样查找块的引用？（VBA）

肖宏海 发表于 2002-10-17 15:05:00

先objectname="AcadBlockReference" 后 BlkRefBuf.name="你要的块名" ,在BlkRe

先objectname="AcadBlockReference" 后 BlkRefBuf.name="你要的块名" ,在BlkRef.delete

肖宏海 发表于 2002-10-17 15:07:00

块引用

先objectname="AcadBlockReference" 后 BlkRefBuf.name="你要的块名" ,再BlkRefBuf.delete,删除的范围取决于你遍历的范围。

indal 发表于 2002-10-17 18:21:00

谢谢，我用VC试试

肖宏海 发表于 2002-10-18 09:32:00

那是 VBA

indal 发表于 2002-10-19 17:59:00

BlkRefBuf是选择集吗？怎样获得它!

肖宏海 发表于 2002-10-20 20:22:00

遍历 MSPACE，PSPACE，BLOCK

dim BlkRefBuf as AcadBlockReference,
用 MSPACE，PSPACE，BLOCK内的COUNT属性，进行循环检查每一个对象。

if实体.objectname="AcadBlockReference" then
set BlkRefBuf=该实体
然后进行删除。

cag 发表于 2002-10-21 19:41:00

不知能否用VBA制作无名块？

本帖最后由 作者 于 2002-10-21 19:41:26 编辑

不知能否用VBA制作无名块？

efan2000 发表于 2002-10-26 14:55:00

Re:块删除问题

函数如下：
'删除块引用
Public Sub DeleteBlockRef(ByVal Name As String)
    Dim EntObj As AcadEntity
   
    On Error GoTo ErrTrap
    If Name = "" Then Exit Sub
    For Each EntObj In ThisDrawing.ModelSpace
       If StrComp(EntObj.ObjectName, "AcDbBlockReference", vbTextCompare) = 0 Then
          If StrComp(EntObj.Name, Name, vbTextCompare) = 0 Then
             EntObj.Delete
          End If
       End If
    Next
    Set EntObj = Nothing
    Exit Sub
   
ErrTrap:
    If Not (EntObj Is Nothing) Then Set EntObj = Nothing
    On Error GoTo 0
End Sub
页: [1]
查看完整版本: 块删除问题