如何重新定义块或者删除块

petty

刚用VB开发CAD，刚学会创建块
Dim block1 As AcadBlock
''''block1.Delete
Set block1 = ThisDrawing.Blocks.Add(pnt, "耳座1")
ThisDrawing.CopyObjects obj, block1
For i = 0 To 6
obj(i).Delete
Next i
Set oj = ThisDrawing.ModelSpace.InsertBlock(pnt, "耳座1", 1, 1, 1, 0)

问题是第一次运行能成功，可是图中已经存在这个块名后，程序再次运行，这块中的内容越来越多，如何重新定义此块，还是用这个名字。下次运行可能obj中的元素变化了

zzyong00

块在图形中没参照，可以删掉，如果有，不能删掉
如果想重定义块，就是正常的修改块就行了

petty

如何判断图中存不存在某个块
If Not ThisDrawing.Blocks(耳座1) Is Nothing Then
Call remove_block("耳座1")
ThisDrawing.Blocks("耳座1").Delete
End If
Set block1 = ThisDrawing.Blocks.Add(pnt, "耳座1")

If Not ThisDrawing.Blocks(耳座1) Is Nothing Then 这句话有什么毛病？首次打开图形图中无块的时候就块出错，要加on error语句，图中有块就不出错了，为什么

zzyong00

你没弄明白块和块参照

petty

块和块参照应该明白了，有参照提示无法删除，所以我才建了个删除原先块的子程序，call remove以上代码在运行一次只要图中存在块就正常了，
关键是首次运行时因为图中不存在块，所以在执行ThisDrawing.Blocks("耳座1").Delete出错，非要on error resume next才能正常运行。

我的意思是If Not ThisDrawing.Blocks(耳座1) Is Nothing Then这句代码错了。不知用empty 还是null等..

雪山飞狐_lzh

set blk = thisdrawing.blocks("xx") 不用判断是否存在 在这里捕捉错误就行了 不存在就添加 存在就清除块定义中的实体

雪山飞狐_lzh

没有调试，

1. Function GetBlock(ByVal name As String) As AcadBlock
   
2. On Error Resume Next
   
3.     ThisDrawing.Blocks(name).Delete
   
4.     If Err Then
   
5.         Err.Clear
   
6.         Dim pt(0 To 2) As Double
   
7.         Set GetBlock = ThisDrawing.Blocks.Add(pt, name)
   
8.     Else
   
9.         Set GetBlock = ThisDrawing.Blocks(name)
   
10.         For Each obj In GetBlock
    
11.             obj.Delete
    
12.         Exit For
    
13.     End If
    
14. End Function

Function GetBlock(ByVal name As String) As AcadBlock<br /> On Error Resume Next<br />     ThisDrawing.Blocks(name).Delete<br />     If Err Then<br />         Err.Clear<br />         Dim pt(0 To 2) As Double<br />         Set GetBlock = ThisDrawing.Blocks.Add(pt, name)<br />     Else<br />         Set GetBlock = ThisDrawing.Blocks(name)<br />         For Each obj In GetBlock<br />             obj.Delete<br />         Exit For<br />     End If<br /> End Function

petty

谢谢飞狐兄弟，这个问题我早已经解决了，我的本意是有没有一个指令来判断是否存在块，我上面用了多句话