[求助]：编程问题

ymh0603

如何删除块的一个引用。

indal

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

efan2000

删除块引用的函数。

2. 
   
3.   [FONT=courier new]
   
4. '删除块引用
   
5. Public Sub DeleteBlockRef(ByVal Name As String)
   
6.     Dim EntObj As AcadEntity
   
7.    
   
8.     On Error GoTo ErrTrap
   
9.     If Name = "" Then Exit Sub
   
10.     For Each EntObj In ThisDrawing.ModelSpace
    
11.        If StrComp(EntObj.ObjectName, "AcDbBlockReference", vbTextCompare) = 0 Then
    
12.           If StrComp(EntObj.Name, Name, vbTextCompare) = 0 Then
    
13.              EntObj.Delete
    
14.           End If
    
15.        End If
    
16.     Next
    
17.     Set EntObj = Nothing
    
18.     Exit Sub
    
19.    
    
20. ErrTrap:
    
21.     If Not (EntObj Is Nothing) Then Set EntObj = Nothing
    
22.     On Error GoTo 0
    
23. End Sub
    
24.   [/FONT]
    

<br />   [FONT=courier new]<br /> '删除块引用<br /> Public Sub DeleteBlockRef(ByVal Name As String)<br />     Dim EntObj As AcadEntity<br />     <br />     On Error GoTo ErrTrap<br />     If Name = "" Then Exit Sub<br />     For Each EntObj In ThisDrawing.ModelSpace<br />        If StrComp(EntObj.ObjectName, "AcDbBlockReference", vbTextCompare) = 0 Then<br />           If StrComp(EntObj.Name, Name, vbTextCompare) = 0 Then<br />              EntObj.Delete<br />           End If<br />        End If<br />     Next<br />     Set EntObj = Nothing<br />     Exit Sub<br />     <br /> ErrTrap:<br />     If Not (EntObj Is Nothing) Then Set EntObj = Nothing<br />     On Error GoTo 0<br /> End Sub<br />   [/FONT]<br />